Resultado De Busqueda asp

gabo543 · #1 (**permalink**) 31/10/2007, 00:28

hola amigos aqui traigo otro problema tengo mi codigo que es el resultado de la busqueda necesito saber como hacer para colocar una imagen al resultado en este codigo solo me da informacion yo nesecito que me de informacion y me muestre 1 foto de lo que encontro........
el codigo para subir imagenes a la dababase access ya lo tengo pero necesito saber como llamar desde la data base la imagen para que me la muestre junto con los resultados de la busqueda.. ejemplo

titulo artista tracks anio precio foto

lo con rojo es lo que tengo ahora como lo hago para que me aparesca la imagen aqui va el codigo...

<%
Dim mostrar 'cantidad de registros a mostrar por página
Dim cant_paginas 'cantidad de páginas que recibimos
Dim pagina_actual 'La página que mostramos
Dim registro_mostrado 'Contador utilizado para mostrar las páginas
Dim I 'Variable Loop
titulo = request.querystring("titulo")
artista = request.querystring("artista")
anio = request.querystring("anio")
orden = request.querystring("orden")
alf = request.querystring("alf")
cantidad = request.querystring("cantidad")
if cantidad="10" then
mostrar = 10
elseif cantidad="20" then
mostrar = 20
elseif cantidad="30" then
mostrar = 30
end if
if orden = "" then
response.redirect "buscador.asp"
end if

' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If

strsql = "SELECT * FROM noticias where UCase(titulo) like '%" & UCase(Request("titulo")) & "%' AND UCase(artista) like '%" & UCase(Request("artista")) & "%' AND UCase(anio) like '%" & UCase(Request("anio")) & "%' order by "& orden & " "&alf

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("noticias.mdb")

' creo el RecordSet y defino la cantidad de registros a mostrar
Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar

' Abro la tabla...
RS.Open strSQL, oConn,3,1
'cuento las páginas que se formaron con la variable mostrar
cant_paginas = RS.PageCount

' Si el pedido de página cae afuera del rango,
' lo modifico para que caiga adentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
%>
<body style="background-color: #CCFF66">
<%
' Si la cantidad de páginas da 0 es que no hay registros... por eso este IF
If cant_paginas = 0 Then%>

Se encontraron 0 resultados

<ul>
<li><a href="buscador.asp">Buscar nuevamente</a></li>
<li>
<a href="resultados.asp?orden=Artista&titulo=<%=titul o%>&cantidad=10">Repetir la búsqueda sin restricciones</a></li>
</ul>
<%
'sino, si es que encuentra registros
Else
' Nos movemos a la página elegida
RS.AbsolutePage = pagina_actual
' muestra el dato de la página en la que estamos...
%>
<div align="center">
<center>
<table width="86%" height="158" border="3" cellpadding="2" cellspacing="5" bordercolor="#111111" id="AutoNumber1" style="border-width:0; border-collapse: collapse">
<tr>
<td width="25%" bgcolor="#CCCCFF" style="border-left:medium none #111111; background-color: #CCCC33; border-right-style:none; border-right-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:none; border-bottom-width:medium" align="center">titulo</td>
<td width="21%" bgcolor="#CCCCFF" style="border-style: none; border-width: medium; background-color: #CCCC33; text-align:center">titulo</td>
<td width="21%" bgcolor="#CCCCFF" style="border-style: none; border-width: medium; background-color: #CCCC33" align="center">
tracks</td>
<td width="21%" bgcolor="#CCCCFF" style="border-style: none; border-width: medium; background-color: #CCCC33" align="center">
anio</td>
<td width="12%" bgcolor="#CCCCFF" style="border-right:medium none #111111; background-color: #CCCC33; border-left-style:none; border-left-width:medium; border-top-style:none; border-top-width:medium; border-bottom-style:none; border-bottom-width:medium" align="center">
precio</td>
</tr>
<%

' Hacemos el bucle mostrando los datos del registro
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not RS.EOF
if colorfila = 0 then
color= "#66CC66"
colorfila=1
else
color="#66CC66"
colorfila=0
end if
%>

<tr>
<td width="25%" height="115" style="border-style:none; border-width:medium; background-color: <%= color %>; ">
<div align="center"><%=RS("artista")%> </div></td>
<td width="21%" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:left; "><div align="center"><%=RS("titulo")%></a> </div></td>
<td width="21%" align="center" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:center; "><%=RS("tracks")%></td>
<td width="21%" align="center" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:center; "><%=RS("anio")%> </td>
<td width="12%" align="center" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:center; "><a href="noticia.asp?id=<%=RS.Fields("id")%>"><%=RS.F ields("precio")%></a></td>
</tr>
<%
' Sumamos 1 a los mostrados
registro_mostrado = registro_mostrado + 1
' Nos movemos al próximo registro...
RS.MoveNext
Loop

End If
%>
</table>

</center>
</div>

<%
' Cerramos y limpiamos...
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>
<div align="center"> 

<%
' Ahora mostramos los enlaces a las otras páginas con el resto de los registros...
If pagina_actual > 1 Then
%> <a href="resultados.asp?eje=30&page=<%= pagina_actual - 1 %>&titulo=<%=titulo%>&artista=<%=artista%>&orden=< %=orden%>&anio=<%=anio%>&cantidad=<%=cantidad%>">
[<< anterior ]</a> <%
End If

' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%> 
<%= I %>
<%
Else
%>
<a href="resultados.asp?eje=30&page=<%= I %>&titulo=<%=titulo%>&artista=<%=artista%>&orden=< %=orden%>&anio=<%=anio%>&cantidad=<%=cantidad%>">< %= I %></a>
<%
End If
Next 'I

If pagina_actual < cant_paginas Then
%> <a href="resultados.asp?eje=30&page=<%= pagina_actual + 1 %>&titulo=<%=titulo%>&artista=<%=artista%>&orden=< %=orden%>&anio=<%=anio%>&cantidad=<%=cantidad%>">
[ 


 siguiente



>>]</a>
 


<%
End If
'Fin
%>
</div>

 <center><a href="buscador.asp">Buscar de nuevo<a/>
</a>

</BODY>
</HTML>

ren2000 · #2 (**permalink**) 01/11/2007, 11:39

lo que tenes que hacer es que un campo de la tabla se llame por ejemplo imagen,
que sea texto y que escribas el nombre o la ruta de la imagen. Esto lo tendrias que hacer para cada registro de la tabla.
Por ejemplo "foto1.jpg", o "images/foto1.jpg".
Donde desees poner la foto escribes si no mal me equivoco <img src=<%=response.write("imagen")%> >donde imagen es el nombre del campo que posee el texto foto1.jpg o images/foto1.jpg
Esto devolveria el codigo html siguiente <img src="foto1.jpg"> y por tanto te muestra la imagen

Espero que te sirva...

gabo543 · #3 (**permalink**) 02/11/2007, 04:32

hola amigo gracias por la ayuda esto que tu me dices es para las imagenes que estan guardadas en la basededatos como texto ..
ejemplo mi base de datos de llama noticias y el campo donde va la imagen se llama imagen como seria la ruta de acceso a la base de datos para mostrar la imagen ...la base de datos esta en la misma carpeta...
muchas gracias...