conexao.asp<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Dim Dbq
Dbq = Server.MapPath("users.mdb")
Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Dbq
%>
ver_enquete.asp<%@Language=VBScript%>
<%response.buffer=true%>
<!--#include file="conexao.asp"-->
<html>
<head>
<title>enquete</title>
</head>
<body>
<%
strSQL = "SELECT * FROM enquetes WHERE Código="& 1
Set rsEnquete = Conexao.Execute(strSQL)
%>
<h4><%=rsEnquete("questao")%></h4>
<FORM action="vota.asp" method="POST" name="enquete">
<INPUT type="radio" name="campo" value="voto1"><%=rsEnquete("resp1")%><br>
<INPUT type="radio" name="campo" value="voto2"><%=rsEnquete("resp2")%><br>
<INPUT type="radio" name="campo" value="voto3"><%=rsEnquete("resp3")%><br>
<INPUT TYPE="image" SRC="imagem.gif">
</FORM>
</body>
</html>
vota.asp<%@Language=VBScript%>
<%response.buffer=true%>
<!--#include file="conexao.asp"-->
<%
strSQL = "SELECT * FROM enquetes WHERE Código="& 1
Set rsEnquete = Conexao.Execute(strSQL)
If (Request.Form("campo") <> "") Then
Campo = Request.Form("campo")
Total = rsEnquete("Campo") + 1
If Request.Form("campo") = voto1 Then
Set SQL = Conexao.Execute("UPDATE enquetes SET voto1 = '"& Total &" WHERE código=1")
Response.Write "Voto realizado com sucesso! Obrigado por participar de nossa enquete!"
Else
If Request.Form("campo") = voto2 Then
Set SQL = Conexao.Execute("UPDATE enquetes SET voto2 = '"& Total &" WHERE código=1")
Response.Write "Voto realizado com sucesso! Obrigado por participar de nossa enquete!"
Else
If Request.Form("campo") = voto3 Then
Set SQL = Conexao.Execute("UPDATE enquetes SET voto3 = '"& Total &" WHERE código=1")
Response.Write "Voto realizado com sucesso! Obrigado por participar de nossa enquete!"
Else
If Request.Form("campo") = voto4 Then
Set SQL = Conexao.Execute("UPDATE enquetes SET voto4 = '"& Total &" WHERE código=1")
Response.Write "Voto realizado com sucesso! Obrigado por participar de nossa enquete!"
Else
If Request.Form("campo") = voto5 Then
Set SQL = Conexao.Execute("UPDATE enquetes SET voto5 = '"& Total &" WHERE código=1")
Response.Write "Voto realizado com sucesso! Obrigado por participar de nossa enquete!"
End If
End If
End If
End If
End If
Else
Response.Write "Voce nao escolheu nenhuma das respostas!"
End If
%>
por favor me ajudem!