Hola,
Tengo un problema con la sede web que estoy modificando.
Tengo un contador que se ejecuta al cargar la página en lugar de hacerlo cuando hago clic sobre una imagen como tengo programado.
!!Me estoy volviendo loca!!
El código que tengo es el siguiente:
<%
Sub Contador()
Dim rs
Dim ssql
Set rs = CreateObject("ADODB.Recordset")
ssql = "SELECT * FROM eb_ContadorVisitas WHERE xcliente_id = " & session("usuario")
rs.CursorType = 1
rs.LockType = 2
rs.Open ssql, application("conn")
'Comprabamos si es fin de fichero
if not rs.eof then
rs.Fields("xcont_visBannerCaixaFebrero2007") = (rs.Fields("xcont_visBannerCaixaFebrero2007").valu e) + 1
else
'Si es fin de fichero añadimos un registro nuevo
rs.AddNew
'Insertamos campos
rs.Fields("xcliente_id") = usuario
rs.Fields("xcont_visBannerCaixaFebrero2007") = 1
end if
'Guardamos los cambios
rs.Update
rs.close
set rs = nothing
End Sub
%>
.
.
.
.
.
Para llamar a la función hago lo siguiente:
if not rs2.eof then%>
<a href="<%=rs2("xenlace")%>" onClick="<%Contador()%>" target="_blank"> <img src="images/<%=rs2("ximagen")%>" width="220px" height="53px" border="0"> </a>
<%end if
¿Dónde está mi error?
Muchísimas gracias de antemano.
Un saludo,
Amaya