<% Dim thisPage thisPage ="http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") ' check whether user is logged in, if not redirect to login page If Session("BlnLoggedIn") <> True Then Response.Redirect("../login.asp?from=" & thisPage) End If Session.Timeout = 90 ' session expires after 90 minutes of inactivity Session("ScoreLogged") = "no" Session("ReviewedMissedLogged") = "no" Response.Expires = 90 'page expres after 90 minutes %> <% dim db dim getRows dim arrBDBData dim sql Dim Filename Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim FSO ' filesystem object Dim tokenLoc Dim underscoreLoc Dim Contents Dim TextStream Dim Filepath Dim wordnum Dim setnum Dim word Dim frequency(5) Dim partOfSpeech(5) Dim definition(5) Dim sentence, sentence1, sentence2 Dim wordList(5) ' must match numChoices Dim maxRow Dim randomNum Dim randomsUsed Dim randomOrder Dim punct Dim numWrongWords Dim i, j Dim correctChoice Dim message Dim parameterWordNum, actualWordNum Dim userWeeklyAvg Dim difficultyLevel ' function to check whether a given number is an element of a given list ' returns true if number is an element of list, returns false otherwise Function checkIfExists( number, list ) exists = false For j = 0 to UBound( list ) if number = list(j) then exists = true end if Next checkIfExists = exists End Function randomize 'Open database connection Set db = Server.CreateObject("ADODB.Connection") db.Open = "driver={Microsoft Access Driver (*.mdb)};dbq=D:\Hosting\11059427\html\database\Satgame.mdb;uid=admin;pwd=" 'determine maxRow by getting max(id) from table sql = "SELECT MAX(id) FROM satvocab" Set getRows = db.execute(sql) arrDBData = getRows.GetRows() maxRow = arrDBData(0, 0) ' Close database connection as no longer need it db.Close set db = nothing %> Marks Education Online SAT Vocabulary Matching Game

Want to win a $100 gift card to amazon.com? Simply "Like" Marks Education on  Facebook and play KWEST. Players who earn at least 10,000 points will be entered into a monthly drawing for the $100 gift card to amazon.com.*

<% Response.Write(Session("UserName")) %>  |  Rules (opens in new window)  |  Logout
Weekly Score (this week): <% Response.Write(userWeeklyAvg) %>                                                                          Difficulty: --

Select a quiz:

Number of questions: Vocabulary Set: