" response.write "

" if gotome="/games/index.asp" then response.write "
• Home
" else response.write "
• Home
" end if if gotome="/games/pixels.asp" then response.write "
• Pixels
" else response.write "
• Pixels
" end if if gotome="/games/sink.asp" then response.write "
• Sink
" else response.write "
• Sink
" end if if gotome="/games/next.asp" then response.write "
• Next
" else response.write "
• Next
" end if response.write "
" response.write "

 

" if nCardID=0 then response.write "No Cards Played!" else passid=nCardID passimage=aCards(4,0) passuserid=aCards(1,0) %><% gotome=Request.ServerVariables("script_name") sServer=Request.ServerVariables("SERVER_NAME") if instr(sServer,"games.23ae.com") then response.redirect "http://www.23ae.com/games" sDSN="DRIVER={MySQL ODBC 3.51 Driver};SERVER=mysql251.secureserver.net;DATABASE=23AEGames;USER=23AEGames;PASSWORD=pooponastick23;OPTION=3;" Session.Timeout=60 EchelonAccess=0 EchelonID=session("EchelonID") 'Get session ID data if isnumeric(EchelonID) then 'If session not null (else cint will error) if EchelonID>0 then EchelonAccess=1 'if session ID exists, log in end if 'if session ID data does not exist, EchelonAccess still =0 (no attempt) if EchelonAccess<>1 then 'Check for cookie EchelonCookieUser=Request.Cookies("GameUser") 'Get the username cookie if len(EchelonCookieUser)>0 then 'If cookie not empty (else trim will fail) aEchelonUserData=GetEchelonUser(EchelonCookieUser) 'get user info from DB if isarray(aEchelonUserData)=False then EchelonAccess=2 'username not found - do you wish to register? else 'if username found in db EchelonCookiePassword=Request.Cookies("GamePass") 'Get the password cookie too if EchelonCookiePassword=trim(aEchelonUserData(2,0)) then 'if password cookie matches database session("EchelonID")=aEchelonUserData(0,0) 'write to session EchelonAccess=1 'log in else 'if password incorrect EchelonAccess=3 'failed attempt - password reminder EchelonSuspectID=EchelonCookieUser end if end if end if 'if cookie does not exist, EchelonAccess still =0 (no attempt) end if if EchelonAccess<>1 then 'Check for login data EchelonFormUser=trim(Request.Form("GameUser")) 'Get username from form EchelonFormPassword=trim(Request.Form("GamePass")) 'Get the password data too if len(EchelonFormUser)>0 then 'If formfield not null (else trim will fail) aEchelonUserData=GetEchelonUser(EchelonFormUser) 'get user info from DB if isarray(aEchelonUserData)=False then EchelonAccess=2 'username not found - do you wish to register? EchelonFormRegister=trim(Request.Form("Register")) if EchelonFormRegister="Yes" then if len(EchelonFormPassword)<3 then EchelonAccess=4 else Set Conn = CreateObject("ADODB.Connection") sSQL = "INSERT INTO C_Users (nLevel,nDisabled,sUsername,sPassword,sDisplayName,dCreate,dMod) " 'add user to DB sSQL = sSQL & "VALUES (1,0,'"&EchelonFormUser&"','"&EchelonFormPassword&"','"&EchelonFormUser&"',Now(),Now())" Conn.Open sDSN Conn.Execute(sSQL) Conn.close aEchelonUserData=GetEchelonUser(EchelonFormUser) session("EchelonID")=aEchelonUserData(0,0) 'write to session EchelonFormRememberMe=trim(Request.Form("RememberMe")) if EchelonFormRememberMe="Yes" then Response.Cookies("GameUser")=EchelonFormUser Response.Cookies("GameUser").Expires = Date + 1000 Response.Cookies("GamePass")=EchelonFormPassword Response.Cookies("GamePass").Expires = Date + 1000 end if EchelonAccess=1 'log in firsttime=1 end if end if else 'if username found in db if EchelonFormPassword=aEchelonUserData(2,0) then 'if password from form matches database session("EchelonID")=aEchelonUserData(0,0) 'write to session EchelonFormRememberMe=trim(Request.Form("RememberMe")) if EchelonFormRememberMe="Yes" then Response.Cookies("GameUser")=EchelonFormUser Response.Cookies("GameUser").Expires = Date + 364 Response.Cookies("GamePass")=EchelonFormPassword Response.Cookies("GamePass").Expires = Date + 364 end if EchelonAccess=1 'log in else 'if password incorrect EchelonAccess=3 'failed attempt - password reminder - check for add me, say user taken EchelonSuspectID=EchelonFormUser end if end if 'if username found in db end if 'if login data does not exist, EchelonAccess still =0 (no attempt) end if function GetEchelonUser(username) sSQL="Select nID,sUsername,sPassword,nLevel,nDisabled,sEmail FROM C_Users WHERE sUsername LIKE '"&username&"'" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, sDSN, 0, 1 'adOpenForwardOnly, adLockReadOnly if not rs.eof then aEchelonUserData = rs.GetRows rs.Close Set rs = nothing GetEchelonUser=aEchelonUserData end function function GetUserName(nID) sSQL="Select nID,sDisplayName FROM C_Users WHERE nID="&nID Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, sDSN, 0, 1 'adOpenForwardOnly, adLockReadOnly if not rs.eof then sDisplayName = rs("sDisplayName") else sDisplayName = "User Deleted" end if rs.Close Set rs = nothing GetUserName=sDisplayName end function %> <% function DiscordianizeNumber(num) if len(num)=4 then num="0"&num if len(num)=3 then num="00"&num if len(num)=2 then num="000"&num if len(num)=1 then num="0000"&num DiscordianizeNumber=num end function function DateToDiscord(passeddate,additional) 'date must be "dd/mm/yyyy" - additional: 0=just date, 1=just holyday (blank return if not), 2=both 3=just date,time aOffset = split("0 31 59 90 120 151 181 212 243 273 304 334") 'ignore leap years, since St. Tibbs Day is ignored aDMonth = split("Chaos Discord Confusion Bureaucracy Aftermath") nJulian=cint(aOffset(Month(passeddate)-1))+Day(passeddate) nDDay=nJulian MOD 73 sDMonth=aDMonth(nJulian\73) if additional=3 then aCutDate=split(passeddate) passeddate=aCutDate(0) stime=aCutDate(1) end if nDYear = Year(passeddate) + 1166 sDDate=sDMonth&" "&nDDay&", "&nDYear if additional>0 then if sDMonth="Chaos" AND nDDay=5 then sHolyday="" if sDMonth="Chaos" AND nDDay=37 then sHolyday="" if sDMonth="Chaos" AND nDDay=50 then sHolyday="" if sDMonth="Chaos" AND nDDay=73 then sHolyday="" if sDMonth="Discord" AND nDDay=5 then sHolyday="" if sDMonth="Discord" AND nDDay=28 then sHolyday="" if sDMonth="Discord" AND nDDay=50 then sHolyday="" if sDMonth="Confusion" AND nDDay=5 then sHolyday="" if sDMonth="Confusion" AND nDDay=23 then sHolyday="" if sDMonth="Confusion" AND nDDay=50 then sHolyday="" if sDMonth="Confusion" AND nDDay=57 then sHolyday="" if sDMonth="Bureaucracy" AND nDDay=5 then sHolyday="" if sDMonth="Bureaucracy" AND nDDay=50 then sHolyday="" if sDMonth="Aftermath" AND nDDay=5 then sHolyday="" if sDMonth="Aftermath" AND nDDay=50 then sHolyday="" end if if additional=0 then sFinalDate=sDDate if additional=1 then sFinalDate=sHolyday if additional=2 then sFinalDate=sDDate&sHolyday if additional=3 then sFinalDate=sDDate&" ("&formatDatetime(sTime,vbshorttime)&")" DateToDiscord=sFinalDate end function function EchelonScoreSelf(score) nSecond=Second(Now()) Eris=ErisNumber(55) Eris2=ErisNumber(555) nSecond=nSecond*Eris if isnumeric(score) then score=round(score,0) else score=Eris end if if nSecond Mod 7=0 then Eris=(Eris-Eris)-Eris if nSecond Mod 7=0 then Eris2=(Eris2-Eris2)-Eris2 if nSecond Mod 23=0 then Eris=Eris*Eris if nSecond Mod 23=0 then score=score*Eris if nSecond Mod 25=0 then score=score-Eris2 if len(score)>3 AND instr(score,"-")=0 then score=0-Eris2 if len(score)>4 AND nSecond Mod 2=0 then score=Eris if len(score)>4 AND nSecond Mod 2=1 then score=(Eris2-Eris2)-Eris2 EchelonScoreSelf=score end function function EchelonScore(score,who) 'who: 0=rating self, 1=rating someone else score=round(score,0) nSecond=Second(Now()) Eris=ErisNumber(55) Eris2=ErisNumber(555) nSecond=nSecond*Eris if nSecond Mod 7=0 then Eris=(Eris-Eris)-Eris if nSecond Mod 7=0 then Eris2=(Eris2-Eris2)-Eris2 if nSecond Mod 23=0 then Eris=Eris*Eris if len(score)>5 AND who=0 AND instr(score,"-")=0 then score=((score-score)-score)*Eris if len(score)>5 AND who=1 AND instr(score,"-")=1 then score=(score+score)*Eris if nSecond Mod 5=0 then score=Eris2-Eris if nSecond Mod 7=0 then score=(score-score)-score if nSecond Mod 11=0 then score=score-Eris if nSecond Mod 17=0 then score=(score+score)-Eris if nSecond Mod 23=0 then score=score*Eris if nSecond Mod 42=0 then score=score*Eris2 score=round(score,0) if len(score)>5 AND nSecond Mod 2=0 then score=Eris2 if len(score)>5 AND nSecond Mod 2=1 then score=(Eris2-Eris2)-Eris2 EchelonScore=score end function Function ErisNumber(nHighest) Randomize ErisNumber = Int(Rnd * nHighest) + 1 End Function Function CleanForDB(sContent) sContent=Replace(sContent,"'","'") sContent=Replace(sContent,"") CleanForHTML=sContent End Function Function CleanForForm(sContent) sContent=Replace(sContent,"
",vbcrlf) CleanForForm=sContent End Function function GetPointType(nID) sSQL="Select nID,sTitle FROM C_Type WHERE nID="&nID Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, sDSN, 0, 1 'adOpenForwardOnly, adLockReadOnly if not rs.eof then sTitle = rs("sTitle") else sTitle = "Points" end if rs.Close Set rs = nothing GetPointType=sTitle end function Function CountComments(nID) sSQL="Select COUNT(*) As inttotal from C_Comments where nPlay="&nID Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, sDSN, 0, 1 'adOpenForwardOnly, adLockReadOnly numberofcomments=rs("inttotal") rs.Close Set rs = nothing CountComments=numberofcomments end Function %> <% if len(passid)<1 then passid=request.form("arg1") if len(passimage)<1 then passimage=request.form("arg2") if len(passuserid)<1 then passuserid=request.form("arg3") if passID>0 then sSQL="Select * FROM C_Comments WHERE nGame=1 AND nDisabled=0 AND nPlay="&passid&" order by nID" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, sDSN, 0, 1 'adOpenForwardOnly, adLockReadOnly if not rs.eof then aComments = rs.GetRows rs.Close sSQL="Select nID,sURL FROM C_Pixels WHERE nID="&passid Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, sDSN, 0, 1 'adOpenForwardOnly, adLockReadOnly if not rs.eof then passimage= rs("sURL") rs.Close Set rs = nothing response.write "

" response.write "" response.write "

Played by
"&GetUserName(passuserid)&"

" response.write "

" response.write "

" i=0 response.write "

" For i=lbound(aComments,2) to ubound(aComments,2) response.write "
1. "&GetUserName(aComments(3,i))&"" response.write aComments(8,i)&" " response.write "
   "&aComments(5,i)&" "&GetPointType(aComments(6,i))&"
   " response.write "
   on "&DateToDiscord(aComments(9,i),3)&"
" next Erase aComments response.write "

" if EchelonAccess=1 then response.write "

" response.write "" response.write "Provide Commentary" response.write "" %><% gotome=Request.ServerVariables("script_name") sServer=Request.ServerVariables("SERVER_NAME") if instr(sServer,"games.23ae.com") then response.redirect "http://www.23ae.com/games" sDSN="DRIVER={MySQL ODBC 3.51 Driver};SERVER=mysql251.secureserver.net;DATABASE=23AEGames;USER=23AEGames;PASSWORD=pooponastick23;OPTION=3;" Session.Timeout=60 EchelonAccess=0 EchelonID=session("EchelonID") 'Get session ID data if isnumeric(EchelonID) then 'If session not null (else cint will error) if EchelonID>0 then EchelonAccess=1 'if session ID exists, log in end if 'if session ID data does not exist, EchelonAccess still =0 (no attempt) if EchelonAccess<>1 then 'Check for cookie EchelonCookieUser=Request.Cookies("GameUser") 'Get the username cookie if len(EchelonCookieUser)>0 then 'If cookie not empty (else trim will fail) aEchelonUserData=GetEchelonUser(EchelonCookieUser) 'get user info from DB if isarray(aEchelonUserData)=False then EchelonAccess=2 'username not found - do you wish to register? else 'if username found in db EchelonCookiePassword=Request.Cookies("GamePass") 'Get the password cookie too if EchelonCookiePassword=trim(aEchelonUserData(2,0)) then 'if password cookie matches database session("EchelonID")=aEchelonUserData(0,0) 'write to session EchelonAccess=1 'log in else 'if password incorrect EchelonAccess=3 'failed attempt - password reminder EchelonSuspectID=EchelonCookieUser end if end if end if 'if cookie does not exist, EchelonAccess still =0 (no attempt) end if if EchelonAccess<>1 then 'Check for login data EchelonFormUser=trim(Request.Form("GameUser")) 'Get username from form EchelonFormPassword=trim(Request.Form("GamePass")) 'Get the password data too if len(EchelonFormUser)>0 then 'If formfield not null (else trim will fail) aEchelonUserData=GetEchelonUser(EchelonFormUser) 'get user info from DB if isarray(aEchelonUserData)=False then EchelonAccess=2 'username not found - do you wish to register? EchelonFormRegister=trim(Request.Form("Register")) if EchelonFormRegister="Yes" then if len(EchelonFormPassword)<3 then EchelonAccess=4 else Set Conn = CreateObject("ADODB.Connection") sSQL = "INSERT INTO C_Users (nLevel,nDisabled,sUsername,sPassword,sDisplayName,dCreate,dMod) " 'add user to DB sSQL = sSQL & "VALUES (1,0,'"&EchelonFormUser&"','"&EchelonFormPassword&"','"&EchelonFormUser&"',Now(),Now())" Conn.Open sDSN Conn.Execute(sSQL) Conn.close aEchelonUserData=GetEchelonUser(EchelonFormUser) session("EchelonID")=aEchelonUserData(0,0) 'write to session EchelonFormRememberMe=trim(Request.Form("RememberMe")) if EchelonFormRememberMe="Yes" then Response.Cookies("GameUser")=EchelonFormUser Response.Cookies("GameUser").Expires = Date + 1000 Response.Cookies("GamePass")=EchelonFormPassword Response.Cookies("GamePass").Expires = Date + 1000 end if EchelonAccess=1 'log in firsttime=1 end if end if else 'if username found in db if EchelonFormPassword=aEchelonUserData(2,0) then 'if password from form matches database session("EchelonID")=aEchelonUserData(0,0) 'write to session EchelonFormRememberMe=trim(Request.Form("RememberMe")) if EchelonFormRememberMe="Yes" then Response.Cookies("GameUser")=EchelonFormUser Response.Cookies("GameUser").Expires = Date + 364 Response.Cookies("GamePass")=EchelonFormPassword Response.Cookies("GamePass").Expires = Date + 364 end if EchelonAccess=1 'log in else 'if password incorrect EchelonAccess=3 'failed attempt - password reminder - check for add me, say user taken EchelonSuspectID=EchelonFormUser end if end if 'if username found in db end if 'if login data does not exist, EchelonAccess still =0 (no attempt) end if function GetEchelonUser(username) sSQL="Select nID,sUsername,sPassword,nLevel,nDisabled,sEmail FROM C_Users WHERE sUsername LIKE '"&username&"'" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, sDSN, 0, 1 'adOpenForwardOnly, adLockReadOnly if not rs.eof then aEchelonUserData = rs.GetRows rs.Close Set rs = nothing GetEchelonUser=aEchelonUserData end function function GetUserName(nID) sSQL="Select nID,sDisplayName FROM C_Users WHERE nID="&nID Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, sDSN, 0, 1 'adOpenForwardOnly, adLockReadOnly if not rs.eof then sDisplayName = rs("sDisplayName") else sDisplayName = "User Deleted" end if rs.Close Set rs = nothing GetUserName=sDisplayName end function %> <% function DiscordianizeNumber(num) if len(num)=4 then num="0"&num if len(num)=3 then num="00"&num if len(num)=2 then num="000"&num if len(num)=1 then num="0000"&num DiscordianizeNumber=num end function function DateToDiscord(passeddate,additional) 'date must be "dd/mm/yyyy" - additional: 0=just date, 1=just holyday (blank return if not), 2=both 3=just date,time aOffset = split("0 31 59 90 120 151 181 212 243 273 304 334") 'ignore leap years, since St. Tibbs Day is ignored aDMonth = split("Chaos Discord Confusion Bureaucracy Aftermath") nJulian=cint(aOffset(Month(passeddate)-1))+Day(passeddate) nDDay=nJulian MOD 73 sDMonth=aDMonth(nJulian\73) if additional=3 then aCutDate=split(passeddate) passeddate=aCutDate(0) stime=aCutDate(1) end if nDYear = Year(passeddate) + 1166 sDDate=sDMonth&" "&nDDay&", "&nDYear if additional>0 then if sDMonth="Chaos" AND nDDay=5 then sHolyday="

Mungday

" if sDMonth="Chaos" AND nDDay=37 then sHolyday="

Burrday

" if sDMonth="Chaos" AND nDDay=50 then sHolyday="

Chaoflux

" if sDMonth="Chaos" AND nDDay=73 then sHolyday="

Pi Day

" if sDMonth="Discord" AND nDDay=5 then sHolyday="

Mojoday

" if sDMonth="Discord" AND nDDay=28 then sHolyday="

Mu-Day

" if sDMonth="Discord" AND nDDay=50 then sHolyday="

Discoflux

" if sDMonth="Confusion" AND nDDay=5 then sHolyday="

Syaday/Guliday

" if sDMonth="Confusion" AND nDDay=23 then sHolyday="

Opposite Day

" if sDMonth="Confusion" AND nDDay=50 then sHolyday="

Confuflux

" if sDMonth="Confusion" AND nDDay=57 then sHolyday="

Pi Approx. Day

" if sDMonth="Bureaucracy" AND nDDay=5 then sHolyday="

Zaraday

" if sDMonth="Bureaucracy" AND nDDay=50 then sHolyday="

Bureflux

" if sDMonth="Aftermath" AND nDDay=5 then sHolyday="

Maladay

" if sDMonth="Aftermath" AND nDDay=50 then sHolyday="

Afflux

" end if if additional=0 then sFinalDate=sDDate if additional=1 then sFinalDate=sHolyday if additional=2 then sFinalDate=sDDate&sHolyday if additional=3 then sFinalDate=sDDate&" ("&formatDatetime(sTime,vbshorttime)&")" DateToDiscord=sFinalDate end function function EchelonScoreSelf(score) nSecond=Second(Now()) Eris=ErisNumber(55) Eris2=ErisNumber(555) nSecond=nSecond*Eris if isnumeric(score) then score=round(score,0) else score=Eris end if if nSecond Mod 7=0 then Eris=(Eris-Eris)-Eris if nSecond Mod 7=0 then Eris2=(Eris2-Eris2)-Eris2 if nSecond Mod 23=0 then Eris=Eris*Eris if nSecond Mod 23=0 then score=score*Eris if nSecond Mod 25=0 then score=score-Eris2 if len(score)>3 AND instr(score,"-")=0 then score=0-Eris2 if len(score)>4 AND nSecond Mod 2=0 then score=Eris if len(score)>4 AND nSecond Mod 2=1 then score=(Eris2-Eris2)-Eris2 EchelonScoreSelf=score end function function EchelonScore(score,who) 'who: 0=rating self, 1=rating someone else score=round(score,0) nSecond=Second(Now()) Eris=ErisNumber(55) Eris2=ErisNumber(555) nSecond=nSecond*Eris if nSecond Mod 7=0 then Eris=(Eris-Eris)-Eris if nSecond Mod 7=0 then Eris2=(Eris2-Eris2)-Eris2 if nSecond Mod 23=0 then Eris=Eris*Eris if len(score)>5 AND who=0 AND instr(score,"-")=0 then score=((score-score)-score)*Eris if len(score)>5 AND who=1 AND instr(score,"-")=1 then score=(score+score)*Eris if nSecond Mod 5=0 then score=Eris2-Eris if nSecond Mod 7=0 then score=(score-score)-score if nSecond Mod 11=0 then score=score-Eris if nSecond Mod 17=0 then score=(score+score)-Eris if nSecond Mod 23=0 then score=score*Eris if nSecond Mod 42=0 then score=score*Eris2 score=round(score,0) if len(score)>5 AND nSecond Mod 2=0 then score=Eris2 if len(score)>5 AND nSecond Mod 2=1 then score=(Eris2-Eris2)-Eris2 EchelonScore=score end function Function ErisNumber(nHighest) Randomize ErisNumber = Int(Rnd * nHighest) + 1 End Function Function CleanForDB(sContent) sContent=Replace(sContent,"'","'") sContent=Replace(sContent,"") CleanForHTML=sContent End Function Function CleanForForm(sContent) sContent=Replace(sContent,"
",vbcrlf) CleanForForm=sContent End Function function GetPointType(nID) sSQL="Select nID,sTitle FROM C_Type WHERE nID="&nID Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, sDSN, 0, 1 'adOpenForwardOnly, adLockReadOnly if not rs.eof then sTitle = rs("sTitle") else sTitle = "Points" end if rs.Close Set rs = nothing GetPointType=sTitle end function Function CountComments(nID) sSQL="Select COUNT(*) As inttotal from C_Comments where nPlay="&nID Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, sDSN, 0, 1 'adOpenForwardOnly, adLockReadOnly numberofcomments=rs("inttotal") rs.Close Set rs = nothing CountComments=numberofcomments end Function %> <% 'add type to DB exists=0 NewPointType=request.form("newpointtype") NewPointType=CleanForDB(NewPointType) NewPointType=Left(NewPointType,15) if len(NewPointType)>0 then sSQL="Select nID,nDisabled,sTitle FROM C_Type where nDisabled=0 AND sTitle LIKE '"&NewPointType&"'" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, sDSN, 0, 1 'adOpenForwardOnly, adLockReadOnly if not rs.eof then exists=1 rs.Close Set rs = nothing if exists=0 then Set Conn = CreateObject("ADODB.Connection") sSQL = "INSERT INTO C_Type (nDisabled,sTitle,dCreate,dMod)" sSQL = sSQL & "VALUES (0,'"&NewPointType&"',Now(),Now())" Conn.Open sDSN Conn.Execute(sSQL) Conn.close Set Conn=nothing end if end if 'collect data sSQL="Select nID,nDisabled,sTitle FROM C_Type where nDisabled=0 order by sTitle" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, sDSN, 0, 1 'adOpenForwardOnly, adLockReadOnly if not rs.eof then aPointTypes = rs.GetRows rs.Close Set rs = nothing 'write data response.write "

" response.write "

Score/Point Type

" response.write "" response.write "" response.write "Points" if isarray(aPointTypes) then x=0 for x=lbound(aPointTypes,2) to ubound(aPointTypes,2) if aPointTypes(2,x)<>"Points" then response.write ""&aPointTypes(2,x)&"" end if next end if response.write "" response.write "

or Add New Point Type

" response.write "" response.write "" response.write "

" %><% response.write "" response.write "" response.write "" response.write "

" response.write "" response.write "

" else response.write "

LOG IN to comment and score

" end if response.write "

" else response.write "

No Cards Found!

" response.write "

Something went wrong!!!

" response.write "

QUICK! Run around in circles and scream!!!

" end if %><% end if response.write "

" response.write "" response.write "