<% FileName = Request("FileName") FilePath = "BoxScores/" OldFilePath = "/FTP/Data/" Sub DisplayBoxScore() Set Fs = Server.CreateObject("Scripting.FileSystemObject") 'If Fs.FileExists(Server.MapPath(OldFilePath & FileName)) Then ' Fs.CopyFile Server.MapPath(OldFilePath & FileName), Server.MapPath(FilePath & FileName), True ' Fs.DeleteFile Server.MapPath(OldFilePath & FileName), True 'End If If Fs.FileExists(Server.MapPath(FilePath & FileName)) Then Set File = Fs.OpenTextFile(Server.MapPath(FilePath & FileName), 1, False) Response.Write File.ReadAll File.Close Set File = Nothing Else Response.Write "

We're sorry. The boxscore you are looking for is not yet available.

Please check back soon.

" End If Set Fs = Nothing End Sub %> Boxscores

Boxscores

Back to Stats Home Page

 
<%DisplayBoxScore()%>