Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/05/2006, 16:20
Avatar de Softdesigner
Softdesigner
 
Fecha de Ingreso: noviembre-2005
Ubicación: Gijón - Asturias - España
Mensajes: 240
Antigüedad: 19 años, 5 meses
Puntos: 0
Visualizar imagen guarda en db

Tengo guardada una imagen en binario en una base de datos, si pongo el código de asp sin más funciona pero si lo meto en una tabla ya deja de funcionar, alguien sabe que pasa?

Solo poniendo este código funciona y me sale la imagen arriba a la iqda:
<%
Response.Buffer = True

Dim ID
ID = Request("ID")

If Len(ID) < 1 Then
ID = 7
End If
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("db/FileDB.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select [File Data],[Content Type] from Files where ID = " & _
ID, connStr, 2, 4
If Not rs.EOF Then
Response.ContentType = rs("Content Type")
Response.BinaryWrite rs("File Data")
End If
rs.Close
Set rs = Nothing
%>


Pero lo que quiero es meterla dentro de una tabla y en vez de la imagen solo me genera un pedazo de codigo de la leche, me sale cone esto:

<table width="100%" border="1">
<tr>
<td>
<%
Response.Buffer = True

Dim ID
ID = Request("ID")

If Len(ID) < 1 Then
ID = 7
End If
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("db/FileDB.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select [File Data],[Content Type] from Files where ID = " & _
ID, connStr, 2, 4
If Not rs.EOF Then
Response.ContentType = rs("Content Type")
Response.BinaryWrite rs("File Data")
End If
rs.Close
Set rs = Nothing
%>
</td>
</tr>
</table>
__________________