<%@LANGUAGE="VBSCRIPT"%> Add Questions


<% if request.Form("add") = "true" then Query = "select * FROM questions" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open Query, test_connector, 3, 3 RS.addnew RS("test_name") = request.form("test_name") RS("question") = request.form("question") RS("picture_q") = request.form("picture_q") RS("short_answer") = request.form("short_answer") RS("answer1") = request.form("answer1") RS("picture_a1") = request.form("picture1") if request.form("a1") = 1 then RS("a1") = true end if RS("answer2") = request.form("answer2") RS("picture_a2") = request.form("picture2") if request.form("a2") = 1 then RS("a2") = true end if RS("answer3") = request.form("answer3") RS("picture_a3") = request.form("picture3") if request.form("a3") = 1 then RS("a3") = true end if RS("answer4") = request.form("answer4") RS("picture_a4") = request.form("picture4") if request.form("a4") = 1 then RS("a4") = true end if RS("answer5") = request.form("answer5") RS("picture_a5") = request.form("picture5") if request.form("a5") = 1 then RS("a5") = true end if RS("help_file") = request.form("help_file") RS("sound") = request.form("sound") RS("sound1") = request.form("sound1") RS("sound2") = request.form("sound2") RS("sound3") = request.form("sound3") RS("sound4") = request.form("sound4") RS("sound5") = request.form("sound5") RS("category") = request.form("category") RS.update response.Redirect("add_questions.asp?test_name=" & request.form("test_name") & "&last=" & request.form("question") & "&category=" & request.form("category")) end if if request.QueryString("last") > "" then Response.write "Last Question Entered : " & request.QueryString("last") end if %>
Test Name:
Question Category:
Category Disabled on Free Test
Check Box If
Question:
Answer Is Correct
Question Picture:
Question and Sound Disable on Free Test
Question Sound:  
Short Answer:
Short Answer Disabled on Free Test
Answer1: A1:
A1 Picture:  
A1 Sound:  
Answer2: A2:
A2 Picture:  
A2 Sound:  
Answer3: A3:
A3 Picture:  
A3 Sound:  
Answer4: A4:
A4 Picture:  
A4 Sound:  
Answer5: A5:
A5 Picture:  
A5 Sound:  
Help File
Help File Disabled on Free Test
www.000webhost.com
<% test_name.Close() %>