Mini Leagues
Mini Leagues (Haltemprice / Warners)
These leagues are an all year round internal competition which runs month to month (approx.) Players are responsible for booking their own courts and arranging fixtures.Matches can now be played at the sports centre or at Warners.
<% ' First open the file and get the dates out. SET fsObject = Server.CreateObject("Scripting.FileSystemObject") strFileName= "leaguetable.csv" strFileName = Server.MapPath(strFileName) If (fsObject.FileExists(strFileName)) Then booOKToLoad = True else .write "File cannot be found. Please try again later" booOKToLoad = False End if If booOKToLoad Then Set FilObject = fsObject.OpenTextFile (strFileName, 1, False) strEndDate = FilObject.ReadLine strStartDate = FilObject.ReadLine Else strEndDate = "UNKNOWN" strStartDate = "UNKNOWN" End If %> Session ends: <%=strEndDate%>- Next mini league starts: <%=strStartDate%>
| "
response.write " | DIVISION " & request("div") & " | " response.write " "
response.write " 1 "
response.write " | "
response.write " "
response.write " 2 "
response.write " | "
response.write " "
response.write " 3 "
response.write " | "
response.write " "
response.write " 4 "
response.write " | "
response.write " "
response.write " 5 "
response.write " | "
response.write " "
response.write " 6 "
response.write " | "
response.write " "
response.write " T "
response.write " | "
response.write "
| "
response.write " " & intLoop & " "
response.write " | "
response.write "" & FilObject.ReadLine & " | " For intLoop2 = 1 to 7 response.write " "
response.write " "
If intLoop = intLoop2 then response.write "xxx"
response.write " "
response.write " | "
Next
response.write "
