Ayuda con codigo

[Fabu_dina]

Hola a todos!!!!!!!
quiero registrar las visitas que hace un cliente a un articulo

lo que hag es lo siguiente

::::::::::::::::::::::::::::::::::::::::::

Set Conn_visita = Server.CreateObject("ADODB.Connection")
Conn_visita.Open ConString
set rs_visita = server.CreateObject("ADODB.Recordset")
sql_visita = "Select * From visita_articulo_cliente where cliente="&Session("clv_cliente")&" and articulo='"&articulo&"' and fecha="&date()&""
rs_visita.open sql_visita,Conn_visita,1,2
if not rs_visita.eof then
else
rs_visita.Close
set rs_visita = Nothing
Conn_visita.Close
set Conn_visita = Nothing
Set Conn_visita = Server.CreateObject("ADODB.Connection")
Conn_visita.Open ConString
set rs_visita = server.CreateObject("ADODB.Recordset")
sql_visita = "Select * From visita_articulo_cliente"
rs_visita.open sql_visita,Conn_visita,1,2
rs_visita.addnew

rs_visita.fields("cliente") = Session("clv_cliente")
rs_visita.fields("fecha") = date()
rs_visita.fields("articulo") = articulo
rs_visita.update
rs_visita.close
conn_visita.close
end if


:::::::::::::::::::::::


Ok explico un poco mas

Lo que quiero hacer es que cada vez que entres a un producto se grabe un nuevo registro en la tabla visita_articulo_cliente si no lo habia visitado el dia de hoy pero si lo habia visitado que no haga nada, este codigo no me respeta y siempre lo inserta como nuevo registro, esto me va a hacer muy grande mi DB.
Les comento que mis campos de cliente y la variable Session("clv_cliente") son numericas y el articulo en ambos caso es texto el campo de fecha es de fecha corta

Espero alguien me pueda ayudar con esto

Saludos

[Myakire]

sql_visita = "Select * From visita_articulo_cliente where cliente="&Session("clv_cliente")&" and articulo='"&articulo&"' and fecha="&date()&""

Si no quieres que grabe cuando ya existiera ¿por que preguntas por la fecha?

[meru-kun]

¿Está segura de que el formato de la fecha de tu DB es el mismo que el de la función date()?
Es que el problema sea ese, que compares:
WHERE 7/04/2004 = 4/7/2004

[Fabu_dina]

ya lo solucione separe la fecha por dia, mes y año y asunto solucionado me imagino que el problema si era ese en ese caso como lo puedo solucionar como camfio el formato de date()

[meru-kun]

pues no se, yo uso un método bastante sencillo:
intDia = day(date())
intMes = month(date())
intAno = year(date())
txtFecha = intDia & "/" & intMes & "/" & intAno

Cambiando el orden, cambias el formáto (o cambiando el mes por la palabra, etc.)