Simple contador de visitas
La base de datos del ejemplo se llama mibd y la tabla se llama visitas. El campo es cuantos.
<%
Hacemos la conexión a la BD.
Set Conn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
tem="DRIVER={Microsoft Access Driver (*.mdb)}; "
tem = tem & "DBQ=" & server.MapPath("mibd.mdb")
Conn.open tem
sql = "select * from visitas"
RS.open sql, Conn,1,3
Ahora nos fijamos si existe ya un registro.
Si no existe lo creamos.
If RS.EOF then
Conn.execute"insert into cuenta (cuantos) VALUES (1)"
Si existe el registro se aumenta en 1 el valor.
else
Conn.execute"update cuenta SET cuantos="&(rs("cuantos")+1)&""
end IF
La siguiente linea imprime la cantidad de cuantos.
response.Write "Hasta este momento esta pagina fue ""visitada"": "&RS("cuantos")&""
cerramos y limpiamos los objetos.
RS.close
Conn.close
Set RS = nothing
Set Conn = nothing
%>Esto cuenta los usuarios que ingresan a la página. Ojo! Cuenta cada refresh de la página. Cada refresh pedido se sumara al registro. Asi que no serán usuarios reales, sino que cada vez que se llame a esta página se sumará uno. Para hacer un contador de usuarios reales deberian crear una Session y cuando esté en valor true, no sumar otro el usuario (visita) a nuestra BD.