|
|
 |
 |
|
|
|
|
| Work With Delton |
| |
|
|
| |
|
| |
Submit
your resume |
| |
|
<%
strMSG=""
If Request.ServerVariables ("content_length")<>0 then
'intID=Request("JobID")
strCurr_Emp=Request("txtCurrEmp")
strCurr_Post=Request("txtPost")
strName=Request("txtName")
strAdd=Request("txtAdd")
strEmail=Request("txtEmail")
strResume=Request("txtResume")
strContact=Request("txtNo")
strSalary=Request("txtSalary")
strRef=Request("txtRef")
Set RSJ=Server.CreateObject ("ADODB.RecordSet")
RSJ.Open "Select * from tblJobSeeker where 1<>1",conn,1,3
sysDate=Now()
RSJ.AddNew
'RSJ("JobID")=intID
RSJ("Current_Emp")=strCurr_Emp
RSJ("Post_Applied")=strCurr_Post
RSJ("Name")=strName
RSJ("Email")=strEmail
RSJ("Address")=strAdd
RSJ("Salary")=strSalary
RSJ("Resume")=strResume
RSJ("Ref")=strRef
RSJ("Contact_No")=strContact
RSJ("Enter_Date")=sysDate
RSJ.Update
RSJ.Close
strMessage = ""
strMessage= strMessage & "New Resume has been posted with following information
"
strMessage= strMessage & "
Post :"&strCurr_Post
strMessage= strMessage & "
Name of Candidate:"&strName
strMessage= strMessage & "
Current Employer :"&strCurr_Emp
strMessage= strMessage & "
Current Salary :"&strSalary
strMessage= strMessage & "
Address:"&strAdd
strMessage= strMessage & "
Contact No :"&strContact
strMessage= strMessage & "
Reference :"&strRef
strMessage= strMessage & "
Email :"&strEmail
strMessage= strMessage & "
Resume :"&strResume
strMessage= strMessage & ""
Set Mailer=Server.CreateObject("CDONTS.NewMail")
Mailer.From ="jobs@deltoncable.com"
Mailer.To ="jobs@deltoncable.com"
'Mailer.CC =
Mailer.BCC ="aagrawal@ishir.com"
Mailer.Subject="New Resume has been posted through website"
Mailer.BodyFormat=0
Mailer.MailFormat=0
Mailer.Body=strMessage
Mailer.Send
set Mailer=nothing
'strMSG=" Thank you for applying. We will get back to you very soon"
strMsg=" Thank You!! You have successfully applied for selected Position "
End IF
%>
| |
|
| |
|
| |
|
| |
|
| |
|
| |
|
|
| |
| |
| |
| |
| |
|
|
|
|