[ASP] probleem met BLOB

[Verwijderd]

Situatie:
Ik heb een site draaien met een fotodatabase eraan. De foto's worden in de databaste zelf opgeslagen als BLOB. Nu wil ik, om de performance een beetje op te krikken, dynamisch thumbnails maken.
Ik heb een component gevonden die dit schitterend doet, het enige probleem is dat deze een bestand nodig heeft om te converteren. Ik moet dus mijn BLOB zien op te slaan in een tijdelijk bestandje, deze laten converteren en vervolgens verwijderen.

De code zit als volgt in elkaar:

Database laden (access)
BLOB uit db halen
bestand aanmaken
wegschrijven van BLOB
component aanroepen
bestand deleten

Nu kan ik wel mijn BLOB naar de pagina zelf schrijven (via response.binarywrite), maar het lukt mij niet om dit ook te doen naar een bestand...

Mijn code gaat als volgt:

ASP:

rsData.Open "SELECT Inhoud From *******, cnDB, adOpenStatic
If rsData.EOF then
Response.end
Else
' foto opslaan
randomize timer
dim denrnd
denrnd = cint(rnd*999)
whichFN="*****/temp/temp" & denrnd & ".del" 
Set fstemp = server.CreateObject("Scripting.FileSystemObject")
Set filetemp = fstemp.CreateTextFile(whichFN, true)
filetemp.write(rsData("Inhoud")) ' dit klopt niet
filetemp.Close
set filetemp=nothing
set fstemp=nothing
End If
rsData.close
Set rsData= nothing

Ik heb wat zitten googlen, maar zonder veel resultaat.

[ Voor 4% gewijzigd door Verwijderd op 10-12-2004 20:27 ]

[Janoz]

In de regel boven 'klopt niet' open je een tekst bestand terwijl je een binair bestand moet openen. Daar is waar het waarschijnlijk fout gaat.

Persoonlijk vind ik deze manier nogal omslachtig. Is het niet handiger om op zoek te gaan naar een component dat een thumb kan maken zonder filesystem interactie?

[Verwijderd]

Opgelost: binary file gemaakt. stom

ASP:

Set objStream = Server.createObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.Write rsdata("Inhoud")
objStream.SaveToFile ***, 2 '2=overwriten mag
objStream.Close