<%@ Language="VBScript" %> <% Dim Connect, connr Dim msg,act,question,ans,pic,date,id msg = Request.QueryString("msg") act = Request.QueryString("act") question= Request.Form("question") ans = Request.Form("ans") pic = Request.Form("pic") date = now() id = Request.QueryString("pollid") %> <%IF ans = "" Then%>
<%ELSE%> <%IF act = "q" Then%> <% Dim rsQAdd Set rsQAdd= Server.CreateObject("ADODB.Recordset") rsQAdd.open "questions", connr, 3, 3 rsQAdd.AddNew rsQAdd("poll_name") = question rsQAdd("date") = date rsQAdd("active") = "No" rsQAdd.Update id = rsQAdd("id") rsQAdd.close set rsQAdd = nothing Dim rsAAdd Set rsAAdd= Server.CreateObject("ADODB.Recordset") rsAAdd.open "answers", connr, 3, 3 rsAAdd.AddNew rsAAdd("answer") = ans rsAAdd("picture") = pic rsAAdd("question_id") = id rsAAdd.Update rsAAdd.close set rsAAdd = nothing Response.Redirect("addpoll.asp?msg=add&pollid="&id&"") %> <%ELSE%> <% Dim rsAAdd2 Set rsAAdd2= Server.CreateObject("ADODB.Recordset") rsAAdd2.open "answers", connr, 3, 3 rsAAdd2.AddNew rsAAdd2("answer") = ans rsAAdd2("picture") = pic rsAAdd2("question_id") = id rsAAdd2.Update rsAAdd2.close set rsAAdd2 = nothing Response.Redirect("addpoll.asp?msg=add&pollid="&id&"") %> <%END IF%> <%END IF%>