<% 'Check String Function Function FixStr(strInput) strInput = Replace(strInput, "/", "-") strInput = Replace(strInput, " ", "-") FixStr = strInput End Function %> 2002 Games

2002 Playoff Games - Play by Play

Click on a link below to see the Play by Play from that date. <% response.write "

" Set FileObject = CreateObject("Scripting.FileSystemObject") Set objFolder = FileObject.GetFolder(Server.MapPath(".\")) Set objFilesColl = objFolder.Files Dim TeamArray(10) TeamArray(0) = "Bou" TeamArray(1) = "Brw" TeamArray(2) = "Cha" TeamArray(3) = "Cot" TeamArray(4) = "Fal" TeamArray(5) = "Har" TeamArray(6) = "Hya" TeamArray(7) = "Oln" TeamArray(8) = "War" TeamArray(9) = "Yrd" Dim i for each file in objFilesColl For i = 0 to 9 If left(file.Name,3) = TeamArray(i) Then Set FileIn = FileObject.OpenTextFile(Server.MapPath(".\" & File.Name)) KeepOnReading = True While NOT FileIn.AtEndOfStream and KeepOnReading TextLine = FileIn.readline DatePosition = InStr(TextLine, "") If DatePosition > 0 Then KeepOnReading=False 'we found the date 'GameDate = (Textline, DatePosition+7) GameDate = Replace(Mid(Textline, DatePosition+7,75),""," ") 'Response.Write("GameDate=" & GameDate) End If Wend If mid(file.Name,4,+4) >= 8070 Then response.write "" & GameDate & "
" End If End If Next next %>