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

2002 Games - Play by Play

      Cotuit Kettleers     

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

" Set FileObject = CreateObject("Scripting.FileSystemObject") flag = false Set objFolder = FileObject.GetFolder(Server.MapPath("\")) Set objFilesColl = objFolder.Files for each file in objFilesColl If left(file.Name,3) = "Cot" Then 'FileObject.CopyFile "d:\Inetpub\websites\capecodbaseball\ftp\" & File.Name, "d:\Inetpub\websites\capecodbaseball\Stats\" & File.Name, True 'FileObject.DeleteFile "d:\Inetpub\websites\capecodbaseball\ftp\" & File.Name, False 'response.write "" & FixStr(left(File.DateLastModified,10)) & "
" flag = true End If next Set FileObject = CreateObject("Scripting.FileSystemObject") Set objFolder = FileObject.GetFolder(Server.MapPath(".\")) Set objFilesColl = objFolder.Files for each file in objFilesColl If left(file.Name,3) = "Cot" 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 response.write "" & GameDate & "
" End If next %>