%
' 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
applying for a particular vacancy - please send your CV by post, fax or email or complete our vacancy application form
registering a particular vacancy - please send your Job Specification by post, fax or email or complete our vacancy registration form
Vacancy Application Form
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.ukwww.platinumresourcing.co.uk