problemas con imagenes en base de datos
Publicado por gpnzalo (3 intervenciones) el 11/11/2002 15:25:48
estoy usando este codigo para mostrar una imagen grabada en una base de datos:
Response.Buffer = True
' ID of the file to retrieve
Dim ID
ID = Request("ID")
If Len(ID) < 1 Then
ID = 7
End If
' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("db/FileDB.mdb")
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
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
%>
el problema es que no me muestra la imagenes solo muestra caracteres binarios y si uso el tag
<img src="<%= rs("File Data") %>">
solo me muestra un cadradito con la maldita cruz
alguien tiene solucion para esto????
Response.Buffer = True
' ID of the file to retrieve
Dim ID
ID = Request("ID")
If Len(ID) < 1 Then
ID = 7
End If
' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("db/FileDB.mdb")
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
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
%>
el problema es que no me muestra la imagenes solo muestra caracteres binarios y si uso el tag
<img src="<%= rs("File Data") %>">
solo me muestra un cadradito con la maldita cruz
alguien tiene solucion para esto????
Valora esta pregunta
0