<%
strAction = request("action")
Select Case strAction
Case "activate"
strCursor = request.QueryString("cursor")
strID = request.QueryString("pID")
strSQL = "UPDATE T_POLLS SET pActive = "&strCursor&" WHERE id = "& strID
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open strConn
MyConn.Execute(strSQL)
MyConn.Close
Set MyConn = Nothing
Response.Redirect(request.ServerVariables("HTTP_REFERER"))
Case "delete"
strID = request.QueryString("pID")
strSQL = "DELETE FROM T_POLLS WHERE id = "& strID
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open strConn
MyConn.Execute(strSQL)
MyConn.Close
Set MyConn = Nothing
strSQL = "DELETE FROM T_ANSWERS WHERE pID_FK = "& strID
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open strConn
MyConn.Execute(strSQL)
MyConn.Close
Set MyConn = Nothing
strSQL = "DELETE FROM T_RESULTS WHERE pID_FK = "& strID
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open strConn
MyConn.Execute(strSQL)
MyConn.Close
Set MyConn = Nothing
response.Redirect("../admin/?cmd=polls&view=list")
Case "create"
strQuestion = request.Form("q")
strAnswers = request.Form("a")
arAnswers = Split(strAnswers,",")
' create the poll and get top poll ID*/
set conn = Server.CreateObject("ADODB.Connection")
conn.open strConn
conn.execute "INSERT INTO T_POLLS (pName,pQuestion) values ('"&replace(strQuestion,"'","''")&"','"&replace(strQuestion,"'","''")&"')"
set rs = conn.execute("select MAX(ID) from T_POLLS")
strNewID = rs(0)
rs.close
set rs = nothing
conn.close
set conn = nothing
' create the questions and results*/
response.Write("new ID: "&strNewID &"
")
Dim strItem
For Each strItem in arAnswers
Response.Write strItem & "
"
set conn = Server.CreateObject("ADODB.Connection")
conn.open strConn
conn.execute "INSERT INTO T_ANSWERS (pID_FK,answer) values ("&strNewID&",'"&replace(strItem,"'","''")&"')"
set rs2 = conn.execute("select MAX(ID) from T_ANSWERS")
strTmpID = rs2(0)
rs2.close
set rs2 = nothing
conn.execute "INSERT INTO T_RESULTS (pID_FK,aID_FK) values ("&strNewID&","&strTmpID&")"
conn.close
set conn = nothing
Next
response.Redirect("../admin/?cmd=polls&view=list")
%>
<%
End Select
%>