Nerladdning av bild

Hej.
Nu är jag ute på väääldigt djupt vatten...och jag som precis lär mig simma hjälpligt.

Skall fixa ett skript som låter besökaren klicka på en länk för att ladda ner bilder. Har tittat lite på vad som finns här på forumet, och lite andra stället och försökt mig på att sätta ihop ett skript...med dåligt resultat. Kan någon kolla och se vad jag har gjort för fundamentala missar?

Dim FileObject, Folder, fs, fso, bs,bild
bild=Request.querystring("namn")

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FileObject.GetFolder(Server.MapPath("..\images"))
Set fs = fso.GetFile(Folder & "\" & bild)
Response.Write "Filnamn: " & fs.Name & " Bytes: " & fs.Size
bs = fs.Size
Response.AddHeader "Content-Length", bs
Response.ContentType = "application/x-msdownload"
Response.AddHeader "Content-Disposition", "attachment;filename=" & fs.Name
Response.BinaryWrite (fs)

------------------
"You can not solve todays problems with the same level of thinking that created the problems in the first place" Albert Einstein

Hmmm...är jag väldigt luddig i mitt frågeställande eller kan det vara så illa att ingen kan?

------------------
"You can not solve todays problems with the same level of thinking that created the problems in the first place" Albert Einstein

jag gjorde en liten sökning på 'contenttype' och hittade något som kanske skulle kunna vara av intresse.

jag har tyvärr aldrig gjort något sånt här, men det kanske är dags för det. hmm.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
someone set us up the bomb!</A>

Var där jag var inne och kikade lite förut. Men eftersom jag aldrig haft anledning att titta på binarywrite och header inställningar så sa det mig inte så mycket. Men det är i alla fall utifrån det jag knåpat ihop det ovanstående...som inte vill funka.
Det enda som händer är att webläsaren står och läser...och läser..och läser..och läser..etc. Ungefär som om det var en evig loop någonstans.
:(

------------------
"You can not solve todays problems with the same level of thinking that created the problems in the first place" Albert Einstein

[Redigerat av Bendro den 29 mar 2001]

jag ska kanske ta och labba lite, men jag lovar ingenting...

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
someone set us up the bomb!</A>

Har grejat med ett sånt script, ska kolla när jag kommer hem...
(har varit uppe i denna tråden förut, gör en sökning)
/T

------------------
"Den som väntar på någon som gått behöver inte vänta längre..."