testo = Request.Form("testo")

Dim objMail, objConfig
Set objMail = CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")

Set xml = Server.CreateObject("Microsoft.XMLHTTP")
Set xml2 = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", invio, False
xml2.Open "GET", "http://www.miosito.net/web.htm" , False
xml.Send
xml2.send

Set objMail.Configuration = objConfig

cm=cm & " <td colspan=" & "'5'" &">Testo:
"
cm=cm & " <tr>"
cm=cm & " <td colspan=" & "'5'" &">
"
cm=cm & " <tr>"
cm=cm & " <td colspan=" & "'5'" &">" & testo & "
"
cm=cm & " <tr>"
cm=cm & " <td colspan=" & "'5'" &">
"
cm=cm & " <tr>"
cm=cm & " </tr>"

objMail.From = "xxx"
objMail.To = Request.Form("des")
objMail.Subject = "Mail"
objMail.HTMLBody = xml.responseText + cm + xml2.responseText
objMail.Send()
Set objMail = Nothing
Set xml = Nothing
Set xml2 = Nothing
%>