Hola amigos foreros
Estoy desarrollando una pagina web dinamica que almacena imagenes en una base de datos utilizando enlaces binarios.
He logrado almacenar los datos binarios en la base de datos y tambie e conseguido crear una consulta con todas enlaces de la imagenes. pero ncuando hago clic sobre el enlace de la imagen la nueva consulta que ha de mostrar la imagen en el explorador me gerera un error, aquí les muestro el codigo de la consulta haber si alguno me puede ayudar.
<%
Response.Buffer = True
' ID del fichero a obtener
Dim ID
ID = Request("ID")
If ID = "" Then
ID = 0
End If
' Cadena de conexion
'Dim connStr
'connStr = "Provider=Microsoft.Jet.OLEDB.4.0; "_
'Server.MapPath("ficheros.mdb")
' Generates a list of uploaded files
'Response.Buffer = True
Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("ficheros.mdb")
'Data Source = "& Server.MapPath("ficheros.mdb")"
' Recordset
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
'rs.Open "select [TipoFichero],[DatosFichero] from [Id] desc", connStr, 2, 4
' abrimos la conexion
rs.Open "select [DatosFichero],[TipoFichero]from Ficheros where ID = " & ID, connStr, 2, 4 ""
'Ficheros where ID = "& ID, connStr, 2, 4"
If Not rs.EOF Then
Response.ContentType = rs("TipoFichero")
Response.BinaryWrite rs("DatosFichero")
Else
Response.write "<b><font color=""red"">"
Response.write "ERROR:</font><br>No se ha "
Response.write "encontrado el fichero solicitado</b>"
End If
rs.Close
Set rs = Nothing
%>
agradezco su valiosa colaboración saludos,....
