Upload problem

[pollo4]

Hi! I'm trying to make a file upload:

Dim InfoRead
Dim objStream
Dim strFileName
strFileName = Server.MapPath("temp.dat")
response.write strFilename

InfoRead = Request.BinaryRead(Request.TotalBytes)
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Mode = 2
objStream.Open
objStream.Type = 1
objStream.Write InfoRead

objStream.SaveToFile strFileName, 2
objStream.Close
Set objStream = Nothing

But it doesnt work. I get an error on SaveToFile line:
"ADODB.Stream error '800a0c93'
Operation not allowed in this context."

The guest user (IUSR_server) has all permissions granted.
Please help!
Thanks in advance

Pollo!