30/08/2006, 18:49
|
 | Colaborador | | Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 21 años, 6 meses Puntos: 27 | |
mira esto Cita: Set db = Server.CreateObject("ADODB.Connection")
db.Open Connect
SQL = "SELECT * FROM MYIMAGES where id = " & Request("id")
Set rs = db.Execute( SQL )
If rs.EOF Then Response.End
Response.ContentType = "application/octet-stream"
' Let the browser know the file name
Response.AddHeader "Content-Disposition", "attachment;filename=" & Trim(rs("filename"))
' Let the browser know the file size
Response.AddHeader "Content-Length", CStr(rs("filesize"))
' Send actual file
Response.BinaryWrite rs("image_blob")
__________________
JuanRa Pérez
San Salvador, El Salvador |