Mostrar imagen
Publicado por Comillas (1 intervención) el 03/01/2006 12:01:01
Hola a todos:
Soy novato en esto de ASP y tengo un problema. He creado una base de datos Access con una serie de campos en los que he metido fotografias (objetos OLE), pero al tratar de verlas, en lugar de ver las fotos me muestra el nombre de la foto. El codigo que estoy usando es
<%
' -- file.asp --
' Retrieves binary files from the database
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("BDatos.mdb")
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "select [Fotoprincipal],[Nombre] from Datos where ID = " & _
ID, connStr, 2, 4
If Not rs.EOF Then
Response.ContentType rs("Nombre")
Response.BinaryWrite rs("Fotoprincipal")
End If
rs.Close
Set rs = Nothing
%>
Espero vuestra ayuda. Muchas gracias
Soy novato en esto de ASP y tengo un problema. He creado una base de datos Access con una serie de campos en los que he metido fotografias (objetos OLE), pero al tratar de verlas, en lugar de ver las fotos me muestra el nombre de la foto. El codigo que estoy usando es
<%
' -- file.asp --
' Retrieves binary files from the database
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("BDatos.mdb")
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "select [Fotoprincipal],[Nombre] from Datos where ID = " & _
ID, connStr, 2, 4
If Not rs.EOF Then
Response.ContentType rs("Nombre")
Response.BinaryWrite rs("Fotoprincipal")
End If
rs.Close
Set rs = Nothing
%>
Espero vuestra ayuda. Muchas gracias
Valora esta pregunta
0