% Option Explicit Dim strName Dim strServiceNo Dim strStationDept Dim strDateAndTime Dim strLocation Dim blnVerbal Dim blnPhysical Dim strOther Dim strDetailsOfOffender Dim strWitness1 Dim strWitness2 Dim strWitness3 Dim strWitness4 Dim strSpecificDetailsOfIncident Dim strWitnessName Dim strRank Dim strWitnessServiceNo Dim strWitnessStationDept Dim strAddress1 Dim strAddress2 Dim strAddress3 Dim strAddress4 Dim strWitnessStatement Dim strBody Dim Mail If Request.Form("Submit") <> "" then strName = Trim(Request.Form("Name")) strServiceNo = Trim(Request.Form("ServiceNo")) strStationDept = Trim(Request.Form("StationDept")) strDateAndTime = Trim(Request.Form("DateAndTime")) strLocation = Trim(Request.Form("Location")) blnVerbal = Trim(Request.Form("Verbal")) blnPhysical = Trim(Request.Form("Physical")) strOther = Trim(Request.Form("Other")) strDetailsOfOffender = Trim(Request.Form("DetailsOfOffender")) strWitness1 = Trim(Request.Form("Witness1")) strWitness2 = Trim(Request.Form("Witness2")) strWitness3 = Trim(Request.Form("Witness3")) strWitness4 = Trim(Request.Form("Witness4")) strSpecificDetailsOfIncident = Trim(Request.Form("SpecificDetailsOfIncident")) strWitnessName = Trim(Request.Form("WitnessName")) strRank = Trim(Request.Form("Rank")) strWitnessServiceNo = Trim(Request.Form("WitnessServiceNo")) strWitnessStationDept = Trim(Request.Form("WitnessStationDept")) strAddress1 = Trim(Request.Form("Address1")) strAddress2 = Trim(Request.Form("Address2")) strAddress3 = Trim(Request.Form("Address3")) strAddress4 = Trim(Request.Form("Address4")) strWitnessStatement = Trim(Request.Form("WitnessStatement")) Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.fireofficers.org.uk" Mail.From = strName Mail.FromName = strName Mail.AddAddress "foa@fireofficers.org.uk" Mail.Subject = "Harassment Form from FOA Web Site" strBody = "" strBody = strBody & "FOA MEMBER'S DETAILS" & vbcrlf strBody = strBody & "Name: " & strName & vbcrlf strBody = strBody & "Service No.: " & strServiceNo & vbcrlf strBody = strBody & "Station/Dept: " & strStationDept & vbcrlf & vbcrlf strBody = strBody & "DETAILS OF HARASSMENT" & vbcrlf strBody = strBody & "Date & Time: " & strDateAndTime & vbcrlf strBody = strBody & "Location: " & strLocation & vbcrlf & vbcrlf strBody = strBody & "FORM OF HARASSMENT" & vbcrlf If blnVerbal <> "" then strBody = strBody & "Verbal" End If If blnPhysical <> "" then strBody = strBody & "Physical" End If strBody = strBody & strOther & vbcrlf & vbcrlf strBody = strBody & "Details of Offender: " & strDetailsOfOffender & vbcrlf & vbcrlf strBody = strBody & "Name(s) of witness(es): " & vbcrlf strBody = strBody & strWitness1 & vbcrlf strBody = strBody & strWitness2 & vbcrlf strBody = strBody & strWitness3 & vbcrlf strBody = strBody & strWitness4 & vbcrlf & vbcrlf strBody = strBody & "Specific Details of Incident:" & vbcrlf strBody = strBody & strSpecificDetailsOfIncident & vbcrlf & vbcrlf strBody = strBody & "WITNESS STATEMENT" & vbcrlf strBody = strBody & "Witness Name: " & strWitnessName & vbcrlf strBody = strBody & "Rank: " & strRank & vbcrlf strBody = strBody & "Service No.: " & strWitnessServiceNo & vbcrlf strBody = strBody & "Station/Dept: " & strWitnessStationDept & vbcrlf strBody = strBody & "Address: " & strAddress1 If strAddress2 <> "" then strBody = strBody & ", " & strAddress2 End If If strAddress3 <> "" then strBody = strBody & ", " & strAddress3 End If strBody = strBody & vbcrlf & vbcrlf strBody = strBody & "Witness Statement:" & vbcrlf strBody = strBody & strWitnessStatement & vbcrlf Mail.Body = strBody On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description Else Response.Redirect "harassment_response.asp" End If End if %>