<%
Dim rst_Ladder, league_ref
league_ref = SITE_YEAR & "prem"
Set rst_Ladder = Get_RST(GAMES_DB_IDENT, "SELECT t1.team, COUNT(team) AS played, (SELECT COUNT(prem_points) FROM t_g_ladder WHERE prem_points = 4 AND team = t1.team AND league_ref = '" & league_ref & "') AS won, (SELECT COUNT(prem_points) FROM t_g_ladder WHERE prem_points = 0 AND team = t1.team AND league_ref = '" & league_ref & "') AS lost, (SELECT COUNT(prem_points) FROM t_g_ladder WHERE prem_points = 2 AND team = t1.team AND league_ref = '" & league_ref & "') AS drawn, SUM(points_for) AS points_for, SUM(points_against) AS points_against, STR((SUM(points_for_adj) / SUM(points_against_adj) * 100), 4, 0) AS percentage, SUM(prem_points) AS prem_points, (CONVERT(float, SUM(prem_points)) / CONVERT(float, (COUNT(team)) * 4)) AS match_ratio FROM t_g_ladder t1 WHERE league_ref = '" & league_ref & "' GROUP BY team ORDER BY match_ratio DESC, prem_points DESC, percentage DESC;")
If rst_Ladder.EOF Then
Response.Write("
Sorry the ladder is temporarily out of order.
")
Else
%>
Team
P
W
D
L
P.F.
P.A.
%
Pts
<%
Do While Not rst_Ladder.EOF
%>
<%= rst_Ladder("team")%>
<%= rst_Ladder("played")%>
<%= rst_Ladder("won")%>
<%= rst_Ladder("drawn")%>
<%= rst_Ladder("lost")%>
<%= rst_Ladder("points_for")%>
<%= rst_Ladder("points_against")%>
<%= rst_Ladder("percentage")%>
<%= rst_Ladder("prem_points")%>
<%
rst_Ladder.MoveNext
Loop
End If
Close_RST(rst_Ladder)
%>
