No me funciona la asp para mostrar imagenes
Publicado por Javi (1 intervención) el 25/05/2001 13:13:39
Tengo la siguiente ASP para mostrar imagenes que están guardadas en una B.D. SSQLServer:
Response.Expires=-1
Response.Buffer=True
Response.Clear
Response.ContentType="image/gif"
set rcdset = Server.CreateObject("ADODB.Recordset")
rcdset.ActiveConnection = "dsn=conBD;uid=admin;pwd=admin;"
rcdset.Source = "SELECT FOTO FROM admin.FOTOS WHERE NIF='010101'
rcdset.CursorType = 0
rcdset.CursorLocation = 2
rcdset.LockType = 3
rcdset.Open()
if not rcdset.eof then
rcdset.MoveFirst()
Response.BinaryWrite rcdset.Fields.Item(0).Value
end if
rcdset.Close()
set rcdset = nothing
Response.End
Ejecuto esta ASP y la imagen no se visualiza. Este código lo he copiado de algunas respuestas que he visto en el foro, pero no consigo que se muestren las imagenes. ¿Es necesaria alguna cofiguración especial en el I.I.S.?, ¿hay que activar o instalar algo en el equipo?. Tengo Internet Explorer 5 ¿hace falta algo más?. Por favor, necesito ayuda.
¡¡ Muchas Gracias !!
Response.Expires=-1
Response.Buffer=True
Response.Clear
Response.ContentType="image/gif"
set rcdset = Server.CreateObject("ADODB.Recordset")
rcdset.ActiveConnection = "dsn=conBD;uid=admin;pwd=admin;"
rcdset.Source = "SELECT FOTO FROM admin.FOTOS WHERE NIF='010101'
rcdset.CursorType = 0
rcdset.CursorLocation = 2
rcdset.LockType = 3
rcdset.Open()
if not rcdset.eof then
rcdset.MoveFirst()
Response.BinaryWrite rcdset.Fields.Item(0).Value
end if
rcdset.Close()
set rcdset = nothing
Response.End
Ejecuto esta ASP y la imagen no se visualiza. Este código lo he copiado de algunas respuestas que he visto en el foro, pero no consigo que se muestren las imagenes. ¿Es necesaria alguna cofiguración especial en el I.I.S.?, ¿hay que activar o instalar algo en el equipo?. Tengo Internet Explorer 5 ¿hace falta algo más?. Por favor, necesito ayuda.
¡¡ Muchas Gracias !!
Valora esta pregunta


0