%
Option Explicit
Dim strTitle
Dim strSurname
Dim strForename
Dim strAddress1
Dim strAddress2
Dim strAddress3
Dim strPostCode
Dim strTelephone
Dim strEmail
Dim strComments
Dim strFullName
Dim strBody
Dim Mail
If Request.Form("Submit") <> "" then
strTitle = Trim(Request.Form("Title"))
strSurname = Trim(Request.Form("Surname"))
strForename = Trim(Request.Form("Forename"))
strAddress1 = Trim(Request.Form("Address1"))
strAddress2 = Trim(Request.Form("Address2"))
strAddress3 = Trim(Request.Form("Address3"))
strPostCode = Trim(Request.Form("PostCode"))
strTelephone = Trim(Request.Form("Telephone"))
strEmail = Trim(Request.Form("Email"))
strComments = Trim(request.Form("Comments"))
strFullName = ""
If strTitle <> "" then
strFullName = strFullName & strTitle & " "
End If
If strForename <> "" then
strFullName = strFullName & strForename & " "
End If
If strSurname <> "" then
strFullName = strFullName & strSurname & " "
End If
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "127.0.0.1"
Mail.From = strEmail
Mail.FromName = strFullName
Mail.AddAddress "foa@fireofficers.org.uk"
'Mail.AddAddress "gavin_404@hotmail.com"
Mail.Subject = "Contact Form from FOA Web Site"
strBody = ""
strBody = strBody & "Name: " & strFullName & vbcrlf
strBody = strBody & "Address: " & strAddress1
If strAddress2 <> "" then
strBody = strBody & ", " & strAddress2
End If
If strAddress3 <> "" then
strBody = strBody & ", " & strAddress3
End If
strBody = strBody & vbcrlf
strBody = strBody & "Post Code: " & strPostCode & vbcrlf
strBody = strBody & "Telephone: " & strTelephone & vbcrlf
strBody = strBody & "E-mail: " & strEmail & vbcrlf
strBody = strBody & vbcrlf
strBody = strBody & "Comments: " & vbcrlf
strBody = strBody & strComments & vbcrlf
Mail.Body = strBody
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
Else
Response.Redirect "contactus_response.asp"
End If
End if
%>
The Fire Officers Association
|
|
|
|

The FOA contact details
Email: foa@fireofficers.org.uk
Fire Officers' Association
London Road
Moreton in Marsh
Gloucestershire
GL56 0RH
Tel: 01608 652023
To contact us or to find out more about the Fire Officers Association simply complete and submit this online form (* indicates mandatory field):
|
|
|
|
|