HELP Errore ADODB.Stream

[stm]

salve a tutti ho un problema con questo breve script, ma non riesco a capire dove sbaglio, mi sembra tutto ok.

<%
dim ostream,pathfile

Function GetUrl(Url)
Dim Http
Set Http = Server.CreateObject("Microsoft.XMLHTTP")
Http.open "GET",Url,False
Http.Send()
GetUrl = Http.ResponseText
Set Http=Nothing
End Function

geturl("http://prova.grandhotelminerva.it/eventidet.asp?id=218")

pathfile = "prova.htm"
Set oStream = Server.CreateObject("ADODB.Stream")
oStream.Open
oStream.Charset = "utf-8"
oStream.Type = adTypeText
oStream.WriteText content
oStream.SaveToFile server.mappath(PathFile), adSaveCreateOverWrite
oStream.Close
set oStream = Nothing
%>

la prima parte dello script è ok, si ferma con questo errore

[b]ADODB.Stream error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/_layouts/cs/sales/easyram/prova.asp, line 22 ADODB.Stream error '800a0bb9'

alla linea evidenziata in rosso.
Dove sbaglio?

Grz per l'HELP

[Roby_72]

oStream.Type = 2

Roby