contador en asp con base de dato en access

[bisteck]

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?????

[javopereira]

Prueba usando la fecha en formato yyyymmdd

[bisteck]

Iniciado por javopereira

Prueba usando la fecha en formato yyyymmdd

hola javopereira,

hice el siguiente cambio :
fecha = ano&"/"&mes&"/"&dia
y lo deje año mes dia
pero igual me tira al "eof"

[Muzztein]

prueba asi
sql2 = "SELECT * FROM tblcontador WHERE fecha= '"&fecha&"'"

[bisteck]

Iniciado por Muzztein

prueba asi
sql2 = "SELECT * FROM tblcontador WHERE fecha= '"&fecha&"'"

hola Muzztein

me salio el siguiente error:
Tipo de error:
Microsoft JET Database Engine (0x80040E07)
No coinciden los tipos de datos en la expresión de criterios.

porque,porque,porque,porque,porque,porque,porque,p orque,porque,porque,porque........................ ..........

[javopereira]

¿como estas grabando la fecha en la BD? no la estaras grabando con hora y x eso nunca te la encuentra?

[javopereira]

otra prueba que te puede ayudar es agarrar el select y ponerlo en una consulta de access y ahi vas viendo en funcion de como le cambies la forma de los parametros si te devuelve o no

[bisteck]

Iniciado por javopereira

¿como estas grabando la fecha en la BD? no la estaras grabando con hora y x eso nunca te la encuentra?

no ya que la estoy granado haci
Set rs = Server.CreateObject("ADODB.Recordset")
sql="INSERT INTO tblcontador (contador, fecha) VALUES ( '1', '"&fecha&"')"
rs.Open sql, con

y la variable fecha = dia&"/"&mes&"/"&ano

[javopereira]

una que me ha pasado una vez u otra es que yo la mando a grabar de una forma y me la graba al reves. O sea manod 31/05/2005 y me pone 05/31/2005.
El asp es una mierda en el manejo de fechas.

[bisteck]

Iniciado por javopereira

una que me ha pasado una vez u otra es que yo la mando a grabar de una forma y me la graba al reves. O sea manod 31/05/2005 y me pone 05/31/2005.......

tienes mucha razon es una mierda, lo mas es que no se me ocurre ninguna maravillosa idea, mas encima el codigo es muy simple y facil de entender y muy basico por lo cual meterle mas funciones o instrucciones, etc. esta demas..........

sinceramente le doy vuelta s y vueltas y no.................pasa na

[bisteck]

ya me duele la cabeza, ahora si les pido una ayudita por fissssssssssssssssssssssssssssssssssssssssssssssss sssssssssss

ya que no se que hacer