<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% if request.Form("pergunta") <> "" then Set rs_PergEnquete_cmd = Server.CreateObject ("ADODB.Command") rs_PergEnquete_cmd.ActiveConnection = MM_Loja_STRING rs_PergEnquete_cmd.CommandText = "Select * from pergenquete inner join respenquete on pergenquete.pergenqueteid = respenquete.pergenqueteid where pergenquete.pergenqueteid = ? and respenquete.respenqueteid = ?" rs_PergEnquete_cmd.Prepared = true rs_PergEnquete_cmd.Parameters.Append rs_PergEnquete_cmd.CreateParameter("param1", 5, 1, -1, request.form("pergunta")) ' adDouble rs_PergEnquete_cmd.Parameters.Append rs_PergEnquete_cmd.CreateParameter("param2", 5, 1, -1, Replace(request.form("resposta"), "Resp_", "")) ' adDouble Set rs_PergEnquete = rs_PergEnquete_cmd.Execute if not rs_PergEnquete.eof then Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_Loja_STRING MM_editCmd.CommandText = "UPDATE respenquete SET respenquetevotos = ? WHERE respenqueteid = ?" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, rs_PergEnquete.fields.item("respenquetevotos").value + 1) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, Replace(request.form("resposta"), "Resp_", "")) ' adDouble MM_editCmd.Execute MM_editCmd.ActiveConnection.Close Response.Write("") Else Response.Write("i") End if End if %>