problema con contador de visitas

[dacotta]

Saludos, tengo este codigo para un contador:

<%
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\trabajo\db\mibd.mdb"
sql = "SELECT * FROM visitas"
RS.Open sql, oConn, 1,3
If RS.EOF then
**oConn.Execute"INSERT INTO cuenta (hits) VALUES (1)"
Else
**oConn.Execute"UPDATE cuenta SET hits="&(rs("hits")+1)&""
End IF
Response.Write "Hasta este momento esta pagina fue ""visitada"":<B> "&RS("hits")&"</B>"
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>

al inicio del documento tengo un include donde ya tengo hecha la conexion a mi base de datos mdb:

var con=new ActiveXObject("adodb.connection")
con.Open("raul")

por tanto deberia quedarme asi el codigo??

<%

var RS = new ActiveXObject("ADODB.RecordSet")
sql = "SELECT * FROM visitas"
RS.Open sql, con, 1,3
If RS.EOF then
**con.Execute"INSERT INTO cuenta (hits) VALUES (1)"
Else
**con.Execute"UPDATE cuenta SET hits="&(rs("hits")+1)&""
End IF
Response.Write "Hasta este momento esta pagina fue ""visitada"":<B> "&RS("hits")&"</B>"
RS.Close
con.Close
vart RS = nothing
var Con = nothing
%>

por que no me funciona



gracias