Moon Spank

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim highScores Dim highScores_numRows Set highScores = Server.CreateObject("ADODB.Recordset") highScores.ActiveConnection = MM_conMoonspankForum_STRING highScores.Source = "SELECT * FROM scores ORDER BY score DESC" highScores.CursorType = 0 highScores.CursorLocation = 2 highScores.LockType = 1 highScores.Open() highScores_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 highScores_numRows = highScores_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim highScores_total Dim highScores_first Dim highScores_last ' set the record count highScores_total = highScores.RecordCount ' set the number of rows displayed on this page If (highScores_numRows < 0) Then highScores_numRows = highScores_total Elseif (highScores_numRows = 0) Then highScores_numRows = 1 End If ' set the first and last displayed record highScores_first = 1 highScores_last = highScores_first + highScores_numRows - 1 ' if we have the correct record count, check the other stats If (highScores_total <> -1) Then If (highScores_first > highScores_total) Then highScores_first = highScores_total End If If (highScores_last > highScores_total) Then highScores_last = highScores_total End If If (highScores_numRows > highScores_total) Then highScores_numRows = highScores_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (highScores_total = -1) Then ' count the total records by iterating through the recordset highScores_total=0 While (Not highScores.EOF) highScores_total = highScores_total + 1 highScores.MoveNext Wend ' reset the cursor to the beginning If (highScores.CursorType > 0) Then highScores.MoveFirst Else highScores.Requery End If ' set the number of rows displayed on this page If (highScores_numRows < 0 Or highScores_numRows > highScores_total) Then highScores_numRows = highScores_total End If ' set the first and last displayed record highScores_first = 1 highScores_last = highScores_first + highScores_numRows - 1 If (highScores_first > highScores_total) Then highScores_first = highScores_total End If If (highScores_last > highScores_total) Then highScores_last = highScores_total End If End If %> Moon Spank

The 'Bertha Game' Moon Monger Leader Board:

Play Game | Send to a Friend | View Leader Board | Game Home | Moonspank Home Page

<% While ((Repeat1__numRows <> 0) AND (NOT highScores.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 highScores.MoveNext() Wend %>

There are currently <%=(highScores_total)%> mongers on the leader board.
Name	Email	Score
<%=(highScores.Fields.Item("name").Value)%>	<%=(highScores.Fields.Item("email").Value)%>	<%=(highScores.Fields.Item("score").Value)%>

Play Game | Send to a Friend | View Leader Board | Game Home | Moonspank Home Page

<% highScores.Close() Set highScores = Nothing %>