email >
smtpsvg.mailer

AspMail : Set AspMail = Server.CreateObject("SMTPsvg.Mailer")
---- you may any name you want ----
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

AspMail can send mail by using the standard SMTP 
protocol from any program that can use 
ActiveX/OLE components.

RemoteHost : 
The SMTP server to be used for sending the message
BodyText :
This will be the actual message.

--------- all sets are ok ------
Set ObjMail = Server.CreateObject ("SMTPsvg.Mailer")
Set ASPMail = Server.CreateObject ("SMTPsvg.Mailer")
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")

<% '---Example 1
    Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
    Mailer.FromName = "Joe's Widgets Corp."
    Mailer.FromAddress = "sender@---.com"
    Mailer.Subject = "Subject..."
    Mailer.BodyText = "Your order was processed."
    Mailer.RemoteHost = "mail-RemoteHost.---.com"

    Mailer.AddRecipient "Recipient name", "email@---.com"

    if Mailer.SendMail then
        ' Message sent
        response.write ("sent ok")       
    else
        ' send failure
        response.write ("message not sent. ")
        response.write ("error was: " & Mailer.Response)
    end if

Set Mailer = Nothing 

%>
--------------- vbCrLf or "<br>"  -------------
vbCrLf = vbCr + vbLf = Chr(13) + Chr(10) =Return + LineFeed

Mailer.BodyText   = "Dear receiver" & VbCrLf & "This is your 
account information"
Response.write "your userid:<br>"

----------------Mailer.DateTime----------------
Mailer.DateTime = WeekDayName(WeekDay(Date), true) &_
 ", " & Day(Date) & " " & MonthName(Month(Date), true) & " " &_
 Year(Date) & " " & FormatDateTime(Now, 4) & " -0600 (CST)"