este es mi código y me un error diciendo q expira la página en la linea 40. aqui le mando el código.
<%
voto = Request.Form("mismo")
'Conectamos a la BD.
Set oconn = Server.CreateObject ("ADODB.Connection")
oconn.open "Provider=SQLOLEDB; Data Source=(local); initial catalog=mamonsoft; user id=mamon;password=sequepiensas"
'Con una sentencia SQL pedimos toda la BD.
sql = "SELECT * FROM votos"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oconn, 2, 2
'if xerror = "0" then
'Si es el primer voto de todos, creamos el registro para que los UPDATES funcionen.
'Este IF solo se cumplirá una vez. La primera.
If RS.EOF Then
oConn.Execute ("INSERT INTO votos(Dato1, Dato2, Dato3, Dato4, Dato5, Dato6) VALUES (0,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.
strSQL = "UPDATE votos SET Dato1 = "&Cint(RS.Fields("Dato1"))+1
'linea 40 la de abajo
oConn.Execute (strSQL)
'La siguiente linea hace un Refresh en la Tabla, para tener los datos recientes.
RS.Requery
ElseIf voto = "2" then
strSQL = "UPDATE votos SET Dato2="&Cint(RS.Fields("Dato2") )+1
oConn.Execute (strSQL)
RS.Requery
ElseIf voto = "3" then
strSQL = "UPDATE votos SET Dato3="&Cint(RS.Fields("Dato3") )+1
oConn.Execute (strSQL)
RS.Requery
ElseIf voto = "4" then
strSQL = "UPDATE votos SET Dato4="&Cint(RS.Fields("Dato4") )+1
oConn.Execute (strSQL)
RS.Requery
ElseIf voto = "5" then
strSQL = "UPDATE votos SET Dato5="&Cint(RS.Fields("Dato5") )+1
oConn.Execute (strSQL)
RS.Requery
ElseIf voto = "6" then
'Si se cumple el IF, sumamos uno al campo correspondiente.
strSQL = "UPDATE votos SET Dato6="&Cint(RS.Fields("Dato6") )+1
oConn.Execute (strSQL)
RS.Requery
End If
'End if
response.write "<center><img src='../imagenes/titulo_animado.gif'></center>"
%>
quien me podría responder
<center><font face="verdana" size="1" color="black">En la vida hay tantas preguntas y tan pocas respuestas, pero en estos foros sobran...[/CODE]
</center>
