<% Option Explicit %>
<html><head>
<title>Patbert's High Score Table</title>
</head><body text=#FFFFFF bgcolor=#000000>
HIGHSCORE TABLE
<%
const databaseFile="/psychoscore/database/highscore.mdb" 'Database that stores the scores
const gameIdColumn=0, positionColumn=1, scoreColumn=2, levelColumn=3, playerColumn=4 'column numbers for fields
const MAXSCORES=80 ' Maximum number of highscores
Dim SQLStatement 'SQL statement used to retrieve highscores
' SQL will retrieve all highscores for the requested GAMEID (passed via URL):
SQLStatement = "SELECT * FROM hiscore WHERE (gameid="∫(request("gameid"))&") ORDER BY position"
Dim Conn, RS 'Declares the Conn (Connection) and RS (Recordset) variables
dim currRecord, targetRecord, nextRecord 'arrays for highscores
Dim result, message 'Stores HTML of highscore table (result) and a message (message)
Dim positionFound 'boolean, true if submitted highscore has been found
Dim lastPosition 'Stores last highscore position
Dim scoreValid 'Boolean: true if submitted highscore is valid
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
targetRecord=getTargetRecord 'Get submitted highscore (target score)
' Check player's name is not empty
if targetRecord(playerColumn)="" then scoreValid=false else scoreValid=true
positionFound=false
lastPosition=-1
'Open database for writing (how this is done depends on your provider - consult your provider's documentation)
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath(databaseFile)
RS.Open SQLStatement, Conn, 3, 3 'Open the database for writing while allowing others to still read it.
if not RS.EOF then RS.MoveFirst 'If table is not empty go to first record
Do Until RS.EOF 'Loop until no records
currRecord=getRecord(RS) 'Get record from database
if isDuplicate(currRecord,targetRecord) then scoreValid=false 'If submitted score is already in database, score is invalid
'If score is valid and this is the position to insert the target highscore:
if scoreValid and positionFound=false and int(currRecord(scoreColumn))<=int(targetRecord(scoreColumn)) then
positionFound=true
nextRecord=currRecord 'Set the next record as the current one
targetRecord(positionColumn)=currRecord(positionColumn) 'Set position number same as current one
nextRecord(positionColumn)=nextRecord(positionColumn)+1 'Move position of next record on one
currRecord=targetRecord 'Set the current record as the submitted record
saveRecord(currRecord) 'Save to database
result=result+recordToString(currRecord,"<td align=center bgcolor=#800000>") 'Add to table
message="Well done! You got to position #"&(targetRecord(positionColumn)+1)&" in the highscore table!"
elseif positionFound then 'If current record is below the submitted record
swapArray currRecord,nextRecord 'Move records down to accommadate the inserted highscore
nextRecord(positionColumn)=nextRecord(positionColumn)+1 'add one to next record
saveRecord(currRecord) 'Save to database
result=result+recordToString(currRecord,"<td align=center>") 'Display to table
else 'If the target highscore hasn't been found yet
result=result+recordToString(currRecord,"<td align=center>") 'Just display to table
end if
lastPosition=currRecord(positionColumn)
RS.MoveNext 'Go to next record
Loop
if scoreValid then
if positionFound=false and lastPosition>=MAXSCORES-1 then 'If the submitted highscore is off the table
message="Sorry, you did not qualify for the highscore table"
elseif positionFound=false then 'If submitted highscore is on the bottom of the highscore table
targetRecord(positionColumn)=lastPosition+1 'Set position to the last highscore plus one
addRecord(targetRecord) 'Add record to database
message="Well done! You got to position #"&(targetRecord(positionColumn)+1)&" in the highscore table!"
result=result+recordToString(targetRecord,"<td align=center bgcolor=#800000>") 'Display
else 'If submitted highscore has already been added
addRecord(nextRecord) 'Add the last record that has been moved along
result=result+recordToString(nextRecord,"<td align=center>") 'Display
end if
end if
RS.Close 'Close database
Conn.Close
Response.Write message 'Display message
Response.Write "<table border=0 cellspacing=3><tr>" 'Display table header
Response.Write "<td align=center bgcolor=#333333> POSITION </td>"
Response.Write "<td align=center bgcolor=#333333> SCORE </td>"
Response.Write "<td align=center bgcolor=#333333> LEVEL </td>"
Response.Write "<td align=center bgcolor=#333333> PLAYER </td>"
Response.Write result 'Display highscores
'Returns a string for adding into the HTML table
function recordToString(detail,prefix)
recordToString= "<tr>"&prefix& _
detail(positionColumn)+1&"</td>"&prefix& _ '1 is added to position as it is zero indexed
detail(scoreColumn)&"</td>"&prefix& _
detail(levelColumn)&"</td>"&prefix& _
detail(playerColumn)&"</td></tr>"
end function
'Edits current database record
sub saveRecord(detail)
RS.Fields("Player").Value =detail(playerColumn)
RS.Fields("Level").Value=detail(levelColumn)
RS.Fields("Score").Value=detail(scoreColumn)
RS.Update
end sub
'Adds new record to database
sub addRecord(detail)
RS.AddNew
RS.Fields("Position")=detail(PositionColumn)
RS.Fields("GameId").Value=detail(gameIdColumn)
saveRecord(detai