Contar Hits en un sistema de noticias y escribirlos en la pagina?

[rickoe]

Hola

Según te entiendo tienes una pagina que funciona así: nota.asp?id=1

Donde lo puedes hacer mas o menos asi:

nota=Request.QueryString("id")

' Primero lees el contador anterior

Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base.mdb")
set my_conn= Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
my_Conn.Open (conn_string)
StrSql = "SELECT * FROM datos where nota = '" & nota & "';"
rs.Open strSql, my_conn, 1, 1
counternota = rs("counter")
my_conn.Close
set my_conn = nothing

' le sumas uno al contador

counternota = counternota + 1

' actualizas el contador

Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base.mdb")
set my_conn= Server.CreateObject("ADODB.Connection")
my_conn.Open (conn_string)
strSql = "UPDATE datos SET counter =" & counternota & " WHERE nota = '" & nota & "';"
my_conn.Execute (strSql)
my_conn.Close
set my_conn = nothing

Bueno eso dices que ya lo sabes hacer, ahora para leer el dato seria así

nota=1
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base.mdb")
set my_conn= Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
my_Conn.Open (conn_string)
StrSql = "SELECT * FROM datos WHERE nota = '" & nota & "';"
rs.Open strSql, my_conn, 1, 1
Response.write "Esta nota fue leida " & rs("counter") & "veces"
my_conn.Close
set my_conn = nothing

Esto seria tomando en cuenta que en base.mdb tienes una tabla llamada "datos" con los campos "nota" y "counter"

Espero esto te sirva

Saludos

Rickoe