<%
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.