%
Set mrs=Server.CreateObject("ADODB.recordset")
sql = "Select Max(QuestionDate) as maxQDate From tblQuestion"
mrs.Open sql,DBConn,3,1
mdate = mrs("maxQDate")
mrs.Close
Set mrs = Nothing
%>
<%
If IsNull(mdate) OR mdate = "" OR mdate < Date() Then
'Response.Write "here we go"
'Response.End
Response.Redirect("QuizUpdater.asp")
End if
%>
<%
set cn=Server.CreateObject("adodb.connection")
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db\quiz.mdb") & ";Persist Security Info=False"
cn.Open
'ssql="select * from tblQuestion where QuestionID=(select max(QuestionID) from tblQuestion)"
ssql= "SELECT * from tblQuestion Where Month(QuestionDate) = " & Month(Date()) & " and Year(QuestionDate) = " & Year(Date())
set rs=cn.Execute(ssql)
assql="select * from tblAnswer where QuestionID=" & rs("QuestionID")
set ars=cn.Execute(assql)
%>
Hakim Mohammed Said
 |
 |
|
Quiz |
|
|