Ver Mensaje Individual
  #5 (permalink)  
Antiguo 14/07/2008, 14:18
rtblanco
 
Fecha de Ingreso: julio-2008
Ubicación: guerreo
Mensajes: 9
Antigüedad: 16 años, 9 meses
Puntos: 0
Respuesta: Cargar y recuperar imagen en ASP, ayuda por favor!...

Hola amigos, muchas gracias por sus respuestas...probe lo que me dijeron, pero me muestra basura en el campo de imagen, ya cambien el campo de objeto OLE a tipo MEMO, y me sigue mostrando basura.

<%
' -- show.asp --
' Generates a list of uploaded files

Response.Buffer = True

' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("usuarios.mdb")
%>
<html>
<head>
<title>Inserts Images into Database</title>
<style>
body, input, td { font-family:verdana,arial; font-size:10pt; }
</style>
</head>
<body>
<p align="center">
<b>Mostrando datos</b><br>
<a href="form.html">Haz clic para insertar otro registro</a>
</p>

<table width="700" border="1" cellspacing="0" cellpadding="0" bgcolor="#99FFCC" bordercolor="#FFFFFF" align="center">
<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

' opening connection
rs.Open "select [ID_Usuario],[Nombre],[Edad],[NombreFichero],[Imagen] from usuarios order by [ID_Usuario] desc", connStr, 3, 4

If Not rs.EOF Then
Response.Write "<tr><td colspan=""7"" align=""center""><i>"
Response.Write "No. de Registros: " & rs.RecordCount
'Response.Write ", Table : Files</i><br>"
Response.Write "</td></tr>"

While Not rs.EOF
Response.Write "<tr><td>"
Response.Write rs("ID_Usuario") & "</td><td>"
Response.Write rs("Nombre") & "</a></td><td>"
Response.Write rs("Edad") & "</td><td>"

Imagen = "upload/" & rs("NombreFichero")


Response.Write rs("Imagen") & "</td><td>"


Response.Write "</td></tr>"
rs.MoveNext
Wend
Else
Response.Write "No Record Found"
End If

rs.Close
Set rs = Nothing
%>
</table>

</body>
</html>


si pongo solo Imagen = "upload/"
Response.Write rs("Imagen") tambien me muestra basura

que estoy haciendo mal?