Hola, estoy intentando adaptar este codigo y no consigo lo que necesito (mis conocimientos en ASP son muy escasos por no decir nulos).
La conexion con la bd es correcta, la visualizacion tambien pero el problema lo tengo en dos puntos.
1- En lugar de crear un hyperlink a una pagina .htm, quiero que me visualice la previa en la caja de imagen.
2- En descargar logo, no consigo crear el enlace para que me lo descargue.
La base de datos consta de lo siguiente:
Nombre:dblogos.mdb
Tabla: logotipos
Campos: Id (autonumerico), logo (texto), tumbail (Objeto Ole), tumbail_img (Texto), archivo (texto), descripcion (texto).
Si alguien me puede ayudar.
Gracias
<html>
<title>Orden Alfabetico</title>
<link rel="stylesheet" href="_main.css" type="text/css">
<body bgcolor="#FFFFFF">
<p align="center"><font face="Verdana"><b>BUSCA LOGOTIPOS</b></font></p>
<p align="center">
<%
for counter = 65 to 90
' for next routine to create hyperlinks alphabetically targeted
' to the current page
%>
<a href="<%= request.servervariables("script_name")%>?u_letter= &#<%= counter %>;" class="select">
&#<%= counter %>;</a>
<% next %>
</p>
<p align="left">
<table width="64%" border="0" align="center">
<tr>
<td width="30%">
<p><img border=0 name="tumbail" width=200 height=200></p>
<p><b>Descargar Logo </b></p>
</td>
<td width="41%" valign="top">
<%
u_letter=trim(request.querystring("u_letter"))
'if the user clicked a link then search the db
if u_letter<>"" then
accessdb="dblogos"
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from logotipos where left(logo,1)='"& u_letter &"' order by logo asc"
rs.Open sql, cn
'if the search ends in no results display a
'no results found mesage
if rs.eof then
%>
<div align="left"><font color="#FF0000"><b>No se han encontrado logos</b></font>
<%= u_letter %>
<% else
do while not rs.eof
' Create a hyperlink in the browser output for the current LOGO
response.write "<a href=""" & rs("logo") & ".htm"" target=""_blank"">"
'display all observations found
%>
<br>
<%= rs("logo")%>
<%
rs.movenext
loop
end if ' end check for obs
end if ' end check for user input
%>
</div>
</td>
</tr>
</table>