<%@LANGUAGE="VBSCRIPT"%> Edit/Delet Question


<% if request.Form("delete") = "true" then Query = "delete FROM questions where id=" & request.Form("id") Set RS = Server.CreateObject("ADODB.Recordset") RS.Open Query, test_connector, 3, 3 response.Redirect("edit_question.asp?test_name=" & request.Form("test")) end if if request.Form("update") = "true" then Query = "select * FROM questions where id=" & request.Form("id") Set RS = Server.CreateObject("ADODB.Recordset") RS.Open Query, test_connector, 3, 3 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("picture_a1") if request.form("a1") = 1 then RS("a1") = true else RS("a1") = false end if RS("answer2") = request.form("answer2") RS("picture_a2") = request.form("picture_a2") if request.form("a2") = 1 then RS("a2") = true else RS("a2") = false end if RS("answer3") = request.form("answer3") RS("picture_a3") = request.form("picture_a3") if request.form("a3") = 1 then RS("a3") = true else RS("a3") = false end if RS("answer4") = request.form("answer4") RS("picture_a4") = request.form("picture_a4") if request.form("a4") = 1 then RS("a4") = true else RS("a4") = false end if RS("answer5") = request.form("answer5") RS("picture_a5") = request.form("picture_a5") if request.form("a5") = 1 then RS("a5") = true else RS("a5") = false end if RS("help_file") = request.form("help_file") RS("category") = request.form("category") 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.update RS.close response.Redirect("edit_question.asp?test_name=" & request.Form("test")) end if %> &test_name=<%= request.QueryString("test_name") %>"> ">
Test Name
Category
Category Disabled on Free Test
Check Box If
Question
" size="50">
Answer Is Correct
Question Picture:
Picture & Sound Disabled on Free Test
Question Sound:  
Short Answer:
Short Answer disabled on Free Test
Answer1
" size="50">
a1:
>
Answer 1 Picture
 
Question 1 Sound:  
Answer 2
" size="50">
a2:
>
Answer 2 Picture
 
Question 2 Sound:  
Answer 3
" size="50">
a3:
>
Answer 3 Picture
 
Question 3 Sound:  
Answer 4
" size="50">
a4:
>
Answer 4 Picture
 
Question 4 Sound:  
Answer 5
" size="50">
a5:
>
Answer 5 Picture
 
Question 5 Sound:  
Help File
Help File Disabled on Free Test
"> ">
"> ">
www.000webhost.com
<% question.Close() %> <% test_name.Close() %>