Download tvang

Efter at have kikket flere svar vedr. download tvang,
fandt jeg noget kode jeg kunne bruge.
Den ser ud som følger:

<%
Const adTypeBinary = 1

Response.Expires = 0
Response.Buffer = TRUE

picname = request.querystring("fil")
saveAsPicname = request.querystring("fil")

Set uAgent = Request.ServerVariables("HTTP_USER_AGENT")
if (inStr(uAgent, "IE")) Then
      ' Explorer
      Response.ContentType = "m_type"
      Response.AddHeader "Content-Disposition", "atachment; filename="& saveAsPicname
Else
      ' NetScape
      Response.ContentType = "application/octet-stream"
      Response.AddHeader "Content-Disposition", "attachment; filename="& chr(34) & picName & chr(34)
End if

Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile server.mappath(picName)
Response.BinaryWrite objStream.Read

objStream.Close
Set objStream = Nothing

Response.Flush
%>

Det virker ikke på alle pc'er.
På min skriver den kortvarigt i browseren:
installerer komponent og derefter et lille
rødt kryds.

Download boxen kommer aldrig :(

Stien er rigtig og virker på nogle pc'er med både IE
5.5 og 6.0...

Help anyone ??