<% WriteLeagueTables 0,"#" %> Teams in bold have submitted club details [Updated:9 February 2006] League Table - Premier Division    2004/2005 Table 2003/2004 Table

<% Function WriteLeagueTables(division,marker) Dim txtfile If division = 0 then txtfile = server.MapPath("textfiles/division0.txt") If division = 1 then txtfile = server.MapPath("textfiles/division1.txt") If division = 2 then txtfile = server.MapPath("textfiles/division2.txt") If division = 3 then txtfile = server.MapPath("textfiles/division3.txt") Set filesys = CreateObject("Scripting.FileSystemObject") If filesys.FileExists(txtfile) Then Set txtfile = filesys.OpenTextFile(txtfile) 'While we're not at the end of the file 'Response.Write "" position =0 While Not txtfile.AtEndOfStream 'Read a line of the file strUserLine = txtfile.ReadLine arrUser = Split(strUserLine,",") position=position+1 %> <% 'Response.Write(arrUser(0) & "," & arruser(2)) Wend 'Response.Write("

<%=position%>	<%=arrUser(0)%>	<%=Trim(arrUser(1))%>	<%=Trim(arrUser(2))%>	<%=Trim(arrUser(3))%>	<%=Trim(arrUser(4))%>	<%=Trim(arrUser(5))%>	<%=Trim(arrUser(6))%>	<%=Trim(arrUser(7))%>	<%=Trim(arrUser(8))%>

") Else 'Response.Write("doesnt exist") End if End Function %>