Binärformat i databas -> fil

Tjena!

Har en nyhetsdatabas med texter samt bilder i binärformat.
Kör med BinaryWrite när jag ska visa en bild.
Men nu tänkte jag att jag skulle göra om lite och få bilderna som filer istället. Alla bilder ska vara i samma mapp och döpta efter now().
Texterna är ju lätta att få över i en ny databas.

Går det på nåt sätt att loopa igenom databasen och spara bilderna som filer?
Alternativet är ju att gå in på varje nyhet, högerklicka på bilden-spara som, ladda upp den genom den nya administrationen så att bilden hamnar till rätt nyhet.

Nån som har nåt bra förslag?

//Peter

http://support.microsoft.com/?kbid=258038

Koden under punkt 5 borde du kunna göra om till VBScript och köra samtidigt som du loopar igenom din tabell.

Har försökt med nedanstående kod, men får bara felmeddelandet:

Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''/nyheter/test.asp, line 20

Kör denna kod:

Dim stmBLOB
Set stmBLOB = Server.CreateObject("ADODB.Stream")
stmBLOB.Type = 1
stmBLOB.Open
stmBLOB.Write rs("bild1_bin").Value
strBLOB.SaveToFile server.MapPath("test.jpg"), 2
stmBLOB.Close
Set stmBLOB = Nothing

..och ditt recordset är skapat och heter "rs", och inget annat?

/red: Vid närmare eftertanke kan du också prova att rätta felstavningen på sjätte raden:

strBLOB -> stmBLOB

Tackar!

Det var stavfelet som gjorde att det inte funkade.

//Peter