Binary

Hvorfor vil nedenstående ikke virke? Jeg får fejlen: \"Argumenterne har en forkert type eller er uden for det angivne område, eller der er opstået en konflikt mellem dem.\" - det er ved Stream.Type..

<%
Set Stream    = CreateObject(\"ADODB.Stream\")

Stream.Type    = adTypeBinary
Stream.Open
Stream.LoadFromFile(Server.Mappath(\".\") & \"\\pic.gif\")

Response.ContentType    = \"image/gif\"
Response.BinaryWrite(Stream.Read)

Steam.Close
Set Stream    = Nothing
%>