Foros del Web » Programando para Internet » ASP Clásico »

votos

Estas en el tema de votos en el foro de ASP Clásico en Foros del Web. 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 = ...
  #1 (permalink)  
Antiguo 05/09/2002, 20:21
Avatar de mamon  
Fecha de Ingreso: enero-2002
Ubicación: Lima
Mensajes: 1.302
Antigüedad: 22 años, 5 meses
Puntos: 3
votos

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>
  #2 (permalink)  
Antiguo 08/09/2002, 20:55
Avatar de mamon  
Fecha de Ingreso: enero-2002
Ubicación: Lima
Mensajes: 1.302
Antigüedad: 22 años, 5 meses
Puntos: 3
Re: votos

Se q no van a encontrar el error xq error no hay, en verdad creo q otro problema?? xq me dice q expiró el tiempo?? la ventana esta en un popup, pero no tiene nada q ver, algo puede ser?? alguien tiene alguna idea??

<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>
  #3 (permalink)  
Antiguo 09/09/2002, 01:03
Avatar de ElAprendiz  
Fecha de Ingreso: enero-2002
Ubicación: Maipu, Chile
Mensajes: 3.706
Antigüedad: 22 años, 4 meses
Puntos: 2
Re: votos

puede ser que se quedo en un ciclo infinito..pero no veo ningun loop..es raro

saludos

<CENTER><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz.gif"></CENTER>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:28.