2004 Playoff Team Stats

<%
aryTownNames = Split("Brewster|Falmouth|Hyannis|Yarmouth-Dennis", "|")
aryTownIDs = Split("82|85|87|90", "|")
FoundMatch = False

Set Fs = Server.CreateObject("Scripting.FileSystemObject")							'Create the file object

'For i = 0 To UBound(aryTownNames)
'	OldFileName = "/FTP/Data/8" & aryTownIDs(i) & "orgP.txt"
'	NewFileName = "/Stats/Playoffs/8" & aryTownIDs(i) & "orgP.txt"
'	
'	If Fs.FileExists(Server.MapPath(OldFileName)) Then
'		Fs.CopyFile Server.MapPath(OldFileName), Server.MapPath(NewFileName), True
'		Fs.DeleteFile Server.MapPath(OldFileName), True
'	End If
'Next

For i = 0 To UBound(aryTownNames)
	NewFileName = "/archives/Arc2004/Stats/Playoffs/8" & aryTownIDs(i) & "orgP.txt"
	If Fs.FileExists(Server.MapPath(NewFileName)) Then
		FoundMatch = True
		Set File = Fs.OpenTextFile(Server.MapPath(NewFileName), 1)
		Response.Write ""
		Response.Write "" & aryTownNames(i) & ""
		Response.Write "
" & File.ReadAll & "
"
		Response.Write ""
		If i < UBound(aryTownNames) Then Response.Write "
"
		Set File = Nothing
	End If
Next

Set Fs = Nothing

If Not FoundMatch Then%>
Team Stats will be available 
when the <%=Year(Date)%> Season is underway.
<%End If%>