Sending Mails in VBScript
<%
dim strMailContent
strMailContent = "
"
strMailContent = strMailContent & ""
strMailContent = strMailContent & "Persoal Post | "
strMailContent = strMailContent & "
"
strMailContent = strMailContent & ""
strMailContent = strMailContent & " | "
strMailContent = strMailContent & " | "
strMailContent = strMailContent & " | "
strMailContent = strMailContent & "
"
strMailContent = strMailContent & "
"
Set mailcomp1 = CreateObject("CDO.Message")
mailcomp1.From = bb@yahoo.com
mailcomp1.Cc = "aa@gmail.com"
mailcomp1.Subject = "Personal Post"
mailcomp1.HTMLBody = strMailContent
mailcomp1.Send