Inviare email con XMLHTTP e CDOSYS

[ubbicom]

scusate sono in hosting su aruba, ma questo il codice restituisce:

msxml3.dll error '800c0005'

The system cannot locate the resource specified.

/xmlhttp.asp, line 26

manca il componente, la dll?

<%
Dim iMsg
Dim iConf
Dim Flds

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

With iMsg

Set .Configuration = iConf


Dim objXMLHTTP 
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
 objXMLHTTP.Open "GET", "http://bruno.asp", false
 
 .To = "pop@aruba.it"
 .From = "pop@aruba.it"
 .Subject = "Invio locali della settimana di MP"
 
 objXMLHTTP.SetRequestHeader "Content-type", "text/html" 
 objXMLHTTP.Send 
objCDOMail.Body = objXMLHTTP.ResponseText
End with
%>

:master:

[Enrique_Rojas]

<%
'CDOSYS
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.tuapaginasitoweb.com/bruno.asp", False
xml.Send
Dim miaMail
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "pop@aruba.it"
miaMail.To = "pop@aruba.it"
miaMail.Subject = "Oggetto del messaggio"
miaMail.TextBody = xml.responseText
miaMail.Send
Set miaMail = Nothing
Set xml = Nothing
%>

<%
'CDONTS
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.tuosito.ext/tuapagina.ext", False
xml.Send
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "mittente@dominio.ext"
miaMail.To = "destinatario@dominio.ext"
miaMail.Subject = "Oggetto del messaggio"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 0
miaMail.Body = xml.responseText
miaMail.Send
Set miaMail = Nothing
Set xml = Nothing
%>