% 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 "