Network <%@ language=vbscript%>
<%
If Request.ServerVariables ("http_method") = "POST" Then
If Request.Form ("submit") = "Join" Then
' Process join question request
Set Mrs=server. CreateObject ("Adodb.recordset")
Mrs. activeconnection= "Dsn=testsys"
Mrs. Source= "SELECT * from Question"
Mrs. Open, 1,3
' Add the question content to the table question of the database
Mrs. AddNew
Mrs ("Teachid") =session ("Teachid")
Mrs ("sub") =request.form ("Selsub")
Mrs ("question") =request.form ("question")
Mrs ("A") =request.form ("Opta")
Mrs ("B") =request.form ("OPTB")
Mrs ("C") =request.form ("OPTC")
Mrs ("D") =request.form ("Optd")
Mrs ("Answer") =request.form ("Answer")
Mrs. Update
Mrs. Close
Set mrs=nothing
End If
End If
%>
<HTML>
<HEAD>
<meta name= "generator" content= "Microsoft Visual Studio 6.0" >
</HEAD>
<BODY>
<form action= "taddquestion.asp" Method=post id=form1 name=form1>
<p><strong><font Color=crimson face= Young Round
Size=4> to the question library to add the questions </FONT></STRONG></P>
<P> Courses---
<%response.write Request.Form ("Selsub")%></p>
<P>
<table border=0 cellpadding=1 cellspacing=1 width=90%>
<TR>
<TD> Topics </TD></TR>
<TR>
<td><textarea id=textarea1 name=question style= "HEIGHT:114PX; width:60% "></TEXTAREA></TD></TR>
<TR>
<TD> Choose the answer
<TR>
<td>a.
<input id=text1 name=opta style= "HEIGHT:21PX; width:40% ">
<TR>
<TD>
<p>b.
<input id=text2 NAME=OPTB style= "HEIGHT:21PX; width:40% "></P>
<TR>
<td>c.
<input id=text3 NAME=OPTC style= "HEIGHT:21PX; width:40% ">
<TR>
<TD>
<p>d.
<input id=text4 name=optd style= "HEIGHT:21PX; width:40% "></P>
<TR>
<TD>
<P> correct answers
<input id=radio1 name=answer Type=radio value=a>a
<input Id=radio2 name=answer Type=radio value=b>b
<input Id=radio3 name=answer Type=radio value=c>c
<input Id=radio4 name=answer Type=radio value=d>d
</P>
</td></tr></table><input id=submit1 name=submit type=submit value= Join >
<%
' Save the account name currently added to the question library with type hidden input
Response.Write "<input Type=hidden name=selsub value=" & Request.Form ("Selsub") & ">"
%>
</P>
</FORM>
</BODY>
</HTML>