a ver...
aqui va el codigo que tengo yo.
le he quitado todo lo que tenía demás para dejar solo lo k nos interesa.
para probar haz una pagina de prueba con 4 o 5 enlaces tipo :
Código:
<a href="clik.asp?url=enlace1.asp>enlace1</a>
y allí va el codigo para la pagina clik.asp.
Código:
'abrimos la conexion
Set conexion = server.CreateObject("adodb.connection")
conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\cuentaclikx\data\base.mdb"
'resuperamos el url del enlace que hemos pasado por una variable
url=request.querystring("url")
'si la variable es vacia volvemos al index (o a una pagina de error que tengas)
if url="" then response.redirect "index.asp"
'buscamos la url en la base de datos
strclik = "select * from cliks where url='"&url&"'"
set cxclik=conexion.execute (strclik)
'si esta url no esta en la base todavía, pues creamos una nueva entrada
if cxclik.eof then
'calculamos el id numerico que le toca
strid = "select * from cliks order by 1 desc"
set cxid = conexion.execute (strid)
idnuevo = cxid("id") + 1
set cxid = nothing
' insertamos la nueva entrada (id + url + 1 clik)
strnuevo = "insert into cliks values ("&idnuevo&", '"&url&"', 1)"
set cxnuevo = conexion.execute (strnuevo)
set cxnuevo = nothing
'si la url ya estaba en la la base, solo le añadimos un clik
else
' recupero el numero de cliks y le añado 1
nclik = cxclik("nclik") + 1
'actalizamos el registro
strupdt = "update cliks set nclik = "&nclik&" where url='"&url&"'"
set cxupdt = conexion.execute (strupdt)
'vaciamos las conexiones que estan abiertas
set cxupdt = nothing
set cxclik = nothing
end if
' ya esta incrementado el numero de cliks, redireccionamos al enlace pedido
response.redirect url
conexion.close
set conexion=nothing
%>
espero te sirva de algo.