Hola, alguien me puede decir como mostrar una imagen con su descripcion en ASP, dando clic a la misma imagen. la bd esta en Acccess.
el codigo es:
<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "select [ID],[File Name],[File Size],[File Data],[Content Type],[Foto],[Titulo],[Descripcion],[Estado],[Ciudad],[Direccion],[Telefono],[Email] from Files order by [ID] desc", connStr, 3, 4
If Not rs.EOF Then
Response.Write "<tr><td bgcolor=99FF99 colspan=""7"" align=""center"">"
Response.Write "No. de Anuncios:" & rs.RecordCount
'Response.Write ", Table : Files</i><br>"
'Response.Write "</td></tr>"
'Imprimir los nombres de campo mediante algunos métodos y propiedades del
' objeto Recordset.
' Response.Write "<tr>"
'Por cada columna de la fila actual...
' For i = 5 to (rs.Fields.Count - 1)
' escribir el nombre de campo.
' Response.Write "<td> <font face="MS Gothic"><B>" & rs(i).Name & "</B></font></td>"
' Next
'Response.Write "<td><font face="MS Gothic"><B>Delete</B></font></td>"
' Response.Write "</tr>"
While Not rs.EOF
Response.Write "<tr><td width=50>"
'Response.Write rs("ID") & "</td><td>"
Response.Write "<a href=""file.asp?ID=" & rs("ID") & """><img src=""file.asp?ID=" & rs("ID") & """>"
' Response.Write rs("File Name") & "</a></td><td>"
' Response.Write rs("File Size") & "</td><td>"
' Response.Write rs("File Data") & "</td><td>"
' Response.Write rs("Content Type") & "</td><td>"
Response.Write rs("Foto") & "</td><td>"
Response.Write "<a href=""file.asp?ID=" & rs("ID") & """>"
Response.Write rs("Titulo") & "</td><td>"
Response.Write rs("Descripcion") & "</td><td>"
' Response.Write rs("Estado") & "</td><td>"
' Response.Write rs("Ciudad") & "</td><td>"
' Response.Write rs("Direccion") & "</td><td>"
'Response.Write rs("Telefono") & "</td><td>"
'Response.Write rs("Email") & "</td><td>"
Response.Write "</td></tr>"
rs.MoveNext
Wend
Else
Response.Write "No Record Found"
End If
rs.Close
Set rs = Nothing
%>