%@ Language=VBScript %> <% if Request.form("cmdSubmit") = "Submit" then dim strbody dim objmail Dim attachment Dim objFile const emailid = "job@swiftplacements.com" set objmail = Server.CreateObject("Persits.MailSender") Set objFile = Server.CreateObject("Scripting.FileSystemObject") attachment = Request.Form("txtFilePath") strbody = "txtLicenseKey: " & Request.Form("txtlicensekey") & vbcrlf strbody = strbody & "txtCode: " & Request.Form("txtCode") & vbcrlf strbody = strbody & "temp_loc: " & Request.Form("temp_loc") & vbcrlf strbody = strbody & "temp_exp: " & Request.Form("temp_exp") & vbcrlf strbody = strbody & "temp_quali: " & Request.Form("temp_quali") & vbcrlf strbody = strbody & "temp_skill: " & Request.Form("temp_skill") & vbcrlf strbody = strbody & "txtName: " & Request.Form("txtName") & vbcrlf strbody = strbody & "txtEmail: " & Request.Form("txtEmail") & vbcrlf strbody = strbody & "txtAddress: " & Request.Form("txtAddress") & vbcrlf strbody = strbody & "txtAddress2: " & Request.Form("txtAddress2") & vbcrlf strbody = strbody & "selGender: " & Request.Form("selGender") & vbcrlf strbody = strbody & "selDay: " & Request.Form("selDay") & vbcrlf strbody = strbody & "selMonth: " & Request.Form("selMonth") & vbcrlf strbody = strbody & "selYear: " & Request.Form("selYear") & vbcrlf strbody = strbody & "txtPassport: " & Request.Form("txtPassport") & vbcrlf strbody = strbody & "selPEDay: " & Request.Form("selPEDay") & vbcrlf strbody = strbody & "selPEMonth: " & Request.Form("selPEMonth") & vbcrlf strbody = strbody & "selPEYear: " & Request.Form("selPEYear") & vbcrlf strbody = strbody & "selCity: " & Request.Form("selCity") & vbcrlf strbody = strbody & "state: " & Request.Form("state") & vbcrlf strbody = strbody & "selCountry: " & Request.Form("selCountry") & vbcrlf strbody = strbody & "Zip: " & Request.Form("Zip") & vbcrlf strbody = strbody & "txtPhoneO: " & Request.Form("txtPhoneO") & vbcrlf strbody = strbody & "txtPhone: " & Request.Form("txtPhone") & vbcrlf strbody = strbody & "txtMobile: " & Request.Form("txtMobile") & vbcrlf strbody = strbody & "txtFax: " & Request.Form("txtFax") & vbcrlf strbody = strbody & "radMarital: " & Request.Form("radMarital") & vbcrlf strbody = strbody & "selPostapplied: " & Request.Form("selPostapplied") & vbcrlf strbody = strbody & "selLocation: " & Request.Form("selLocation") & vbcrlf strbody = strbody & "location: " & Request.Form("location") & vbcrlf strbody = strbody & "exptxt: " & Request.Form("exptxt") & vbcrlf strbody = strbody & "expertise: " & Request.Form("expertise") & vbcrlf strbody = strbody & "skilltxt: " & Request.Form("skilltxt") & vbcrlf strbody = strbody & "skill: " & Request.Form("skill") & vbcrlf strbody = strbody & "selQualification: " & Request.Form("selQualification") & vbcrlf strbody = strbody & "Specialisation: " & Request.Form("Specialisation") & vbcrlf strbody = strbody & "University: " & Request.Form("University") & vbcrlf strbody = strbody & "year: " & Request.Form("year") & vbcrlf strbody = strbody & "quali: " & Request.Form("quali") & vbcrlf strbody = strbody & "selPresentsal: " & Request.Form("selPresentsal") & vbcrlf strbody = strbody & "currencyPresent: " & Request.Form("currencyPresent") & vbcrlf strbody = strbody & "selExpectedsal: " & Request.Form("selExpectedsal") & vbcrlf strbody = strbody & "currencyExpected: " & Request.Form("currencyExpected") & vbcrlf strbody = strbody & "Total_Experience: " & Request.Form("Total_Experience") & vbcrlf strbody = strbody & "ExpField0: " & Request.Form("ExpField0") & vbcrlf strbody = strbody & "selMonthFrom0: " & Request.Form("selMonthFrom0") & vbcrlf strbody = strbody & "selYearFrom0: " & Request.Form("selYearFrom0") & vbcrlf strbody = strbody & "txtCompany0: " & Request.Form("txtCompany0") & vbcrlf strbody = strbody & "selIndustryadd0: " & Request.Form("selIndustryadd0") & vbcrlf strbody = strbody & "selDepartmentadd0: " & Request.Form("selDepartmentadd0") & vbcrlf strbody = strbody & "selpost0: " & Request.Form("selpost0") & vbcrlf strbody = strbody & "selNatmul0: " & Request.Form("selNatmul0") & vbcrlf strbody = strbody & "ExpField1: " & Request.Form("ExpField1") & vbcrlf strbody = strbody & "selMonthFrom1: " & Request.Form("selMonthFrom1") & vbcrlf strbody = strbody & "selYearFrom1: " & Request.Form("selYearFrom1") & vbcrlf strbody = strbody & "selMonthTo1: " & Request.Form("selMonthTo1") & vbcrlf strbody = strbody & "selYearTo1: " & Request.Form("selYearTo1") & vbcrlf strbody = strbody & "txtCompany1: " & Request.Form("txtCompany1") & vbcrlf strbody = strbody & "selIndustryadd1: " & Request.Form("selIndustryadd1") & vbcrlf strbody = strbody & "selDepartmentadd1: " & Request.Form("selDepartmentadd1") & vbcrlf strbody = strbody & "selpost1: " & Request.Form("selpost1") & vbcrlf strbody = strbody & "selNatmul1: " & Request.Form("selNatmul1") & vbcrlf strbody = strbody & "ExpField2: " & Request.Form("ExpField2") & vbcrlf strbody = strbody & "selMonthFrom2: " & Request.Form("selMonthFrom2") & vbcrlf strbody = strbody & "selYearFrom2: " & Request.Form("selYearFrom2") & vbcrlf strbody = strbody & "selMonthTo2: " & Request.Form("selMonthTo2") & vbcrlf strbody = strbody & "selYearTo2: " & Request.Form("selYearTo2") & vbcrlf strbody = strbody & "txtCompany2: " & Request.Form("txtCompany2") & vbcrlf strbody = strbody & "selIndustryadd2: " & Request.Form("selIndustryadd2") & vbcrlf strbody = strbody & "selDepartmentadd2: " & Request.Form("selDepartmentadd2") & vbcrlf strbody = strbody & "selpost2: " & Request.Form("selpost2") & vbcrlf strbody = strbody & "selNatmul2: " & Request.Form("selNatmul2") & vbcrlf strbody = strbody & "ExpField3: " & Request.Form("ExpField3") & vbcrlf strbody = strbody & "selMonthFrom3: " & Request.Form("selMonthFrom3") & vbcrlf strbody = strbody & "selYearFrom3: " & Request.Form("selYearFrom3") & vbcrlf strbody = strbody & "selMonthTo3: " & Request.Form("selMonthTo3") & vbcrlf strbody = strbody & "selYearTo3: " & Request.Form("selYearTo3") & vbcrlf strbody = strbody & "txtCompany3: " & Request.Form("txtCompany3") & vbcrlf strbody = strbody & "selIndustryadd3: " & Request.Form("selIndustryadd3") & vbcrlf strbody = strbody & "selDepartmentadd3: " & Request.Form("selDepartmentadd3") & vbcrlf strbody = strbody & "selpost3: " & Request.Form("selpost3") & vbcrlf strbody = strbody & "selNatmul3: " & Request.Form("selNatmul3") & vbcrlf strbody = strbody & "txtComments: " & Request.Form("txtComments") & vbcrlf objmail.Host="mail.sixvision.net" objmail.From=Request.Form("txtEmail") objmail.FromName=Request.Form("txtName") objmail.Subject="Candidate Resume" objmail.AddAddress "job@swiftplacements.com" if attachment<>"" then objmail.AddAttachment Server.MapPath("Upload") & "\" & Session.SessionID & "\" & attachment end if objmail.Body = strbody objmail.Send 'WRITE THE CODE TO REMOVE THE FOLDER FROM THE SERVER if trim(attachment)<>"" then objFile.DeleteFolder Server.MapPath("Upload") & "\" & Session.SessionID, True end if Set objmail = Nothing Set objFile = Nothing Response.Redirect "Thanks.htm" end if %>
| Candidate Information |