|
| |
<%
'Getting (Requesting) the Session variables from Form on previous page
Session("FromName")=Request("FromName")
Session("FromAddress")=Request("FromAddress")
Session("Subject")=Request("Subject")
Session("BodyText")=Request("BodyText")
Set Mailer=Server.CreateObject("SMTPsvg.Mailer")
'Setting variables
Mailer.FromName=Session("FromName")
Mailer.FromAddress=Session("FromAddress")
Mailer.RemoteHost="smtpmail.activeisp.com"
Mailer.AddRecipient "Webmaster Active ISP", "webmaster@reikitraining.org.uk"
Mailer.Subject=Session("Subject")
Mailer.BodyText=Session("BodyText")
'Checking if mail sent ok, if not display error message
if Mailer.SendMail then
Response.Write "Mail sent..."
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
'Abandoning session variables
Session.Abandon
%>
|