Contador de visitas problema de fechas

05/09/2003 - 09:18 por Magda | Informe spam
Hola, tengo un contador de visitas que va almacenando quién entra en mi web
en una base de datos (access 97). El caso es que entre los datos que
almaceno, está la fecha de hoy, pero debe ocurrir algo con el día y el mes,
porque todo funciona perfecto hasta el día 12 de cada mes, el día 13 ya no
funciona.
La sintaxis que utilizo es la siguiente:

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.JEt.OLEDB.4.0; Data
Source="&Server.MapPath("visitas.mdb")
SQLVisi="SELECT * FROM T_Visitas WHERE Fecha=#"&Date()&"#"
rs.open SQLVisi, oConn, 1, 2
if rs.EOF then 'es la primera visita hoy, por eso no hay ningún registro con
la fecha actual
rs.AddNew
'rs.Fields("Fecha")=format(Date(),"dd/mm/yyyy")
rs.Fields("Fecha")=Date()
rs.Fields("Hora")=Time()
rs.Fields("Hits")=1
rs.Fields("NumCol")=nco
if NOM <> "" then
rs.fields("nombre")=NOM
else
rs.fields("nombre")="NO VALIDO"
end if
rs.Update
else
rs.Edit
visi=0
visi=rs.Fields("Hits")
rs.Fields("Hits")=visi+1
rs.Fields("NumCol")=nco
rs.Update
end if
rs.close


¿Alguien sabe cómo se arregla esto?
 

Leer las respuestas

#1 Manuel Vera
05/09/2003 - 15:11 | Informe spam
Eso seguro que es por formatos de fecha ingles/español. Es posible que la
configuración regional del server esté en un formato y la de access en otro.

Prueba formateando a mano el valor de date, forzándolo a
"aaaammdd",
"aaaa/mm/dd" o
"aaaa-mm-dd"

Para eso usa las funciones: year(), month() y day()
Saludos
MV

Magda wrote in message
news:
Hola, tengo un contador de visitas que va almacenando quién entra en mi web
en una base de datos (access 97). El caso es que entre los datos que
almaceno, está la fecha de hoy, pero debe ocurrir algo con el día y el mes,
porque todo funciona perfecto hasta el día 12 de cada mes, el día 13 ya no
funciona.
La sintaxis que utilizo es la siguiente:

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.JEt.OLEDB.4.0; Data
Source="&Server.MapPath("visitas.mdb")
SQLVisi="SELECT * FROM T_Visitas WHERE Fecha=#"&Date()&"#"
rs.open SQLVisi, oConn, 1, 2
if rs.EOF then 'es la primera visita hoy, por eso no hay ningún registro con
la fecha actual
rs.AddNew
'rs.Fields("Fecha")=format(Date(),"dd/mm/yyyy")
rs.Fields("Fecha")=Date()
rs.Fields("Hora")=Time()
rs.Fields("Hits")=1
rs.Fields("NumCol")=nco
if NOM <> "" then
rs.fields("nombre")=NOM
else
rs.fields("nombre")="NO VALIDO"
end if
rs.Update
else
rs.Edit
visi=0
visi=rs.Fields("Hits")
rs.Fields("Hits")=visi+1
rs.Fields("NumCol")=nco
rs.Update
end if
rs.close


¿Alguien sabe cómo se arregla esto?

Preguntas similares