<%
displayMode = -1
msg = ""
tmp = ""
' If this is a form submission
If Request.Form("Submitted") <> "" Then
'Check for empty fields
If Request.Form("name") = "" Then
msg = msg & "The name field is empty. "
End If
If Request.Form("emailaddress") = "" Then
msg = msg & "The email address field is empty. "
End If
If Request.Form("subject") = "" Then
msg = msg & "The subject field is empty. "
End If
If Request.Form("message") = "" Then
msg = msg & "No message has been entered. "
End If
If msg = "" Then
msg = "-----------------------------------------------" & chr(13) & chr(10) &_
"Pacific Journeys Web Site Contact" & chr(13) & chr(10) &_
"-----------------------------------------------" & chr(13) & chr(10) & chr(13) & chr(10) &_
"The details are as follows:" & chr(13) & chr(10) & chr(13) & chr(10) &_
"Name: " & Request.form("name") & chr(13) & chr(10) &_
"Email address: " & Request.form("emailaddress") & chr(13) & chr(10) &_
"Subject: " & Request.form("subject") & chr(13) & chr(10) &_
"The message: " & Request.form("message") & chr(13) & chr(10) & chr(13) & chr(10) &_
"This message was submitted: " & FormatDateTime(now(),1) & chr(13) & chr(10)
send_email "info@pacificjourneys.com",Request.Form("emailaddress"),Request.Form("subject"),msg
displayMode = 0
Else
msg = "The following errors were found:
" & msg & "
Please make the above amendments and try again.
"
displayMode = -1
End If
End If
%>
<% If displayMode = -1 Then %>
Pacific Journeys
Contact Us
To send us an email, please fill in the form
below.
Postal Address:
Peter Hendrie Photography
PO Box 103
Albert Park
Victoria 3206
Australia
<% Else
Response.redirect "contact_sent.htm"
End if%>
