Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Adostream con asp

12/09/2007 - 23:27 por Richie | Informe spam
Ayuda Hacer una pregunta
Aqui les envio como quiero ver las imagenes guardadas en mi base de datos
algo estoy haciendo mal o no lo estoy haciendo porque la idea del bucle es
que me muestre todas las imagenes de la tabla pero solo me muestra una y es
la primera

como puedo hacer para mostrar todas en una misma pagina?
gracias desde ya

<%

Set con = Server.CreateObject("ADODB.Connection")

con.Provider = "sqloledb"
con.Properties("Data Source").Value = "DNS1"
con.Properties("Initial Catalog").Value = "pubs"
con.Properties("User ID").Value = "sa"
con.Properties("Password").Value = "vpa101983"
con.Open
con.CommandTimeout = 0


set rs= con.execute("select * From pub_info")

while not rs.eof
Response.ContentType = "image/gif"
Response.BinaryWrite rs("Logo")
response.write rs("Pub_id")
response.write "<br>"
rs.movenext
wend


rs.Close
Set rs = Nothing



%>
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 urko binarya
13/09/2007 - 09:33 | Informe spam
umh creo que asi no podriaas hacerlo
ademas metes un response.write "<br>"
que es codigo html cuando estas intentando "imprimir" codigo de imagen
te doy una solucion
set rs= con.execute("select * From pub_info")
do until rs.eof%>
<img src="verimagen.asp?id=<%=rs("Pub_id")%>"><br>
<%
rs.movenext
loop
%>
luego verimagen.asp seriaa paarecido al que tienes

set rs= con.execute("select * From pub_info where
Pub_id="&request.querystring("id"))
if not rs.eof then
Response.ContentType = "image/gif"
Response.BinaryWrite rs("Logo")
end if

saludos
urko



"Richie" escribió en el mensaje
news:
Aqui les envio como quiero ver las imagenes guardadas en mi base de datos
algo estoy haciendo mal o no lo estoy haciendo porque la idea del bucle es
que me muestre todas las imagenes de la tabla pero solo me muestra una y
es la primera

como puedo hacer para mostrar todas en una misma pagina?
gracias desde ya

<%

Set con = Server.CreateObject("ADODB.Connection")

con.Provider = "sqloledb"
con.Properties("Data Source").Value = "DNS1"
con.Properties("Initial Catalog").Value = "pubs"
con.Properties("User ID").Value = "sa"
con.Properties("Password").Value = "vpa101983"
con.Open
con.CommandTimeout = 0


set rs= con.execute("select * From pub_info")

while not rs.eof
Response.ContentType = "image/gif"
Response.BinaryWrite rs("Logo")
response.write rs("Pub_id")
response.write "<br>"
rs.movenext
wend


rs.Close
Set rs = Nothing



%>


Preguntas similares

 

Busqueda sugerida :