<%@ LANGUAGE="VBSCRIPT" %>
<%
'If Session("Username") = "" Then Response.Redirect("Password.asp")
%>
Box Score List
1999 Box Scores
<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
'response.write(Server.MapPath("..\ftp\newspap.88"))
If FileObject.FileExists(Server.Mappath("..\ftp\newspap.88")) Then 'copy the file to the stats directory and delete the original in the FTP directory
'figure out the game date
Set FileIn = FileObject.OpenTextFile(Server.MapPath("..\ftp\newspap.88"))
KeepOnReading = True
While NOT FileIn.AtEndOfStream and KeepOnReading
TextLine = FileIn.readline
DatePosition = InStr(TextLine, "GAME DATE")
If DatePosition > 0 Then
KeepOnReading=False 'we found the date
GameDate = Replace(Mid(Textline, DatePosition+12,7),"/","-")
'Response.Write("GameDate=" & GameDate)
End If
Wend
'make a new file name and copy it
boxname="\"&GameDate1&"newspap.88"
'Response.write("Path="&Server.Mappath(".\")&boxname)
FileObject.CopyFile Server.Mappath("..\ftp\newspap.88"), Server.Mappath(".\")&boxname, True
End If
'List the files
'Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FileObject.GetFolder(Server.Mappath(".\"))
Response.Write(GenerateAllFolderInformation(Folder))
%>