Computer Network Exam
<%
if request("do")="next" then
i=request("i")
i=i+1
elseif request("do")="pervious" then
i=request("i")
i=i-1
else
i=2
end if
selectSQL="select * from question "
Dim oRecordset
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3 'adUseClientrs.CursorLocation = 3 ' adUseClient
rs.pagesize=1
rs.open selectSQL,ado
if cint(i)>rs.pagecount+1 then
'update_Answer()
response.write "end of questions.............." & rs.pagecount &"?"
response.redirect("result.asp")
end if
rs.AbsolutePage=i-1
if cint(i)<2 then
response.redirect ("exam2.asp")
end if
if NOT rs.EOF then
%>
<%=rs.FIELDS("Question").VALUE%>
<%=rs.FIELDS("Q_ID").VALUE%>
name="m">
Q
<%=rs.FIELDS("a").VALUE%>
a
<%=rs.FIELDS("b").VALUE%>
b
<%=rs.FIELDS("c").VALUE%>
c
<%=rs.FIELDS("d").VALUE%>
d
" style="float: left">mark
<%
update_Answer()
%>
<%
if request("do")="review" then
response.redirect("review.asp")
end if
%>
<%
if request("do")="end" then
response.redirect ("result.asp")
end if
%>
<%
end if
%>
name="i">
name="i">
<% update_Answer()%>
<%
Sub update_Answer()
r=request("radio")
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT answer.* FROM answer WHERE Q_ID="&(rs.FIELDS("Q_ID").VALUE-1)
'Reset server objects
rs.Close
Set rs = Nothing
Set rs = Server.CreateObject("ADODB.Recordset")
'Set the cursor type we are using so we can navigate through the recordset
rs.CursorType = 2
'Set the lock type so that the record is locked by ADO when it is updated
rs.LockType = 3
'Open the recordset with the SQL query
rs.Open strSQL, ado
'Update the record in the recordset
rs.Fields("user_answer")=cint®
'Write the updated recordset to the database
rs.Update
'Reset server objects
rs.Close
Set rs = Nothing
Set adoCon = Nothing
End Sub
%>
