Last Updated:3/23/2006 11:39:46 AM
<% hdnReqId=request.form("hdnReqId") if hdnReqId = "" then hdnReqId="none" end if hdnJobTitle=request.form("hdnJobTitle") if hdnJobTitle = "" then hdnJobTitle="none" end if %>
Qplus logo Job seekers
 
Home >> Job Seekers >> Apply Now
APPLY NOW
 
Those with * are mandatory
Name : *
Telephone No.:
E-mail: *
Educational Qualification :
Expected Salary :
Your Current Location : *
Upload Resume : *
Post Resume: *
   
<% Sub SendMail() Dim objMail,strEmailBody,strEmailSubject, strName,strJobTitle,strEmail,strResume Dim strReqId,strContact, strQualification, strSalary, strLocation strName = Replace(Replace(trim(Request.Form("requiredtxtName")),"'",""),"""","") strReqId = Request.Form("hdnReqId") strJobTitle = Request.Form("hdnJobTitle") strContact = Replace(Replace(trim(Request.Form("requiredtxtContact")),"'",""),"""","") strEmail = Replace(Replace(trim(Request.Form("requiredtxtMail")),"'",""),"""","") strQualification = Replace(Replace(trim(Request.Form("requiredtxtQual")),"'",""),"""","") strSalary = Replace(Replace(trim(Request.Form("requiredtxtSalary")),"'",""),"""","") strLocation = Replace(Replace(trim(Request.Form("requiredtxtLocation")),"'",""),"""","") strResume = Replace(Replace(trim(Request.Form("requiredtxtResume")),"'",""),"""","") strEmailSubject = "Resume for the post - " & strJobTitle strEmailBody = "Resume - Qpluslearning.com

"&_ "Name : "& Replace(Replace(strName,")",""),"(","") & "
" &_ "Requisition Id : "& strReqId & "
" &_ "Job Title : "& strJobTitle & "
" &_ "Contact No : "& Replace(Replace(strContact,")",""),"(","") & "
" &_ "Ed. Qualification : "& Replace(Replace(strQualification,")",""),"(","") & "
" &_ "Expected Salary : "& Replace(Replace(strSalary,")",""),"(","") & "
" &_ "Location : "& Replace(Replace(strLocation,")",""),"(","") & "
" &_ "Email : "& strEmail & "
" &_ "Resume Details : "& Replace(Replace(strResume,")",""),"(","") & "
" 'Sending mail 'Mail setting for Persits.MailSender 'Set objMail = Server.CreateObject("Persits.MailSender") 'objMail.Host = "smtp.cybercon.com" 'objMail.Host = "216.198.192.194" 'objMail.From = strEmail 'objMail.FromName = strName 'objMail.AddAddress "rahulp@bslindia.com" 'Mail setting for CDONTS Set objMail = Server.CreateObject("CDONTS.newmail") objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.From = strEmail objMail.To = "careers@qpluslearning.com" objMail.Cc = "pankaj@binarysemantics.com" objMail.Cc = "preeti@qpluslearning.com" 'objMail.Cc = "dsahoo@bslindia.com" objMail.Subject = strEmailSubject objMail.Body = strEmailBody ' objMail.IsHTML=True objMail.Send() Set objMail = Nothing strMessage = "Thanks. Your Resume has been successfully posted. We'll get back to you shortly." End Sub Sub SystemMessage() %>
<%= strMessage %>
<% End Sub %>