<%
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) & "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 = "/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)%> Playoffs are underway.
<%End If%>