Please contact the head office with general queries by filling in the form below about career opportunities at Resource Medical UK Ltd.
% if ucase(Request.ServerVariables("REQUEST_METHOD"))= "POST" then Set uploadfile = Server.CreateObject("Persits.Upload") uploadfile.SaveVirtual("/CareerCV") set conn = Server.CreateObject("ADODB.Connection") conn.Provider ="Microsoft.Jet.OLEDB.4.0" conn.Open "e:/hshome/infonlc/resource-medical.co.uk/rmdb/RMedicalDb.mdb" set recset = Server.CreateObject("ADODB.RecordSet") recset.open "tblCareers",conn,2,2 recset.addnew recset("fName")=uploadfile.Form("fName") recset("lName")=uploadfile.Form("lName") recset("addressL1")=uploadfile.Form("address1") recset("addressL2")=uploadfile.Form("address2") recset("city")=uploadfile.Form("city") recset("zipCode")=uploadfile.Form("zipCode") recset("country")=uploadfile.Form("country") recset("phone")=uploadfile.Form("phone") recset("email")=uploadfile.Form("email") recset("areaInterest")=uploadfile.Form("areaInterest") recset("coverLetter")=uploadfile.Form("cLetter") recset("cvFileName")=uploadfile.Files(1).FileName recset.update conn.close Set recset =nothing set conn =nothing 'Response.Write(uploadfile.Form("fName")) 'Response.Write(uploadfile.Form("lName")) 'Response.Write(uploadfile.Form("address1")) 'Response.Write(uploadfile.Form("address2")) 'Response.Write(uploadfile.Form("city")) 'Response.Write(uploadfile.Form("zipCode")) 'Response.Write(uploadfile.Form("country")) 'Response.Write(uploadfile.Form("phone")) 'Response.Write(uploadfile.Form("email")) 'Response.Write(uploadfile.Form("areaInterest")) 'Response.Write(uploadfile.Form("cLetter")) Response.Redirect("careerscomplete.asp") 'Response.Write(Request.Form("fName")) 'Code for sending Email Set contactEmail = CreateObject("CDO.Message") contactEmail.Subject = "Customer Feedback ::" &fName&"" contactEmail.From = email contactEmail.To = "info@resourcemedical.co.uk" contactEmail.HTMLBody = "
"&comments&"" contactEmail.Send set contactEmail = nothing end if %>