hola , porfavor miren este codigo
Código:
<%
fecha = DATE()
mes = MONTH(FECHA)
ano = YEAR(FECHA)
dia = DAY(FECHA)
if mes <= 9 then
mes = "0"&mes
end if
if dia <= 9 then
dia = "0"&dia
end if
fecha = dia&"/"&mes&"/"&ano
'conexion a la base de dato
Set con = Server.CreateObject("ADODB.Connection")
con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("contador.mdb"))
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 = "SELECT * FROM tblcontador WHERE fecha="&fecha
rs2.open sql2, con
If rs2.EOF Then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="INSERT INTO tblcontador (contador, fecha) VALUES ( '1', '"&fecha&"')"
rs.Open sql, con
else
id = rs2("id")
contador = rs2("contador")
contador = contador + 1
Set rs = Server.CreateObject("ADODB.Recordset")
sql="UPDATE tblcontador SET contador='"&contador&"' WHERE id ="&id
rs.Open sql, con
end if
%>
COMO SE VE ESTE CODIGO ES MUY SENCILLO Y LO QUE HACE ES SABER CUANTAS VECES AN INGRESADO A UNA PAGINA CON LA FECHA PARA LUEGO TENER UNA ESTADISTICA .
BUENO MI PROBLEMA ES EL SIGUIENTE AL SER SELECT DE LA FECHA=FECHA
COMO LA BASE ESTA EN BLANCO SE GRABA SIN NINGUN PROBLEMA:
ID ->AUTONUMERICO = 1
CONTADOR -> NUMERICO = 1
FECHA -> FECHA/HORA = 31/05/2005
AL REFRESCAR LA PAGINA, PARA VER SI EXISTE SIEMPRE ME TIRA AL "EOF", Y COMO VERAN LA FECHA DEL SISTEMA ES IGUAL A AL QUE ESTA EN LA BDD, PERO IGUAL ME TIRA AL "EOF".
POR QUE, O TENGO UN PROBLEMA EN EL SELECT?????