<%@ LANGUAGE="VBSCRIPT" %> <%Option Explicit %> Ratings

Ratings

<% dim rst, sql, n sql = "SELECT Player_Game.Game_ID, Player.Player_ID, Player.Player_Name, Player_Game.Last_Played, Player_Game.Tot_Games, Player_Game.Rating, Rank.Rank_Text, Rank.Rank_Color " & _ "FROM (Player INNER JOIN Player_Game ON Player.Player_ID = Player_Game.Player_ID) INNER JOIN Rank ON Player_Game.Rank_ID = Rank.Rank_ID " & _ "WHERE (((Player_Game.Game_ID)=" & CLNG(request("G_ID")) & ")) " & _ "ORDER BY Rank.Rated, Player_Game.Rating DESC;" set rst = GetRecordset(TheDB, sql) do while not rst.eof response.write "" response.write "" response.write "" response.write "" n = instr(rst("Rating"), ".") if n = 0 then n = len(rst("Rating")) response.write "" response.write "" response.write "" rst.movenext loop rst.close set rst = nothing CleanupTheDB %>

Player	Last Match	Matches	Rating	Ranking
" & rst("Player_Name") & "	" & rst("Last_Played") & "	" & rst("Tot_Games") & "	" & mid(rst("Rating"), 1, n + 2) & "	" & rst("rank_text") & "

Return to Game list.