<%
Set rs = Server.CreateObject("ADODB.Recordset")
set rs.activeConnection = conn
rs.CursorType = adOpenStatic
lSecenekID = CLng(request("ID"))
EnqueteID = CLng(request("AnketID"))
if request("kaydet") <> "" then
if lSecenekID = 0 then
sSQL = "SELECT OpcaoID, perguntaID, OpcaoTexto, InformacoesAdicionais FROM respostas WHERE OpcaoID = 0"
rs.Open sSQL, , , adCmdTable
rs.AddNew
else
sSQL = "SELECT OpcaoID, perguntaID, OpcaoTexto, InformacoesAdicionais FROM respostas WHERE OpcaoID = " & lSecenekID
rs.Open sSQL, , , adCmdTable
end if
rs("perguntaID") = EnqueteID
rs("OpcaoTexto") = request("txtOpcaoTexto")
rs("InformacoesAdicionais") = request("txtAdditionalInfo")
rs.Update
rs.close
response.redirect "enquete-editar.asp?ID=" & EnqueteID
else
sSQL = "SELECT perguntaID, OpcaoTexto, InformacoesAdicionais FROM respostas WHERE OpcaoID = " & lSecenekID
rs.Open sSQL, , , adCmdTable
if not rs.eof or not rs.bof then
sOpcaoTexto = rs("OpcaoTexto")
sAdditionalInfo = rs("InformacoesAdicionais")
EnqueteID = rs("perguntaID")
end if
rs.close
sSQL = "SELECT PerguntaNome, PerguntaQuestao FROM perguntas WHERE perguntaID = " & EnqueteID
rs.open sSQL, , , adCmdTable
sPerguntaNome = rs("PerguntaNome")
sPerguntaQuestao = rs("PerguntaQuestao")
rs.close
%>
<%
end if
%>