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

"> <% do while ars.eof=false %> <% ars.movenext loop %>

This quiz about Hakim Mohammed Said is based on information  provided on this web site. Browse the website and you will get the correct answer. Don't forget to give your email address in the space provided. Winner will get a prize from Hamdard. In case of more than one correct entries, winner will be decided through a draw.

 

"><%=rs("Description")%>
 

">"><%=ars("Description")%>
   

Your Name   

 

Email