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

problemas contador

Estas en el tema de problemas contador en el foro de ASP Clásico en Foros del Web. Hola, tengo un probnlema Estoy diseñando una pagina web, en ella hay un simple contador de visitas, que va aumentando su numero cada vez que ...
  #1 (permalink)  
Antiguo 01/01/2003, 20:49
Avatar de Ludwingg  
Fecha de Ingreso: diciembre-2002
Ubicación: San Salvador
Mensajes: 951
Antigüedad: 21 años, 6 meses
Puntos: 5
problemas contador

Hola, tengo un probnlema
Estoy diseñando una pagina web, en ella hay un simple contador de visitas, que va aumentando su numero cada vez que un visitante entra a la pagina principal, el nombre de la pagina principal es index.asp ...el problema es que el contador no se puede actualizar, entre la primera vez y si funciono por que automáticamente se escribio el numero “1”, pero después ya no se escribio el 2 ni el 3 etc...y me aparece el siguiente mensaje:

Microsoft OLE DB provider for ODBC Drivers error ‘80004005’
[Microsoft][ODBC Microsof Acces Driver] Cannot update. Database or object is read – only.
Miweb/index.asp, line 18

Y este es el codigo que utilizo(la tabla se llama tablacont y el campo de dicha tabla se llama contador):
<%
datos = "SELECT * FROM tablacont"
Set conexion = Server.CreateObject("ADODB.Connection")
Set registros = Server.CreateObject("ADODB.RecordSet")
conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=" & Server.MapPath("mibase.mdb") & ";"
registros.Open datos, conexion, 2, 3, 1
If registros.EOF then
registros.AddNew
end IF
registros("contador") = registros("contador") + 1
numero=registros("contador")
Response.Write("<H3> Visitante N0.:</H3>")
for x=1 to len(numero)
a=mid(numero,x,1)%>
<img src=<%=a%>.gif>
<%next%>
<H3> Desde Enero de 2003</H3>
<%
registros.Update
registros.Close
%>
<br>
<H6>
son las <%=Time%> del <%=Date%>
<H6>

gracias por cualquier ayuda
  #2 (permalink)  
Antiguo 01/01/2003, 21:53
Avatar de korev  
Fecha de Ingreso: diciembre-2002
Ubicación: Barcelona
Mensajes: 127
Antigüedad: 21 años, 5 meses
Puntos: 0
Suponiendo que la tabla tiene este diseño:
nombre: tablacont
único campo: contador

Set conexion = Server.CreateObject("ADODB.Connection")
Set registros = Server.CreateObject("ADODB.RecordSet")
conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=" & Server.MapPath("mibase.mdb") & ";"

sql="update tablacont set contador=contador+1 ;"

conexion.Execute(SQL)

conexion.close
set conexion=nothing

-

En tu código, si quieres hacerlo tal y como lo tienes, ponle un 2,3 en los cerrojos solamente. El update y cierre antes de mostrar datos y demás.
__________________
on error... resume next

Última edición por korev; 01/01/2003 a las 21:55
  #3 (permalink)  
Antiguo 01/01/2003, 22:56
Avatar de Ludwingg  
Fecha de Ingreso: diciembre-2002
Ubicación: San Salvador
Mensajes: 951
Antigüedad: 21 años, 6 meses
Puntos: 5
disculpa la molestia, ¿me podrias enviar el codigo completo por favor??? no es muy largo...gracias
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 19:50.