Global search online - International Recriutment Consultants

Home
About us
Services
Job seekers
Vacancies
Application Form
Employers
Client Enquiry
Register your vacancies
Candidates available
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= "customerenquiry@globalsearchint.com" ' MyCDONTSMail.To= "omar@eregeneration.com" MyCDONTSMail.To= "wayne@igbh.com" MyCDONTSMail.Subject="Enquiry from a customer" mainMessage= "First name: " + Upload.Form("firstname") + VBNewLine mainMessage= mainMessage + "Last name: " + Upload.Form("lastname") + VBNewLine mainMessage= mainMessage + "Contact number: " + Upload.Form("contactnumber") + VBNewLine mainMessage= mainMessage + "Email address: " + Upload.Form("emailaddress") + VBNewLine mainMessage= mainMessage + "Additional Information: " + VBNewLine + Upload.Form("additionalinformation") + VBNewLine MyCDONTSMail.Body= mainMessage response.Write "

Client Enquiry

" response.Write "

Thank you for submitting the form. We will be in touch soon.

" 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.
" else Response.Write "Error: " & 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 sized file.

" Response.Write "GO BACK" end if CASE ELSE Response.Write "Error: 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 %>

CLIENT ENQUIRY

If you require further information about our services, or are seeking candidtates to fulfil a role, please contact us or use the enquiry form below.

First name
Last name
Contact number
Email address
Details of Enquiry;
Additonal Support Documents : (Please use the above to attach any documents in relation to your query)

<% end if %>