<% Option Explicit %> Last Contest Answers

Last Contest Answers

<% Dim connect,userquery,thisuser,myqtext, myanswer,myweek,n,n1 Set connect = Server.CreateObject("ADODB.Connection") connect.Open "lucy" Set thisuser = Server.CreateObject("ADODB.Recordset") userquery = "SELECT * FROM qrycontest" thisuser.Open userquery,connect,adOpenStatic,adLockOptimistic n = thisuser.RecordCount If n > 0 Then myweek = thisuser("week") - 1 Else Set thisuser = Server.CreateObject("ADODB.Recordset") userquery = "SELECT * FROM mainqa" thisuser.Open userquery,connect,adOpenStatic,adLockOptimistic n1 = thisuser.RecordCount If n1 = 50 Then myweek = 50 Else myweek = 0 End If End If If myweek > 0 Then Set thisuser = Server.CreateObject("ADODB.Recordset") userquery = "SELECT * FROM mainqa WHERE week LIKE '" & myweek & "'" thisuser.Open userquery,connect,adOpenStatic,adLockOptimistic myqtext = thisuser("qtext") myanswer = thisuser("fullanswer") thisuser.Close End If %>

Contest number <%=myweek%>


<% If myweek > 0 Then %>

Question: <%=myqtext%>
Answer: <%=myanswer%>

<% Else %>

You have to wait until next week to get the answers.

<% End If %>

Contest index page | Main page