ok, ocionet, hice algunos arreglos y el código quedaría así:
***** Imagen.asp *******
<%
response.Expires = 0
response.Buffer = True
response.Clear
imagen = request.querystring("ver")
sqltxt = "select * from cuenta_imagen where nom_img = '" & imagen & "'"
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("img.mdb"))
set rs=createobject("ADODB.Recordset")
rs.open sqltxt, Conn, 2, 2
if rs.eof then
rs.addnew
rs.fields("nom_img") = imagen
rs.fields("cuenta") = 1
rs.update
else
x = rs.fields("cuenta")
x = x + 1
rs.fields("cuenta") = x
rs.update
end if
rs.close
set rs = nothing
response.redirect imagen
%>
Para llamar a la imagen se hace con la siguiente línea:
<img src="imagen.asp?ver=http://www.pathimg/imagen.gif">
Lo probé y me funciona bien.
De todos modos te envío los archivos a tu E-mail.
Saludos,
Jean Joel