inst_create_test.asp

A java project in e-bussiness module.

		       Response.Write "<td><input type='text' size='30' name='mc_question_" & question_counter & "'></td>"
		       Response.Write "<td><table><tr>"
		       ' display answer selections
		       FOR choice_counter=1 to session("num_mc_choices")				  
		          Response.Write "<td><b>" & Chr(64 + choice_counter) & ".</b></td>"
		          Response.Write "<td><input type='text' size='15' name='mc_choice_" & question_counter & chr(64 + choice_counter) & "'></td>"
               
			   	  IF choice_counter mod 3 = 0 THEN
				     Response.Write "</tr><tr>"
				  END IF
			   NEXT
		       Response.Write "</table></td>"
		       Response.Write "<td><center><select name='mc_answer_" & question_counter & "'>"
		       ' display correct answer drop down list
	           FOR choice_counter=1 to session("num_mc_choices")
	              Response.Write "<option value=" & chr(64 + choice_counter) & ">" & chr(64 + choice_counter) & ""
               NEXT
		       Response.Write "</select></center><td>"	
            NEXT
	        Response.Write "</table></p>"
         END IF
      END IF
   ELSE	    
      session("num_multiple_choice")=0
   END IF
   
   ' table to retrieve true/false information
   IF request("true_false") = "yes" THEN
      IF isnumeric(request("num_true_false")) AND request("num_true_false") > "0" THEN
	     session("num_true_false") = request("num_true_false")
		 Response.Write "<div id=secheader>True/False</div>"
	     Response.Write "<table border=1><tr><td></td>"
		 Response.Write "<td>Question</td>"
		 Response.Write "<td>Answer</td></tr>"
	     FOR question_counter=question_counter to (request("num_true_false") + question_counter - 1)
	        Response.Write "<tr><td>" & question_counter & "</td>"
		    Response.Write "<td><input type='text' size='30' name='tf_question_" & question_counter & "'></td>"
			Response.Write "<td><select name='tf_answer_" & question_counter & "'>"
			Response.Write "<option value='TRUE'>TRUE"
			Response.Write "<option value='FALSE'>FALSE"
			Response.Write "</select></td>"
		 NEXT
		 Response.Write "</table></p>"
      END IF
   ELSE
     session("num_true_false")=0
   END IF

   ' table to retrieve modified true/false information
   IF request("m_true_false") = "yes" THEN
      IF isnumeric(request("num_m_true_false")) AND request("num_m_true_false") > "0" THEN
	     session("num_m_true_false") = request("num_m_true_false")
		 Response.Write "<div id=secheader>Modified True/False</div>"
	     Response.Write "<table border=1><tr><td></td>"
		 Response.Write "<td>Question</td>"
		 Response.Write "<td>Keyword</td>"
		 Response.Write "<td>Answer</td>"
		 Response.Write "<td>Correction If False</td>"
	     FOR question_counter=question_counter to (request("num_m_true_false") + question_counter - 1)
	        Response.Write "<tr><td>" & question_counter & "</td>"
		    Response.Write "<td><input type='text' size='30' name='mtf_question_" & question_counter & "'></td>"
	        Response.Write "<td><input type='text' size='15' name='mtf_keyword_" & question_counter & "'></td>"
			Response.Write "<td><select name='mtf_answer_" & question_counter & "'>"
			Response.Write "<option value='TRUE'>TRUE"
			Response.Write "<option value='FALSE'>FALSE"
			Response.Write "</select></td>"
			Response.Write "<td><center><input type='text' size='15' name='mtf_correction_" & question_counter & "'></center></td></tr>"
		 NEXT
		 Response.Write "</table></p>"
      END IF
   ELSE
     session("num_m_true_false")=0
   END IF

   ' table to retrieve matching information
   IF request("matching") = "yes" THEN
      IF isnumeric(request("num_matching")) AND request("num_matching") > "0" THEN
	     choice_counter=1
		 session("num_matching") = request("num_matching")
		 Response.Write "<div id=secheader>Matching</div>"
	     Response.Write "<table border=1><tr><td></td>"
		 Response.Write "<td>Match List</td>"
		 Response.Write "<td>Answers Jumbled</td>"
		 Response.Write "<td>Correct Match</td>"
	     FOR question_counter=question_counter to (request("num_matching") + question_counter - 1)
	        Response.Write "<tr><td>" & question_counter & "</td>"
		    Response.Write "<td><input type='text' size='15' name='match_list_" & question_counter & "'></td>"
			Response.Write "<td><table border='0'><tr><td width='20'><b>" & Chr(64 + choice_counter) & ".</b></td>"
			Response.Write "<td><input type='text' size='15' name='match_jumbled_" & question_counter & "'></td></tr></table></td>"
			Response.Write "<td><center><select name='match_answer_" & question_counter & "'>"
			' display correct answer drop down list
	        FOR match_counter=1 to request("num_matching")
	           Response.Write "<option value=" & chr(64 + match_counter) & ">" & chr(64 + match_counter) & ""
            NEXT
		    Response.Write "</select></center><td>"	
			choice_counter=choice_counter+1
		 NEXT
		 Response.Write "</table></p>"
      END IF
   ELSE
     session("num_matching")=0
   END IF
   
   ' table to retrieve completion information
   IF request("completion") = "yes" THEN
      IF isnumeric(request("num_completion")) AND request("num_completion") > "0" THEN
	     session("num_completion") = request("num_completion")
		 Response.Write "<div id=secheader>Completion</div>"
	     Response.Write "<table border=1><tr><td></td>"
		 Response.Write "<td>Statement</td>"
		 Response.Write "<td>Completion</td></tr>"
	     FOR question_counter=question_counter to (request("num_completion") + question_counter - 1)
	        Response.Write "<tr><td>" & question_counter & "</td>"
		    Response.Write "<td><input type='text' size='30' name='comp_question_" & question_counter & "'></td>"
			Response.Write "<td><input type='text' size='15' name='comp_answer_" & question_counter & "'></td></tr>"
		 NEXT
		 Response.Write "</table></p>"
      END IF
   ELSE
      session("num_completion")=0
   END IF
   
   ' table to retrieve short answer information
   IF request("short_answer") = "yes" THEN
      IF isnumeric(request("num_short_answer")) AND request("num_short_answer") > "0" THEN
	     session("num_short_answer") = request("num_short_answer")
		 Response.Write "<div id=secheader>Short Answer</div>"
	     Response.Write "<table border=1><tr><td></td>"
		 Response.Write "<td>Question</td>"
		 Response.Write "<td>Answer/Keywords</td></tr>"
	     FOR question_counter=question_counter to (request("num_short_answer") + question_counter - 1)
	        Response.Write "<tr><td>" & question_counter & "</td>"
		    Response.Write "<td><input type='text' size='30' name='sa_question_" & question_counter & "'></td>"
			Response.Write "<td><center><input type='text' size='15' name='sa_answer_" & question_counter & "'></center></td></tr>"
		 NEXT
		 Response.Write "</table></p>"
      END IF
   ELSE
     session("num_short_answer")=0
   END IF
   
   ' table to retrieve essay information
   IF request("essay") = "yes" THEN
      IF isnumeric(request("num_essay")) AND request("num_essay") > "0" THEN
	     session("num_essay") = request("num_essay")
		 Response.Write "<div id=secheader>Essay</div>"
	     Response.Write "<table border=1><tr><td></td>"
		 Response.Write "<td>Question</td>"
		 Response.Write "<td>Answer/Keywords</td></tr>"
	     FOR question_counter=question_counter to (request("num_essay") + question_counter - 1)
	        Response.Write "<tr><td>" & question_counter & "</td>"
		    Response.Write "<td><input type='text' size='30' name='essay_question_" & question_counter & "'></td>"
			Response.Write "<td><textarea cols='50' name='essay_answer_" & question_counter & "'></textarea></td></tr>"
		 NEXT
		 Response.Write "</table></p>"
      END IF
   ELSE
     session("num_essay")=0
   END IF
   
   IF error_counter = 0 THEN 
      Response.Write "<p><input type='submit' value='Submit Test'>"
	  Response.Write "<input type='reset'  value='Clear All'></FORM>"
   END IF
%>
</td></tr>

<tr><td></td><td colspan='2'><br><br><hr size='2' color='#000000'>
<font size='1'>Powered by Netest</font>
</td></tr></table>
</body>
</html>