Gracias por todo lo que estas haciendo por mi pero no funciono ahy va el codigo pero lo ovy a poner en 2 partes ya que no cave de una:
<HTML>
<HEAD>
<style type=text/css>
A:link {color:#3366cc; text-decoration:none;}
A:visited {color:#3366cc; text-decoration:none;}
A:hover {color:#339933; text-decoration:none;}
</style>
<TITLE>Encuesta con ASP</TITLE>
</HEAD>
<BODY BGCOLOR="#333333" STYLE="font-size=11; font-family: Verdana">
<P ALIGN="center">
<b><font size="1" color="#FFCC00">Gracias por tu colaboración.<%
'guardamos en voto la info del formulario.
voto = Request.Form("mismo")
'Conectamos a la BD.
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base_encuesta.mdb")
'Con una sentencia SQL pedimos toda la BD.
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM encuesta"
RS.Open sql, oConn
'si no hay registros, creamos unos con datos nulos.
If RS.EOF then
oConn.Execute "INSERT INTO encuesta (dato1,dato2,dato3,dato4,dato5) VALUES (0,0,0,0,0)"
RS.Requery
End If
'Comenzamos el chequeo de datos. Para todos igual
If voto = "1" then
'Si se cumple el IF, sumamos uno al campo correspondiente.
oConn.Execute "UPDATE encuesta SET Dato1 = "&RS("Dato1")+1&" "
'La siguiente linea hace un Refresh en la Tabla, para tener los datos recientes.
RS.Requery
Response.Write ""
ElseIf voto = "2" then
oConn.Execute "UPDATE encuesta SET Dato2 = "&RS("Dato2")+1&" "
RS.Requery
Response.Write ""
ElseIf voto = "3" then
sql = "UPDATE encuesta SET Dato3 = "&RS("Dato3")+1&"" ;
oConn.Execute sql
RS.Requery
Response.Write ""
ElseIf voto = "4" then
oConn.Execute "UPDATE encuesta SET Dato4 = "&RS("Dato4")+1&" "
RS.Requery
Response.Write ""
ElseIf voto = "5" then
oConn.Execute "UPDATE encuesta SET Dato5 = "&RS("Dato5")+1&" "
RS.Requery
Response.Write ""
End If
---------------
primera parte