<% 'First we open the banner file, make sure you have the right path to the file Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile = MyFileObj.OpenTextFile(server.mappath("../quote/quote.txt")) 'Then we read the header IF NOT MyTextFile.AtEndOfStream THEN header = CInt(MyTextFile.ReadLine) END IF 'Then we make a random value based on the header, the RANDOMIZE 'statement is important to insure a random value. RANDOMIZE RandomValue = INT(header*RND)+1 Count=0 'Loops until it comes to line number=random value 'And then it saves it in the variable quote WHILE NOT MyTextFile.AtEndOfStream AND NOT Count = RandomValue quote = MyTextFile.ReadLine Count = Count + 1 WEND 'Closeing up the text file MyTextFile.Close %> St. Xavier's High School: Alumni Dinner on 21st February 2010