The Texas Baseball Umpires Association (TBUA) website provides users with access to policies, checklists, forms, and member information.
<% '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 %>
Last Updated: February 12, 2009
<%
'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
%>