Home Global Search
Home IGBH Guild Butlers
About us
Services
Job seekers
Vacancies
Application Form
Employers
Client Enquiry
Register your vacancies
Candidates
Reports/News
Contact

 

<% 'check if form has been posted or if this is just the first page view if request.QueryString("up") = "1" then dim Upload, maxbytes maxbytes = 500000 Set Upload = Server.CreateObject("Persits.Upload.1") ' Save to disk 'Upload.Save server.MapPath("uploaded/") Upload.SaveVirtual("uploaded/") %> <% Private sub deleteFile(filespec) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") if fso.FileExists(filespec) then fso.DeleteFile filespec, true end if Set fso = Nothing End sub Function returnFileName(pth) dim fso Set fso = CreateObject("Scripting.FileSystemObject") returnFileName = fso.getFileName(pth) set fso = Nothing End Function Private Sub moveFile(src, dest) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") if fso.FileExists(dest) then ' fso.DeleteFile dest, true end if fso.MoveFile src, dest Set fso = Nothing End Sub Dim MyCDONTSMail Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= "CV@globalsearchint.com" ' MyCDONTSMail.To= "omar@eregeneration.com" MyCDONTSMail.To= "wayne@igbh.com" MyCDONTSMail.Subject="CV sent from a candidate" mainMessage= "First name: " + Upload.Form("firstname") + VBNewLine mainMessage= mainMessage + "Last name: " + Upload.Form("lastname") + VBNewLine mainMessage= mainMessage + "Present Position: " + Upload.Form("presentposition") + VBNewLine mainMessage= mainMessage + "Position being applied for: " + Upload.Form("positionbeingappliedfor") + VBNewLine mainMessage= mainMessage + "Address:" + VBNewLine + Upload.Form("address") + VBNewLine + VBNewLine mainMessage= mainMessage + "City: " + Upload.Form("city") + VBNewLine mainMessage= mainMessage + "Postal code: " + Upload.Form("postalcode") + VBNewLine mainMessage= mainMessage + "Country: " + Upload.Form("country") + VBNewLine mainMessage= mainMessage + "Contact number: " + Upload.Form("contactnumber") + VBNewLine mainMessage= mainMessage + "Email address: " + Upload.Form("emailaddress") + VBNewLine mainMessage= mainMessage + "Date of birth: " + Upload.Form("dateofbirth") + VBNewLine mainMessage= mainMessage + "Marital Status: " + Upload.Form("maritalstatus") + VBNewLine mainMessage= mainMessage + "Number of dependants: " + Upload.Form("numberofdependants") + VBNewLine mainMessage= mainMessage + "Nationality: " + Upload.Form("nationality") + VBNewLine mainMessage= mainMessage + "Additional Information: " + VBNewLine + Upload.Form("additionalinformation") + VBNewLine MyCDONTSMail.Body= mainMessage For Each File in Upload.Files filename = returnFileName(File.Path) SELECT CASE LCase(right(File.Path, 4)) CASE ".doc" if File.Size < maxbytes then sendMail = true MyCDONTSMail.AttachFile File.Path ' I left the line below out. ' Response.Write filename & " (" & File.Size &" bytes) was sent.
" response.Write "

Application Form




" response.Write "Thank you - your details have been sent.

" response.Write "We will be in contact with you shortly.



" else response.Write "

Application Form




" response.Write "Thank you - your details have been sent.

" response.Write "We will be in contact with you shortly.



" Response.Write filename & " exceeded the maximum file size of " & maxbytes & " bytes." Response.Write "Your file has not been sent with the form. Please try again with a correct file.

" Response.Write "GO BACK" end if CASE ELSE response.Write "

Application Form




" response.Write "Thank you - your details have been sent.

" response.Write "We will be in contact with you shortly.



" Response.Write "File '" & filename & "' was not of a valid type.
" Response.Write "Please only submit files ending with 'doc'.
" Response.Write "Your file has not been sent with the form. Please try again with a correct file.

" Response.Write "GO BACK" END SELECT next sendMail = true Dim MyCDONTSMailToSender Set MyCDONTSMailToSender = CreateObject("CDONTS.NewMail") MyCDONTSMailToSender.From= "management@globalsearchint.com" MyCDONTSMailToSender.To= Upload.Form("emailaddress") MyCDONTSMailToSender.Subject="Thanks for submitting your details to Global Search International" messageToSender = Upload.Form("firstname") + ", thanks for submitting your details." + VBNewLine + VBNewLine messageToSender = messageToSender + "We will be in contact with you soon." + VBNewLine + VBNewLine messageToSender = messageToSender + "Management" + VBNewLine + VBNewLine MyCDONTSMailToSender.Body = messageToSender if sendmail = true then MyCDONTSMail.Send set MyCDONTSMail=nothing MyCDONTSMailToSender.Send set MyCDONTSMailToSender = nothing end if 'clean up server AFTER mail is sent for each File in upload.Files deleteFile File.Path next Set Upload = Nothing else %>

 

REGISTER YOUR DETAILS FOR FREE

If you would like to be considered for future employment, please just send us your CV and let us know the sectors your are interesting in working.



If we don't have your CV, we cannot inform you of the positions we have, and not all our positions are advertised on here or in our advertising media.

 

Please send us your CV and ensure that it is as professional as it can be

For help with your CV, we can send you a CV template, but our CV tips can be found on our CV tips page, click here for help

We'll contact you shortly afterwards.

 

please send your details to PA@globalsearchint.com

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

First name
Last name
Present position
Position being applied for
Address
City
Postal code
Country
Contact number
Email address
Date of birth
Marital status
Number of dependants
Nationality
Attach CV
Additional Information
 
 
<% end if %>






                                                                   Copyright © 2005 Global Search International. All rights reserved. Designed by E Regeneration