<%
'First we open the banner file, make sure you have the right path to the file
Set MyFileObj = \data\quote.asp("Scripting.FileSystemObject")
Set MyTextFile = \data\quoteData.txt("c:\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
LowestNumber = 1
HighestNumber = header
RandomValue = INT((HighestNumber-LowestNumber+1)*Rnd+LowestNumber)
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
'Closing up the text file
MyTextFile.Close
%>
