Contador de visitas problema de fechas

Este es mi código, dime qué opinas

<% LANGUAGE = VBScript %>
...
<%
'si es una nueva visita, nuestra variable estará vacía.
if Session("Visitado")="" then
Session("Visitado")=False
end if

'y ahora, miramos siempre esta variable antes de insertar
if not Session("Visitado") then
'ponemos a verdadero
Session("Visitado")=True
'llamamos a nuestro sub para añadir la visita
call FVisita
end if

Sub FVisita
dim oConn, rs, SQLVisi
Dim visi
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
'nos conectamos por OLEDB
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")=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 'tengo que sumar 1 a los hits de hoy aunque esto nunca ha
funcionado
rs.Edit
visi=0
visi=rs.Fields("Hits")
rs.Fields("Hits")=visi+1
rs.Fields("NumCol")=nco
rs.Update
end if

rs.close
set rs=nothing
set oConn=nothing
end sub%>