<%
SUB sendmail( fromWho, toWho, Subject, Body )
Dim objCDO
Dim iConf
Dim Flds
Const cdoSendUsingPort = 2
Set objCDO = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail-fwd"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
End With
Set objCDO.Configuration = iConf
Body = Body & "WEBSITE CAREER ENQUIRY" & vbcrlf & vbcrlf
Body = Body & "Personal Details:" & vbcrlf
Body = Body & "-----------------" & vbcrlf
Body = Body & "Name :: " & Request("applicant_name") & vbcrlf
Body = Body & "Age :: " & Request("applicant_age") & vbcrlf
Body = Body & "Email :: " & Request("applicant_email") & vbcrlf
Body = Body & "Sex :: " & Request("applicant_sex") & vbcrlf
Body = Body & "Tel :: " & Request("applicant_telephone_no") & vbcrlf
Body = Body & "Address :: " & Request("applicant_address") & vbcrlf
Body = Body & "State :: " & Request("state") & vbcrlf
Body = Body & "Drivers License No :: " & Request("drivers_lic_no") & vbcrlf
Body = Body & "Drivers License Expiry Date :: " & Request("drivers_lic_expiry") & vbcrlf
Body = Body & "Accreditation No :: " & Request("accreditation_no") & vbcrlf
Body = Body & "Driver Authority No :: " & Request("driver_auth_no") & vbcrlf
Body = Body & "ABN :: " & Request("ABN") & vbcrlf
Body = Body & "Type of ABN :: " & Request("ABN_type") & vbcrlf & vbcrlf
Body = Body & "Vehicle:" & vbcrlf
Body = Body & "-----------------" & vbcrlf
Body = Body & "Vehicle Owner :: " & Request("vehicle_owner") & vbcrlf
Body = Body & "Type :: " & Request("vehicle_type") & vbcrlf
Body = Body & "Model :: " & Request("vehicle_model") & vbcrlf
Body = Body & "Year :: " & Request("vehicle_year") & vbcrlf
Body = Body & "Colour :: " & Request("vehicle_colour") & vbcrlf
Body = Body & "Registration No :: " & Request("vehicle_reg_no") & vbcrlf & vbcrlf
Body = Body & "Experience:" & vbcrlf
Body = Body & "-----------------" & vbcrlf
Body = Body & Request("experience") & vbcrlf
objCDO.From = fromWho
objCDO.To = toWho
objCDO.Subject = Subject
objCDO.TextBody = Body
objCDO.Send
END SUB
fromWho = TRIM( Request.Form( "fromWho") )
toWho = TRIM( Request.Form( "toWho") )
Subject = TRIM( Request.Form( "Subject" ) )
Body = TRIM( Request.Form( "Body") )
If toWho <> "" THEN
sendMail fromWho, toWho, Subject, Body
'Cleanup
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
Response.redirect "thanks.htm"
' Any existing page can be used for the response redirect method
END IF
%>
Brunel Worldwide Chauffeur Drive - Careers
Career Opportunities
Brunel regularly has positions available for new chauffeurs.
Please fill in our online form to let us know more
about you. Fields marked with (*) are required.
