<%@LANGUAGE="VBSCRIPT"%> <% Dim CustomerRS__value CustomerRS__value = "qq" if (Request("CustomerEmail") <> "") then CustomerRS__value = Request("CustomerEmail") %> <% set CustomerRS = Server.CreateObject("ADODB.Recordset") CustomerRS.ActiveConnection = MM_CharonCart_STRING CustomerRS.Source = "SELECT * FROM Customers WHERE customeremail='" + Replace(CustomerRS__value, "'", "''") + "' ORDER BY CustomerID desc" CustomerRS.CursorType = 0 CustomerRS.CursorLocation = 2 CustomerRS.LockType = 3 CustomerRS.Open() CustomerRS_numRows = 0 %> <% If (CStr(Request("selected")) <> "") Then if not CustomerRS.eof then response.redirect "NewUserTaken.asp" strFn=cstr(Request("FirstName")) Response.Cookies("firstname").Expires=Date + 365 response.cookies("firstname")=ucase(left(strFn,1)) & right(strFn,len(strFn)-1) if Request.Form("RememberMe") = "check" then Response.Cookies("username").Expires=Date + 365 Response.Cookies("pass").Expires=Date + 365 Response.Cookies("rememberme").Expires=Date + 365 response.cookies("username")=Request("CustomerEmail") response.cookies("pass")=Request("Password") response.cookies("rememberme")=Request("RememberMe") end if CustomerRS.addnew CustomerRS("Title")=Request("Title") CustomerRS("LastName")=Request("LastName") CustomerRS("FirstName")=Request("FirstName") CustomerRS("CustomerEmail")=Request("CustomerEmail") CustomerRS("CustomerPassword")=Request("CustomerPassword") CustomerRS("Address1")=Request("BillingAddress1") CustomerRS("Address2")=Request("BillingAddress2") CustomerRS("City")=Request("BillingCity") CustomerRS("Region")=Request("BillingRegion") CustomerRS("PostalCode")=Request("BillingPostalCode") CustomerRS("Country")=Request("BillingCountry") CustomerRS("SameDelivery")=DoCheck(Request("SameDelivery")) CustomerRS("DeliveryAddress1")=Request("DeliveryAddress1") CustomerRS("DeliveryAddress2")=Request("DeliveryAddress2") CustomerRS("ShipCity")=Request("ShipCity") CustomerRS("ShipRegion")=Request("ShipRegion") CustomerRS("ShipPostalCode")=Request("ShipPostalCode") CustomerRS("ShipCountry")=Request("ShipCountry") CustomerRS("Phone")=Request("Phone") CustomerRS("Fax")=Request("Fax") CustomerRS("marital")=Request("Marital") CustomerRS("QualifyHGV1")=Request("HGV1") CustomerRS("QualifyHGV2")=Request("HGV2") CustomerRS("Qualify75TON")=Request("75TON") CustomerRS("QualifyVAN")=Request("VAN") CustomerRS("QualifyDriversMate")=Request("MATE") CustomerRS("QualifyRemoval")=Request("REMOVAL") CustomerRS("OtherQualifications")=Request("OtherQualifications") CustomerRS("LastJob")=Request("LastJob") CustomerRS("AnyConvictions")=Request("convictions") CustomerRS("MotorAccidents")=Request("Accidents") CustomerRS("RelocateYN")=Request("Relocate") CustomerRS("RelocateTo")=Request("relocateOption") CustomerRS("OtherComments")=Request("comments") CustomerRS("Howdidyoufindus")=Request("hereaboutus") CustomerRS("CV")=Request("thecv") CustomerRS("DOB")=Request("dob") CustomerRS("MailingList")=DoCheck(Request("MailingList")) CustomerRS.update CustomerRS.requery Response.Cookies("Products")("CustomerID")=CustomerRS("CustomerID") Response.Redirect("createcv.asp") end if %> <% set CountyRS = Server.CreateObject("ADODB.Recordset") CountyRS.ActiveConnection = MM_CharonCart_STRING CountyRS.Source = "SELECT * FROM Counties" CountyRS.CursorType = 0 CountyRS.CursorLocation = 2 CountyRS.LockType = 3 CountyRS.Open() CountyRS_numRows = 0 %> <% set CountryRS = Server.CreateObject("ADODB.Recordset") CountryRS.ActiveConnection = MM_CharonCart_STRING CountryRS.Source = "SELECT * FROM Countries" CountryRS.CursorType = 0 CountryRS.CursorLocation = 2 CountryRS.LockType = 3 CountryRS.Open() CountryRS_numRows = 0 %> <% set Titles = Server.CreateObject("ADODB.Recordset") Titles.ActiveConnection = MM_CharonCart_STRING Titles.Source = "SELECT * FROM Titles" Titles.CursorType = 0 Titles.CursorLocation = 2 Titles.LockType = 3 Titles.Open() Titles_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 BoardRS_numRows = BoardRS_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 MemberRS_numRows = MemberRS_numRows + Repeat2__numRows %> Recruitment Drive - Driving the Industrial Sector

 

 

 

REGISTER WITH US

If you are interested in any job listed on this site or would like to register with our agency please complete your details below.

Personal Information

 

Title
First Name
Last Name
Email Address
Address
Address2
City
Region
Postcode
Country
Phone
Mobile
Date of Birth dd/mm/yy
Marital Status
   
Qualifications
Qualifications / Previous Jobs  
Other Qualifications
How long were you in your last job
Any convictions, disqualifications or driving points awarded against you
Have you been involved in any motor Vehicle accidents in the past five years?
Are you willing to relocate? Yes           NO
If the answer above is 'YES', where would you be willing to relocate to?
   
Any other comments
How did you find this site?
   
Your CV
 
   
If you have a CV you can type it in the word processor box or cut & paste from original.
   
Please enter and confirm your password below
   
Password
Confirm
  Remember my Password
Mailing List Subscribe to our job mailing List
   
 
   
   
   

 

 

 

 

 

 

<% CustomerRS.Close() %> <% CountyRS.Close() %> <% CountryRS.Close() %> <% Titles.Close() %>