Udskriv billede fra database

Hej eksperter

Jeg har en række billeder liggende i en database og skal hente dem og have dem vist. Jeg har prøvet med nedenstående kode, men det virker ikke. Jeg får ingen fejl før jeg inkludere linien:

mySmartUpload.DownloadField(oRs("pics"))

Hvorefter siden ikke vil vises.

Det skal nok lige nævnes at billederne ligger i en tabel (news), i recorden (pics). Der ligger desuden ikke billeder i alle felterne i (pics), hvilket måske er problemet. Efter

mySmartUpload.DownloadField(oRs("pics"))

mangler billederne desuden af blive skrevet ud. (Det er vist noget med Response.BinaryWrite "oRs(pics)" i en eller anden løkke)


<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim oConn
  Dim strSQL
  Dim oRs
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  oConn.Open "DBQ=d:\inetpub\database\pk.mdb; Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************

  strSQL = "SELECT * FROM news"

Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = strSQL
oRs.Open

'  DownloadField
'  *************
  mySmartUpload.DownloadField(oRs("pics"))
 
  ' samples with optionnals
  ' Call mySmartUpload.DownloadField(oRs("FILE"), "application/x-zip-compressed", "download.zip")
  ' Call mySmartUpload.DownloadField(oRs("FILE"), "application/x-zip-compressed", oRs("FILENAME").Value)

'  Destruction
'  ***********

  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>