Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
 
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const SMTP_SERVER = "localhost"

Function SendTextMail(mailfrom, mailto, subject, textBody)
 Set iMsg = Server.CreateObject("CDO.Message")
 Set iConf = Server.CreateObject("CDO.Configuration")
 Set Flds = iConf.Fields
 With Flds
  .Item(cdoSendUsingMethod) = cdoSendUsingPort
  .Item(cdoSMTPServer)      = SMTP_SERVER
  .Update
 End With
 
 With iMsg
  Set .Configuration = iConf
  .BodyPart.Charset = "windows-1251"
 
  .From = mailfrom
  .To = mailto
 
  .Subject = subject
  .TextBody = textBody
  .Send
 End With
 
 Set iMsg = Nothing
 Set iConf = Nothing
 Set Flds = Nothing
End Function

Function SendHtmlMail(mailfrom, mailto, subject, htmlBody)
 ...
 With iMsg
  ...
  .Subject = subject
  [b].HtmlBody = htmlBody[/b]
  .Send
 End With
 ...
End Function

With iMsg
 ...
 .AddAttachment(Server.MapPath("/file.doc"))
 ...
End With

<!--#include virtual=/folder/file.asp-->

Dim objSrvHTTP
Set objSrvHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objSrvHTTP.Open "GET", "http://example.com/folder/page.html http://example.com/folder/page.html", False
objSrvHTTP.Send
If objSrvHTTP.Status = 200 Then
    Response.Write objSrvHTTP.responseText
End If
Set objSrvHTTP = Nothing