problemas con fecha y hora - UPDATE

[sesteb]

Hola compis, que tal?

Tengo el siguiente problema:
Estoy intentando controlar la fecha y la hora de una visita . Estoy utiliznado una bd en acces y quiero escribir los datos en una table, siendo los valeres de la tabla únicamente el número de visitas, la hora de la última visita y la fecha.
El contador me funciona bien, pero cuando quiero guardar Fecha y hora en la table me introduce caracteres estraños (sin sentido). El campo es del tipo texto.
codigo:

'Hacemos la conexión a la Base de Datos.
dim conexionBd1,rscont,sqlcont,activo
dim visitas,fechavisita,horavisita

Set ConexionBd1=Server.CreateObject("ADODB.Connection" )
SQLcont="SELECT * FROM contador"
conexionBd1.Open"DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("datos.mdb"),3,1
set RScont=ConexionBd1.execute(SQLcont)
'Ahora nos fijamos si existe ya un registro.
'Si no existe lo creamos.

If RScont.EOF then
conexionBd1.Execute"INSERT INTO contador (hits) VALUES (1)"
'Si existe el registro se aumenta en 1 el valor.
Else
if session("activo") <> "si" then
Fechavisita = FormatDateTime(Cdate(Date), 2)
horavisita=time

conexionBd1.Execute"UPDATE contador SET hits="&(rscont("hits")+1)&""
conexionBd1.Execute"UPDATE contador SET fecha="&FormatDateTime(Cdate(Date), 2)&""
conexionBd1.Execute"UPDATE contador SET hora="&(&horavisita&)&""

end if
End IF
'La siguiente linea imprime la cantidad de hits.
Response.Write "Hasta este momento esta pagina fue ""visitadas"":<B> "&RScont("hits")&"</B>"
response.write("la fecha es:"&fechavisita)
'cerramos y limpiamos los objetos.
session("activo") = "si"
RScont.Close
conexionBd1.Close
Set RScont = nothing
Set conexionBd1 = nothing
%>

***********************
se agradece ayuda,please......