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

[LeCLUB]

Yo lo simplificaría de esta forma:

Cuando crees la BBDD, inserta ya en ella un registro con el valor 0 (así te ahorras el tener que mirar siempre si existe el registr o no)

Y en la página ASP, trabaja de esta forma:

1. Te conectas a la BBDD

2. Actualizas mediante "UPDATE" el valor de la BBDD + 1 directamente (porque sabes que el registro existe)

3. Realizas una consulta "SELECT" a la BBDD y recuperas el valor de la BBDD actualizado

4. Lo muestras en pantalla