<%=Year(Date)%>
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"
boxname="\"&GameDate&"newspap.88"
'Response.write("Path="&Server.Mappath(".\")&boxname)
'Response.end
FileObject.CopyFile Server.Mappath("..\ftp\newspap.88"), Server.Mappath(".\")&boxname, True
'End If
'Response.end
'List the files
Else%>
Box scores will be available
when the <%=Year(Date)%> Season is underway.
<%End If%>
<%
'Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FileObject.GetFolder(Server.Mappath(".\"))
Response.Write(GenerateAllFolderInformation(Folder))
%>
|