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%>
<p><font face="Arial">Se encontraron <font color="#FF0000"> <b>0</b> resultados</font></font></p>
<ul>
<li><font face="Arial"><a href="buscador.asp">Buscar nuevamente</a></font></li>
<li><font face="Arial">
<a href="resultados.asp?orden=Artista&titulo=<%=titul o%>&cantidad=10">Repetir la búsqueda sin restricciones</a></font></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"><b><font color="#003366" size="2" face="Arial">titulo</font></b></td>
<td width="21%" bgcolor="#CCCCFF" style="border-style: none; border-width: medium; background-color: #CCCC33; text-align:center"><b><font color="#003366" size="2" face="Arial">titulo</font></b></td>
<td width="21%" bgcolor="#CCCCFF" style="border-style: none; border-width: medium; background-color: #CCCC33" align="center">
<p align="center"><b><font color="#003366" size="2" face="Arial">tracks</font></b></td>
<td width="21%" bgcolor="#CCCCFF" style="border-style: none; border-width: medium; background-color: #CCCC33" align="center">
<p align="center"><font color="#003366" size="2" face="Arial, Helvetica, sans-serif"><strong>anio</strong></font></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">
<p align="center" style="text-align: center"><b><font color="#003366" size="2" face="Arial">precio</font></b></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 %>; "><font face="Arial" size="2">
<div align="center"><b><%=RS("artista")%></b> </div></td>
<td width="21%" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:left; "><div align="center"><font face="Arial" size="2"><%=RS("titulo")%></a></font> </div></td>
<td width="21%" align="center" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:center; "><font face="Arial" size="2"><%=RS("tracks")%></td>
<td width="21%" align="center" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:center; "><font face="Arial" size="2"><%=RS("anio")%> </td>
<td width="12%" align="center" style="border-style:none; border-width:medium; background-color: <%= color %>; text-align:center; "><font face="Arial" size="2"><a href="noticia.asp?id=<%=RS.Fields("id")%>"><%=RS.F ields("precio")%></a></font></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"><br>
<font size="2" face="Arial">
<%
' Ahora mostramos los enlaces a las otras páginas con el resto de los registros...
If pagina_actual > 1 Then
%> </font><font size="2"> <a href="resultados.asp?eje=30&page=<%= pagina_actual - 1 %>&titulo=<%=titulo%>&artista=<%=artista%>&orden=< %=orden%>&anio=<%=anio%>&cantidad=<%=cantidad%>">
<font face="Arial">[</font><b><font face="Arial"><<</font></b><font face="Arial"> anterior ]</font></a><font face="Arial"> <%
End If
' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%> <font color="#FF3300">
<b><%= I %></b></font>
<%
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
%> </font> <a href="resultados.asp?eje=30&page=<%= pagina_actual + 1 %>&titulo=<%=titulo%>&artista=<%=artista%>&orden=< %=orden%>&anio=<%=anio%>&cantidad=<%=cantidad%>">
<font face="Arial">[ </font>
</font>
<font size="2" face="Arial"> siguiente
</font>
<font size="2">
<b><font face="Arial">>></font></b></font><font face="Arial" size="2">]</font></a><font size="2">
<br>
</font>
<%
End If
'Fin
%>
</div>
<br><center><font face="Arial" size="1"><a href="buscador.asp">Buscar de nuevo</font><font size="2"><a/>
</a></font>
</BODY>
</HTML>