%@ Language=VBScript %>
<%
Dim sMailBody
Dim NewMailBody
Dim requeston1
Dim requeston2
email1 = Request("emailaddress")
requeston1 = "Following is the mail ID for the subscription of newletter: " & email1
requeston2 = "Dear Visitor,
Thank you for visiting the official website of Mehar Baba Charitable Trust (MBTRUST.ORG). You are now subscribed to the regular newsletters from Mbtrust.org.
Please DO NOT reply to this mail as it is automatically generated.
Sincerely yours,
For Mehar Baba Charitable Trust
System Administrator
mbtrust.org"
Set NewMailObj = CreateObject("CDONTS.NewMail")
NewMailObj.From = email1
NewMailObj.To = "support@gianiji.com"
NewMailObj.Subject = "Email address to be included for Newsletter..."
NewMailObj.MailFormat = CdoMailFormatMime
NewMailObj.BodyFormat = CdoBodyFormatText
NewMailObj.Body = requeston1
NewMailObj.Send
Set NewMailObj = Nothing
Set NewMailObj = CreateObject("CDONTS.NewMail")
NewMailObj.From = "autoresponder@mbtrust.org"
NewMailObj.To = email1
NewMailObj.Subject = "Thank you for visiting MBTRUST.ORG"
NewMailObj.MailFormat = CdoMailFormatMime
NewMailObj.BodyFormat = CdoBodyFormatText
NewMailObj.Body = requeston2
NewMailObj.Send
Set NewMailObj = Nothing
%>
|
||||||||||
|
||||||
|