Spedire una pagina completa

Questo script mostra come inviare una pagina completa tramite email dal web alla posta con XML HTTP:

<%
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Oppure, per la versione 3.0 di XMLHTTP, usare:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Apri la connessione remota
xml.Open "GET", "http://www.tuosito.ext/tuapagina.ext", 
False
' Spedisci la richiesta
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
%>