<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
'JAMES GJERDE
'RIVERKING TECHNOLOGIES GETHIGHSCORES PAGE 2003
On Error Resume Next
Dim objConn
Dim objRec
Dim SQL
SQL="SELECT name,score,question,subcategory FROM HIGHSCORES ORDER BY score DESC"
Set objConn = Server.CreateObject ("ADODB.Connection")
Set objRec = Server.CreateObject ("ADODB.Recordset")
objConn.Open "DSN=riverweb"
If Err.Number=0 Then
objRec.Open SQL,objConn, 2, 1, 1
End If
%>
Riverking Technologies
<%If Err.Number<>0 Then %>
An error has occurred. The connection attempt failed.
Please contact the webmaster if you have any questions.
Click here to return to the homepage.
<%Else%>
NAME
SCORE
QUESTIONS
CATEGORY
<% While Not objRec.EOF %>
<%= objRec("name") %>
<%= objRec("score") %>
<%= objRec("question") %>
<%= objRec("subcategory") %>
<% objRec.MoveNext
WEnd %>
Copyright Riverking, Inc. 2002. All Rights Reserved.
<%
objRec.Close
objConn.Close
Set objRec = Nothing
Set objConn = Nothing
End If
%>
