<%
aryTownNames = Split("Bourne|Brewster|Chatham|Cotuit|Falmouth|Harwich|Hyannis|Orleans|Wareham|Yarmouth-Dennis", "|")
aryTownIDs = Split("81|82|83|84|85|86|87|88|89|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) & "org.txt"
	'NewFileName = "/Stats/8" & aryTownIDs(i) & "org.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/8" & aryTownIDs(i) & "org.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%>