<% ' change to address of your own SMTP server strHost = "smtp.rapidhost.co.uk" ' We use AspUpload component to capture uploaded file and access other form items. ' Because of the special ENCTYPE attribute we can no longer use Request.Form, ' we must use Upload.Form instead. ' More more info on AspUpload, visit www.aspupload.com. Set Upload = Server.CreateObject("Persits.Upload") Upload.IgnoreNoPost = True ' capture an upload and save uploaded files (if any) in temp directory Upload.Save "E:\Hosting\platinum\uploads" ' Note that we cannot use Upload.Form or Upload.Files until Upload.Save is called. If Upload.Form("Send") <> "" Then newline = chr(13)&chr(10) BodyText = "Vacancy Enquiry from Platinum Resourcing Website" & newline BodyText = BodyText & "------------------------------------------------"& newline BodyText = BodyText & "The following details were received from the Vacancy"& newline BodyText = BodyText & " Application Form:"& newline BodyText = BodyText & "The candidate would like to: "& newline BodyText = BodyText & Upload.Form("box1register")& newline BodyText = BodyText & Upload.Form("box2general")& newline BodyText = BodyText & Upload.Form("box3comein")& newline & newline BodyText = BodyText & "Candidate name: " & Upload.Form("name") & newline BodyText = BodyText & "Address: " & Upload.Form("address") & newline BodyText = BodyText & "Postcode: " & Upload.Form("postcode") & newline BodyText = BodyText & "Position/general enquiry: "& Upload.Form("position") & newline BodyText = BodyText & "Home telephone number: " & Upload.Form("hometel") & newline BodyText = BodyText & "Work telephone number: " & Upload.Form("worktel") & newline BodyText = BodyText & "Fax: " & Upload.Form("fax") & newline BodyText = BodyText & "Email: " & Upload.Form("email") & newline BodyText = BodyText & "Mobile: " & Upload.Form("mobile") & newline BodyText = BodyText & "How did you find Platinum's website?: " & Upload.Form("find") & newline Set Mail = Server.CreateObject("Persits.MailSender") Mail.From = "jobs@platinumresourcing.co.uk" Mail.FromName = "Platinum Website" Mail.Host = strHost Mail.Subject = "Website Vacancy Application" Mail.Body = BodyText Mail.AddAddress "jobs@platinumresourcing.co.uk" ' Handle attached file via Upload.Files collection. ' Check if a file was ineed uploaded If Not Upload.Files("Attachment") Is Nothing Then Mail.AddAttachment Upload.Files("Attachment").Path End If ' We are done. Send message Mail.Send Response.Redirect "thanks.html" End If %> Platinum Resourcing (UK) Ltd

If you are interested in

 

Vacancy Application Form

Enquiry details
(please check the relevant boxes)

 Register CV
 Please call me
 Arrange to come in

Candidate name

Address

Postcode

Position / enquiry

Home telephone number

Work telephone number
(we will be discreet)

Fax number

Email

Mobile

How did you find PLATINUM's website?

Please attach your CV

 

Platinum Resourcing UK Limited.
44 High Street. Marlow.
Buckinghamshire. SL7 1AW.
Tel:01628-484747    Fax: 01628-484284.
Thames Court. 1 Victoria Street. Windsor. Berks. SL4 1YB.
Tel: 01753-752275
jobs@platinumresourcing.co.uk  www.platinumresourcing.co.uk