2003 Games - Play by Play

      Harwich Mariners     

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

" 'Copy file from Ftp directory to Stats directory, delete file. 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) = "har" Then 'FileObject.CopyFile "D:\Websites\CapeCodOnline\Production\capecodbaseballorg\www\ftp\" & File.Name, "D:\Websites\CapeCodOnline\Production\capecodbaseballorg\www\Stats\" & File.Name, True 'FileObject.DeleteFile "D:\Websites\CapeCodOnline\Production\capecodbaseballorg\www\ftp\" & File.Name, False 'response.write "" & FixStr(left(File.DateLastModified,10)) & "
" flag = true End If next 'Make a link to the file in the Stats directory. 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) = "har" Then Set FileIn = FileObject.OpenTextFile(Server.MapPath(".\" & File.Name)) KeepOnReading = True While NOT FileIn.AtEndOfStream and KeepOnReading TextLine = FileIn.readline DatePosition = InStr(TextLine, ""," ") 'Response.Write("GameDate=" & GameDate) End If Wend response.write "" & GameDate & "
" End If next %>