Contador real asp

[iutunoi]

Hola chavos y chavas!
Estoy intentando crear un contador real en asp. Trabajo con acces y OLEDB y he estado inetnedo consultar el código de la página http://www.aspfacil.com/articulos/contadorvisitas.asp, pero lo he adpatado un poco a mi site (lo justo). Pero tengo un problema! Cuando lo pongo me da error. lo llamo desde la página index.asp con
<!--#include file="ejemplo/contador.asp"--> y el error que me da por IIS es"Tipo de error":
Error de compilación de Microsoft VBScript (0x800A0401)
Se esperaba un final de instrucción
/xarxa/ejemplo/contador.asp, línea 61, columna 46
SQL="SELECT Hits FROM Visitas WHERE Fecha>=#&"1/"&Month(Date())&"/"&Year(Date())&"#"
---------------------------------------------^


os pongo el código:


<%
Sub Visita
'Añade una visita

Dim oConn, rs, SQL
Dim visitas

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")

' # es el delimitador para las Fechas en Access.
' Si vas a utilizar SQL Server, sustitúyelo por comilla simple (')
SQL="SELECT * FROM Visitas WHERE Fecha=#"&Date()&"#"
rs.Open SQL, 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("Hits")=1
rs.Update

else
' Tengo que sumar 1 a los Hits de hoy
visitas=rs.Fields("Hits")
rs.Fields("Hits")=visitas+1
rs.Update
end if

'Cierro el Recordset y limpio la basura
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

%>
<%
' 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
Visita
end if

%>


<%Dim total
total=0
SQL="SELECT Hits FROM Visitas WHERE Fecha>=#&"1/"&Month(Date())&"/"&Year(Date())&"#"
rs.Open SQL, oConn
while not rs.EOF
total=total+rs.Fields("Hits")
wend
rs.Close

Response.Write("Número de visitas este mes: "&total)
%>

Please ayuda!!!!

[JuanRAPerez]

cambia tu forma de conexion

rs.Open SQL, oConn, 1, 2

[u_goldman]

Bueno, a mi me parece que estas concatenando mal:

Código:

SQL="SELECT Hits FROM Visitas WHERE Fecha>=#&"1/"&Month(Date())&"/"&Year(Date())&"#"

Código:

SQL="SELECT Hits FROM Visitas WHERE Fecha>=#"&"1/"&Month(Date())&"/"&Year(Date())&"#"

Salu2,

[iutunoi]

Gracias JuanRa Y Goldman, pero...
JuanRa lo he cambiado y sigue sin mostrarse la página, me da error, se te ocurre como cambio la connexion?
Goldman tenías razón faltaban unas comillas. pero sigue dándome error como le he dicho a JuanRa
Se os ocurre qué puedo hacer. Os agradezco la ayuda de antemano

[JuanRAPerez]

set rs = db.Execute(sQry)

[u_goldman]

Bueno, pues entonces es otro error, cual es?

[iutunoi]

Jolines, lo he intentado pero nada... esto no furula! Y lo bueno es que en otras páginas tengo tambien codigo asp y hago invocacioones y sí que me funcinan correctamente...
En fin si se os ocurre algo más, estoy esperándoos
FELIZ NAVIDAD!