Hola, ayuda porfa, ya casi lo logro!, lo que quiero es mostrar una pequeña imagen en el campo de mi tabla y al momento de darle clic, me ligue a la misma imagen mas ampliada junto con sus datos.
Mi pagina de prueba esta en: http://www.mejoresanuncios.com/show.asp
Le agradesco su colaboración...
Este es codigo show.asp
<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "select [ID],[File Name],[File Size],[File Data],[Content Type],[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 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>"
'Response.Write rs("ID") & "</td><td>"
' Response.Write "<a href=""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 "<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
%>