%@ LANGUAGE="VBSCRIPT" %>
<%Option Explicit %>
Game Ratings
Games
Menu:
Select a Game:
| Game | Matches played |
<% dim rst, sql
sql = "SELECT Game_ID, Game_Name, Match_Count " & _
"FROM Game " & _
"ORDER BY Game_Name;"
set rst = GetRecordset(TheDB, sql)
do while not rst.eof
response.write "| " & rst("Game_Name") & " | "
response.write "" & rst("Match_Count") & " | "
response.write "
"
rst.movenext
loop
rst.close
set rst = nothing
CleanupTheDB
%>