Contador de Clicks en ASP

[chesco1980]

Alguien me podría ayudar mostrandome el codigo de un contador de clicks, yo tengo uno pero no funciona correctamente. Da el siguiente error :




HTTP 500 - Error interno del servidor
Internet Explorer

[splashman]

pero muestra donde esta el problema.

es muy probable que no lo veas, si es que estas con IE en el navegador anda a Herramientas -> Opciones de Internet -> Opciones Avanzadas -> mostrar errores descriptivos de los errores http

espero que te sirva...

salu2

[chesco1980]

Esa opcion ya la tengo marcada,k en local si me va, pero lo subo el fichero al servidor y no va.

[lubetpic]

tienes un campo en la db llamado visitas

cada vez que das click a un link te vas a un archivo contador.asp donde lees visitas para ese campo y le sumas 1, luego lo grabas y redireccionas a la pagina adonde va

lastima que no tengo uno en asp pero aqui hay uno en php , te lo pongo a ver si lo entiendes:

//hacemos la suma de visitas
$visita_cuenta=mysql_query("select visitas from clasificados where id=$id", $conn);
$row = mysql_fetch_array($visita_cuenta);
$visitas_suma=$row["visitas"]+1;
$result=mysql_query("update clasificados set visitas=$visitas_suma where id=$id", $conn);

//pagina a donde va direccionado
$url="ver_clasificado.php?id=".$id;
header ("Location: $url");

[ftmad]

Hola a todos..

yo consiguo contar los cliks "normales". es decir cuando un usuario hace un clic en un enlace, va a la pagina clicks.asp que registra el cliks en la base de datos y redirecciona a la url solicitada.

hasta aquí todo bien.

Ahora he puesto unos archivos para descargar, y claro la gente lo puede descargar haciendo un clic con el boton derecho y "guardar destino como".

Existe alguna manera de contabilizar estos clic con ASP?

un saludo

[chesco1980]

Yo lo tengo asi pero no me va ahi va el codigo:

<%
Response.Buffer=TRUE
url = Request.Querystring("url") 'recogo la variable que contiene la direccion web

' compruebo que no sea nula, aunque no creo que se de el caso
' la url que se den de alta tiene que ser incluidas a la fuerza
if url <> "" then
'creo el objeto conexion y la tabla
dim conexion, tabla, temp
set conexion= Server.CreateObject("ADODB.Connection")
Set tabla = Server.CreateObject("ADODB.RecordSet")
'************************************************* *

conexion.open "basic-system.org.portalasp" 'conexion a la base de datos
'Consulta que coge el enlace web para añadir un click
temp = "SELECT * FROM enlace_descarga WHERE enlace = '" & url & "'"
'************************************************* *

tabla.open temp, conexion, 3,3
tabla("visitado") = tabla("visitado") + 1 'añado un click
tabla.update 'actualizo
' Cerramos conexiones y tablas y vaciamos variables


'************** Vaciamos y cerramos variables *********************
tabla.Close
set tabla = nothing
set temp = nothing
conexion.Close
set conexion = nothing
'************************************************* ******

'**************Redireccionamos a la url ****************

response.redirect url 'redireccionamos a la web pinchada
end if
%>

[ftmad]

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.