% @LANGUAGE = VBScript %>
<%
Option Explicit
response.Buffer = false
Dim Conn, dbPath, objrs1
session.LCID = 2057
dbPath = "D:/webspace/footballtillidie.co.uk/db/cfa.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
set objrs1 = server.CreateObject("ADODB.Recordset")
set objrs1.activeconnection = conn
objrs1.open "Select * From tblNews WHERE active = 'TRUE'"
%>
West Midlands Christian Youth Football League
<%
dim dyType
dyType = "th"
if right(day(now()),1) =1 then
dytype = "st"
end if
if right(day(now()),1) =2 then
dytype = "nd"
end if
if right(day(now()),1) =3 then
dytype = "rd"
end if
%>
<%
objrs1.close
set objrs1 = server.CreateObject("ADODB.Recordset")
set objrs1.activeconnection = conn
objrs1.open "Select * From tblPlayDate WHERE active = 'TRUE'"
dyType = "th"
if right(day(cdate(objrs1("dte"))),1) =1 then
dytype = "st"
end if
if right(day(cdate(objrs1("dte"))),1) =3 then
dytype = "rd"
end if
if right(day(objrs1("dte")),1) =2 then
dytype = "nd"
end if
%>
<%
dim objrs2, objrs4, objrs5, score, objrs6, awaydt, awayscore
set objrs2 = server.CreateObject("ADODB.Recordset")
set objrs2.activeconnection = conn
objrs2.open "Select * From tblLeague"
dim objrs3
%>
<%
while not objrs2.eof
%>
<%
set objrs3 = server.CreateObject("ADODB.Recordset")
set objrs3.activeconnection = conn
objrs3.open "Select * From tblMatches WHERE league = " & objrs2("index") & " AND dte =#" & objrs1("dte") & "#"
%>
<%= objrs2("League")%>
<%
while not objrs3.eof
set objrs5 = server.CreateObject("ADODB.Recordset")
set objrs5.activeconnection = conn
objrs5.open "Select * From tblGoals WHERE MatchNo = " & objrs3("index")
awaydt = ""
awayscore = 0
%>
<%
set objrs4 = server.CreateObject("ADODB.Recordset")
set objrs4.activeconnection = conn
objrs4.open "Select * From tblteam WHERE team = " & objrs3("HomeTeam")
response.Write objrs4("TeamName") & " "
score = 0
while not objrs5.eof
if cdbl(objrs5("Team")) = cdbl(objrs3("HomeTeam")) then
score = score + objrs5("Score")
set objrs6 = server.CreateObject("ADODB.Recordset")
set objrs6.activeconnection = conn
objrs6.open "Select * From tblPlayers WHERE index = " & objrs5("Player")
Response.write objrs6("Name") & " "
If objrs5("Score") > 1.1 then
Response.write objrs5("Score")
end if
Response.write " "
else
awayscore = awayscore+ objrs5("Score")
set objrs6 = server.CreateObject("ADODB.Recordset")
set objrs6.activeconnection = conn
objrs6.open "Select * From tblPlayers WHERE index = " & objrs5("Player")
awaydt = awaydt & objrs6("Name") & " "
If objrs5("Score") > 1.1 then
awaydt = awaydt & objrs5("Score")
end if
awaydt = awaydt & " "
end if
objrs5.movenext
wend
'objrs5.movefirst
objrs4.close
%>
<%
response.Write(Score)
%>
v
<%
response.Write(AwayScore)
%>
<%
set objrs4 = server.CreateObject("ADODB.Recordset")
set objrs4.activeconnection = conn
objrs4.open "Select * From tblteam WHERE team = " & objrs3("AwayTeam")
response.Write objrs4("TeamName") & " "
response.Write(awaydt)
objrs4.close
%>
<%
objrs3.movenext
wend
objrs3.close
%>
<%
objrs2.movenext
%>
<%
if not objrs2.eof then
%>
<%= objrs2("League")%>
<%
set objrs3 = server.CreateObject("ADODB.Recordset")
set objrs3.activeconnection = conn
objrs3.open "Select * From tblMatches WHERE league = " & objrs2("index") & " AND dte =#" & objrs1("dte") & "#"
%>
<%
while not objrs3.eof
set objrs5 = server.CreateObject("ADODB.Recordset")
set objrs5.activeconnection = conn
objrs5.open "Select * From tblGoals WHERE MatchNo = " & objrs3("index")
awaydt = ""
awayscore = 0
%>
<%
set objrs4 = server.CreateObject("ADODB.Recordset")
set objrs4.activeconnection = conn
objrs4.open "Select * From tblteam WHERE team = " & objrs3("HomeTeam")
response.Write objrs4("TeamName") & " "
score = 0
while not objrs5.eof
if cdbl(objrs5("Team")) = cdbl(objrs3("HomeTeam")) then
score = score + objrs5("Score")
set objrs6 = server.CreateObject("ADODB.Recordset")
set objrs6.activeconnection = conn
objrs6.open "Select * From tblPlayers WHERE index = " & objrs5("Player")
Response.write objrs6("Name") & " "
If objrs5("Score") > 1.1 then
Response.write objrs5("Score")
end if
Response.write " "
else
awayscore = awayscore+ objrs5("Score")
set objrs6 = server.CreateObject("ADODB.Recordset")
set objrs6.activeconnection = conn
objrs6.open "Select * From tblPlayers WHERE index = " & objrs5("Player")
awaydt = awaydt & objrs6("Name") & " "
If objrs5("Score") > 1.1 then
awaydt = awaydt & objrs5("Score")
end if
awaydt = awaydt & " "
end if
objrs5.movenext
wend
'objrs5.movefirst
objrs4.close
%>
<%
response.Write(Score)
%>
v
<%
response.Write(AwayScore)
%>
<%
set objrs4 = server.CreateObject("ADODB.Recordset")
set objrs4.activeconnection = conn
objrs4.open "Select * From tblteam WHERE team = " & objrs3("AwayTeam")
response.Write objrs4("TeamName") & " "
response.Write(awaydt)
objrs4.close
%>
<%
objrs3.movenext
wend
objrs3.close
%>
<%
end if
%>
<%
if not objrs2.eof then
objrs2.movenext
end if
wend
objrs2.close
%>
League Tables
<%
dim lgCnt
set objrs2 = server.CreateObject("ADODB.Recordset")
set objrs2.activeconnection = conn
objrs2.open "Select * From tblLeague"
dim objrs4a
set objrs4a = server.CreateObject("ADODB.Recordset")
set objrs4a.activeconnection = conn
objrs4a.open "Select * From tblSeason WHERE Curr = 'TRUE'"
while not objrs2.eof
set objrs3 = server.CreateObject("ADODB.Recordset")
set objrs3.activeconnection = conn
objrs3.open "Select * From tblLeagueTable WHERE league = " & objrs2("index") & " AND season = " & objrs4a("refkey") & " ORDER BY GoalDiff DESC, Points DESC"
%>
<%=objrs2("LEague")%>
P
W
D
L
F
A
P
G
<%
lgcnt = 0
While not objrs3.eof
lgcnt = lgcnt + 1
set objrs5 = server.CreateObject("ADODB.Recordset")
set objrs5.activeconnection = conn
objrs5.open "Select * From tblTeam WHERE Team = " & objrs3("Team")
if lgcnt <6 then
%>
<%=lgcnt%>
<%=objrs5("TeamName")%>
<%=objrs3("Played")%>
<%=objrs3("Won")%>
<%=objrs3("Draw")%>
<%=objrs3("Lost")%>
<%=objrs3("F")%>
<%=objrs3("A")%>
<%=objrs3("GoalDiff")%>
<%=objrs3("Points")%>
<%
end if
objrs3.movenext
wend
objrs3.close
%>
<%
objrs2.movenext
if not objrs2.eof then
set objrs3 = server.CreateObject("ADODB.Recordset")
set objrs3.activeconnection = conn
objrs3.open "Select * From tblLeagueTable WHERE league = " & objrs2("index") & " AND season = " & objrs4a("refkey") & " ORDER BY GoalDiff DESC, Points DESC"
%>
<%=objrs2("LEague")%>
P
W
D
L
F
A
P
G
<%
lgcnt = 0
While not objrs3.eof
lgcnt = lgcnt + 1
set objrs5 = server.CreateObject("ADODB.Recordset")
set objrs5.activeconnection = conn
objrs5.open "Select * From tblTeam WHERE Team = " & objrs3("Team")
if lgcnt <6 then
%>
<%=lgcnt%>
<%=objrs5("TeamName")%>
<%=objrs3("Played")%>
<%=objrs3("Won")%>
<%=objrs3("Draw")%>
<%=objrs3("Lost")%>
<%=objrs3("F")%>
<%=objrs3("A")%>
<%=objrs3("GoalDiff")%>
<%=objrs3("Points")%>
<%
end if
objrs3.movenext
wend
%>
<%
end if
objrs2.movenext
wend
%>
Top Scorere
<%
objrs2.movefirst
dim playercnt
playercnt = 0
while not objrs2.eof
set objrs3 = server.CreateObject("ADODB.Recordset")
set objrs3.activeconnection = conn
objrs3.open "Select * From tblLeagueTable WHERE league = " & objrs2("index") & " AND season = " & objrs4a("refkey") & " ORDER BY GoalDiff DESC, Points DESC"
%>
<%
if not objrs2.eof then
%>
<%=objrs2("LEague")%>
<%
playercnt = 0
set objrs3 = server.CreateObject("ADODB.Recordset")
set objrs3.activeconnection = conn
objrs3.open "Select * From tblTopPlayer WHERE league = " & objrs2("index") & " AND season = " & objrs4a("refkey") & " ORDER BY Score DESC"
while not objrs3.eof
playercnt = playercnt + 1
set objrs5 = server.CreateObject("ADODB.Recordset")
set objrs5.activeconnection = conn
objrs5.open "Select * From tblPlayers WHERE Index = " & objrs3("player")
if playercnt < 5.5 then
%>
<%=playercnt%>
<%=objrs5("Name")%>
" >
<%=objrs3("Score")%>
<%
end if
objrs3.movenext
wend
objrs3.close
%>
<%
end if
%>
<%
if not objrs2.eof then
objrs2.movenext
end if
%>
<%
if not objrs2.eof then
%>
<%=objrs2("LEague")%>
<%
playercnt = 0
set objrs3 = server.CreateObject("ADODB.Recordset")
set objrs3.activeconnection = conn
objrs3.open "Select * From tblTopPlayer WHERE league = " & objrs2("index") & " AND season = " & objrs4a("refkey") & " ORDER BY Score DESC"
while not objrs3.eof
playercnt = playercnt + 1
set objrs5 = server.CreateObject("ADODB.Recordset")
set objrs5.activeconnection = conn
objrs5.open "Select * From tblPlayers WHERE Index = " & objrs3("player")
if playercnt < 5.5 then
%>
<%=playercnt%>
<%=objrs5("Name")%>
" >
<%=objrs3("Score")%>
<%
end if
objrs3.movenext
wend
objrs3.close
%>
<%
end if
%>
<%
if not objrs2.eof then
objrs2.movenext
end if
wend
%>