Hola he probado de ajustar tu codigo pero no lo logro
, la db esta estructurada tal y como me decistes
, no puedo visualizar la imagen
.
El codigo ha quedado así, a ver si me ayudas a encontrarle el fallo
<%
'recogemos el nombre de la imagen
imagen = request.querystring("ver")
'accedemos a la base de datos donde llevarás la cuenta.
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("\micuenta\db\nombredb.mdb&quo t;))
set rs=createobject("ADODB.Recordset")
rs.open sqltxt,Conn, 2, 2
if rs.eof then 'Si la imagen no está en la bd, creamos el registro
rs.addnew
rs.fields("nom_img") = imagen
rs.fields("cuenta") = 1
rs.update
else 'Aumentamos en uno el contador
rs.fields("cuenta") = rs.fields("cuenta") + 1
end if
'cerramos y vaciamos el rs
rs.close
set rs = nothing
'redireccionamos hacia la imagen
response.redirect imagen
%>
pd no hagas caso de \ ya que no porque cuando escribo una barre salen dos.