|
To receive more information about Northern Child and her sailing program, and to apply, please contact us by email or by phone:
IMPORTANT NOTE: We typically respond to all enquiries within 24 hours. If you do not receive a reply within 48 hours it is likely that our reply to you has been lost by automatic spam filters. If you do not receive a reply, please contact us again by email or telephone and we will deal with your enquiry straight away.
|
|
Last modified: April 04, 2008 |
%
referredsmtp_server_address = "localhost"
referred =
lcase(request.servervariables("HTTP_HOST"))
if lcase(referred) <> "www.northernchild.com" then
response.end
end
if
on error resume next
Response.Buffer = True
Set Jmail =
Server.CreateOBject( "JMail.Message" )
Jmail.Logging = true
Jmail.Silent =
true
JMail.From = "formresponse@northernchild.com"
Jmail.AddRecipient "julian@northernchild.com"
JMail.Subject
= "Form Response"
FOR EACH el IN Request.Form
body = body & el &
": " & Request.form(el) & vbcrlf
NEXT
JMail.Body =
Body
JMail.Priority = 1
if not
Jmail.Send(smtp_server_address) then
' There was an error - print the error
log
Response.write ("Error:<br>" &
Jmail.log)
else
' The message has been sent -
redirect to confirmation page
Set JMail = Nothing
response.redirect
"contactus.asp"
end if
Set JMail =
Nothing
%>
%>