<%@ LANGUAGE="VBSCRIPT" %> <% Response.buffer = true 'vFilename=Request("Filename") 'vDate = Left(vFilename,7) 'If Session("Username") = "" Then Response.Redirect("Password.asp") %> CCBL All-Star Game Boxscores

<%=Year(Date)%> CCBL All-Star Game Boxscores

Back to Stats Home Page

<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") If FileObject.FileExists(Server.Mappath("..\ftp\allstar.88")) Then 'copy the file to the stats directory and delete the original in the FTP directory FileObject.CopyFile Server.Mappath("..\ftp\allstar.88"), Server.MapPath("allstar.88"), True Set FileIn = FileObject.OpenTextFile(Server.MapPath("allstar.88")) While NOT FileIn.AtEndOfStream TextLine = FileIn.readline TextLine = REPLACE(TextLine, " ", " ") TextLine = REPLACE(Textline, ".","") If InStr(Textline, "BOURNE")>0 Then 'Look for the "Title" line of each team and replace it with a NAME anchor Textline = REPLACE(Textline, "BOURNE", "BOURNE") End If If InStr(Textline, "BREWSTER")>0 Then Textline = REPLACE(Textline, "BREWSTER", "BREWSTER") End If If InStr(Textline, "CHATHAM")>0 Then Textline = REPLACE(Textline, "CHATHAM", "CHATHAM") End If If InStr(Textline, "COTUIT")>0 Then Textline = REPLACE(Textline, "COTUIT", "COTUIT") End If If InStr(Textline, "FALMOUTH")>0 Then Textline = REPLACE(Textline, "FALMOUTH", "FALMOUTH") End If If InStr(Textline, "HARWICH")>0 Then Textline = REPLACE(Textline, "HARWICH", "HARWICH") End If If InStr(Textline, "HYANNIS")>0 Then Textline = REPLACE(Textline, "HYANNIS", "HYANNIS") End If If InStr(Textline, "ORLEANS")>0 Then Textline = REPLACE(Textline, "ORLEANS", "ORLEANS") End If If InStr(Textline, "WAREHAM")>0 Then Textline = REPLACE(Textline, "WAREHAM", "WAREHAM") End If If InStr(Textline, "YARMOUTH-DENNIS")>0 Then Textline = REPLACE(Textline, "YARMOUTH-DENNIS", "YARMOUTH-DENNIS") End If Response.Write(TextLine & "
") WEnd Else%>

CCBL All-Star scores will be available
the day after the game is played.

<%End If%>