<%response.Buffer ="True" %> <% 'if Session("rUsername")="" then 'response.redirect "adminlogin.asp" 'response.end 'end if%> <% dim connTemp, rsTemp, rsTemp2, pchk, pcode, gallery, rsDel, strsql, cdata dim mySQL2, mySQL,mySQL1, subnum, mySQL6 on error resume next pCompany = getSetting("pCompany") pEmailAdmin = getSetting("pEmailAdmin") rsmid=RequestItem("rsmid") msg="" 'deleting image if RequestItem("apply")="yes" and rsmid<>"" and Session("pResumeId")<>"0" and Session("pResumeId")<>"" then rsid=Session("pResumeId") if rsid="" then rsid = "0" mySQL2="SELECT * FROM Resume_job where resumeId="&rsid& " and jobID="&rsmid on error resume next call getFromDatabase(mySQL2, rstemp2) if rstemp2.eof then mySQL="INSERT INTO Resume_job(resumeId,jobID,postdate) VALUES (" &rsid& "," &rsmid& ",'" &Date()& "')" on error resume next call updateDatabase(mySQL, rstemp) 'strToEmail="raoof_ipr@yahoo.co.in" strToEmail="overseasjobs@intermanagement.com" strFromEmail=descValue("resume","pre_email","resumeId",rsid) tPosition=descValue("Vacancy","position","jobID",rsmid) tdate=descValue("Vacancy","postdate","jobID",rsmid) Body=Body&"   " Body=Body&"" Body=Body&"" Body=Body&"" Body=Body&"" Body=Body&"

Applied Job Vacancy ,

Position for "&tPosition&"

User Name : "&Session("rUsername") &"

Please click to view the Candidate details " Body=Body&" (http://www.intermanagement.com/jobseeker/viewresume.asp?rsmid="&rsid&")

Thanks.

By InterManagement Manpower Services Limited.

" 'Body=Body&vbcrlf&vbcrlf&vbcrlf&vbcrlf&footerMessage 'response.write Body 'response.end on error resume next call sendmail(pCompany,strFromEmail,strToEmail,"Position of "&tPosition &" Posted : "& tdate,Body) call closeDb() response.redirect "displayMessage.asp?message="&Server.Urlencode("Thanks for Job Selecting, As soon as we will contact You very fast

Back To View Vacancy" ) response.end else response.redirect "displayMessage.asp?message="&Server.Urlencode("Already applied this Job of "&descValue("Vacancy","position","jobID",rsmid)&"

Back To View Vacancy" ) response.end end if end if 'response.write "Test : "& RequestItem("apply") 'response.end mySQL="SELECT * FROM Vacancy where jobID="&cInt(rsmid) on error resume next 'response.write mySQL call getFromDatabase(mySQL, rsTemp1) if not rsTemp1.eof then pjobID =rsTemp1("jobID") position1 =rsTemp1("position") job_description =rsTemp1("job_description") Compensation =rsTemp1("compensation") nationality =rsTemp1("country_location") jobloc =rsTemp1("sate_location") reference =rsTemp1("reference") candidate_profile =rsTemp1("candidate_profile") minimum_exp =rsTemp1("minimum_exp") maximum_exp =rsTemp1("maximum_exp") ugcourse =rsTemp1("UG_Qualification") pgcourse =rsTemp1("PG_Qualification") organisation_name =rsTemp1("organisation_name") category1 =rsTemp1("industry_type") subcategory1 =rsTemp1("role_vacancy") Keyword =rsTemp1("Keyword") newstext =rsTemp1("company_profile") strImageUrl =rsTemp1("imageUrl") intChkactive =rsTemp1("active") intNewjob =rsTemp1("new_job") intHotjob =rsTemp1("hot_job") postdate =rsTemp1("postdate") newstext = replace(newstext,"`","'") newstext = replace(newstext, """","'") newstext = replace(newstext, "Vbcrlf","") newstext = replace(newstext, Chr(8),"") newstext = replace(newstext, Chr(9),"") newstext = replace(newstext, Chr(10),"") newstext = replace(newstext, Chr(13),"") end if 'Session("rjobID")=pjobID %>

<%=Ucase(position1)%> <%'=position1%>     Location of Job : <%=descValueText("countryCodes","countryName","countryCode",nationality) %> <%if nationality="IN" then%> ,<%=descValue("IndState","stateName","stateCode",jobloc) %> <%end if %> Posted Date : <%=DateMonthForm(postdate)%>        <%=organisation_name%> <%if strImageUrl <> "" then %><%end if %> <%if request.queryString("chkt")="" then%> <%end if%>   Company Profile <%=newstext%> Job Detail    Job Description : <%=job_description%>    Compensation : <%=Compensation%>    Reference (JobCode / Subject Line) : <%=reference %>   Candidate Requirements    Candidate Profile : <%=candidate_profile %>    Work Experience : Minimum   <%= minimum_exp%> years      Maximum<%=maximum_exp %> years    UG Qualification : <%=descValue("CourseTB","UGCourse","courseID",ugcourse) %>    PG Qualification : <%=descValue("CourseTB","PGCourse","courseID",pgcourse) %> Job Classification    Industry Type : <%=descValue("categories","categoryDesc","idCategory",category1) %>    Keyword(s) : <%=Keyword%>           Email this job to a friend     Print this job

<% rsTemp1.close set rsTemp1 = nothing call closeDb() %>