To serve, to serve fully, promptly and efficiently, to serve beyond the terms of contract. 35 years of Professional Excellence
InterManagement Manpower Services Limited
AN ISO 9001 - 2008
Certified Organisation
<% dim connTemp, rsTemp, rsTemp2, pchk, pcode, gallery, rsDel, strsql, cdata dim mySQL2, mySQL,mySQL1, subnum, mySQL6 on error resume next jcid=RequestItem("jcid") msg="" if request.queryString("Save")="Save" then 'response.write "HI" 'response.End() category1 =0 category2 =0 category3 =0 subcategory1 =0 subcategory2 =0 subcategory3 =0 fname =replace(trim(request.form("fname")),"'","") mname =replace(trim(request.form("mname")),"'","") lname =replace(trim(request.form("lname")),"'","") parentname =replace(trim(request.form("parentname")),"'","") nationality =replace(trim(request.form("nationality")),"'","") sex =trim(request.form("sex")) if request.form("DBmonth")<>"" and request.form("DBday")<>"" and request.form("DByear")<>"" then DBdate =trim(request.form("DBmonth"))&"/"&trim(request.form("DBday"))&"/"&trim(request.form("DByear")) end if religion =replace(trim(request.form("religion")),"'","") mstatus =trim(request.form("mstatus")) education =replace(trim(request.form("education")),"'","`") profTechnical =replace(trim(request.form("profTechnical")),"'","`") profComputer =replace(trim(request.form("profComputer")),"'","`") profMachineries =replace(trim(request.form("profMachineries")),"'","`") totalExperience =0 otherinformation =replace(trim(request.form("otherinformation")),"'","`") hobbies =replace(trim(request.form("hobbies")),"'","`") licence =0 licencenationality =trim(request.form("licencenationality")) langwrite =replace(trim(request.form("langwrite")),"'","`") langspeak =replace(trim(request.form("langspeak")),"'","`") per_addr =replace(trim(request.form("per_addr")),"'","`") per_country =replace(trim(request.form("per_country")),"'","`") officePhone =trim(request.form("officePhone1"))&"-"&trim(request.form("officePhone2"))&"-"&trim(request.form("officePhone3")) ResPhone =trim(request.form("ResPhone1"))&"-"&trim(request.form("ResPhone2"))&"-"&trim(request.form("ResPhone3")) txtFax =trim(request.form("txtFax1"))&"-"&trim(request.form("txtFax2"))&"-"&trim(request.form("txtFax3")) intChkactive =trim(request.form("chkactive")) Mobile =trim(request.form("Mobile1"))&"-"&trim(request.form("Mobile2")) email =replace(trim(request.form("email")),"'","`") alt_email =replace(trim(request.form("alt_email")),"'","`") Perm_addr =replace(trim(request.form("Perm_addr")),"'","`") Perm_country =replace(trim(request.form("Perm_country")),"'","`") Perm_phone =trim(request.form("Perm_phone1"))&"-"&trim(request.form("Perm_phone2"))&"-"&trim(request.form("Perm_phone3")) Perm_fax =trim(request.form("Perm_fax1"))&"-"&trim(request.form("Perm_fax2"))&"-"&trim(request.form("Perm_fax3")) username =replace(trim(request.form("username")),"'","`") Password =replace(trim(request.form("Password")),"'","`") strDate=Date() if trim(intChkactive) <>"1" then intChkactive="1" end if 'transaction begin level = connTemp.BeginTrans() connTemp.BeginTrans mySQL4="SELECT * from resume Where username='"&username&"'" on error resume next call getFromDatabase(mySQL4, rstemp4) if not rstemp4.eof then msg="This Username '"&username&"' is already exist, Choose other Username" else mySQL="insert into resume (category1,category2,category3,subcategory1,subcategory2,subcategory3,firstname,middlename,lastname,username,password,fathername,sex,nationaly,dateofbirth,religion,maritastatus,educ_qualif,tech_qualif,computer_qualif,equp_qualif,total_experience,other_information,hobbies,licence,licence_nationality,lang_write,lang_speak,present_address,present_country,pre_phone_office,pre_phone_home,pre_fax,pre_mobile,pre_email,alternative_email,permt_address,permt_country,permt_phone,permt_fax,active,posteddate) values" mySQL=mySQL&"("&cInt(category1)&","&cInt(category2)&","&cInt(category3)&","&cInt(subcategory1)&","&cInt(subcategory2)&","&cInt(subcategory3)&",'"&fname&"','"&mname&"','"&lname&"','"&username&"','"&Password&"','"&parentname&"','"&sex&"','"&nationality&"','"&DBdate&"','"&religion&"','"&mstatus&"','"&education&"','"&profTechnical&"','"&profComputer&"','"&profMachineries&"','"&totalExperience&"','"&otherinformation&"','"&hobbies&"',"&cInt(licence)&",'"&licencenationality&"','"&langwrite&"','"&langspeak&"','"&per_addr&"','"&per_country&"','"&officePhone&"','"&ResPhone&"','"&txtFax&"','"&Mobile&"','"&email&"','"&alt_email&"','"&Perm_addr&"','"&Perm_country&"','"&Perm_phone&"','"&Perm_fax&"',1,'"&strDate&"')" 'response.write "
"& mySQL 'response.end on error resume next call updateDatabase(mySQL, rsTemp11) if err.number<>0 then response.redirect "displayMessage.asp?message="&Server.Urlencode("There is some Server Error("&err.description&"),Please try later" ) mySQL2="SELECT max(resumeId)as maxPrdID FROM resume" on error resume next call getFromDatabase(mySQL2, rstemp2) if not rstemp2.eof then idMaxcv=rstemp2("maxPrdID") for i= 1 to 4 organiz=replace(trim(request.form("organiz"&i)),"'","`") description=replace(trim(request.form("description"&i)),"'","`") desg=replace(trim(request.form("desg"&i)),"'","`") location=replace(trim(request.form("location"&i)),"'","`") if request.form("ESmonth"&i) <> "" and request.form("ESday"&i)<>"" and request.form("ESyear"&i)<>"" then ESdate=request.form("ESmonth"&i)&"/"&request.form("ESday"&i)&"/"&request.form("ESyear"&i) else ESdate="" end if if request.form("ELmonth"&i) <> "" and request.form("ELday"&i)<>"" and request.form("ELyear"&i)<>"" then ELdate=request.form("ELmonth"&i)&"/"&request.form("ELday"&i)&"/"&request.form("ELyear"&i) else ELdate="" end if if i=1 then currentSalary=0 ELdate=date() else currentSalary=0 end if 'if (organiz <> "" and desg <> "")then mySQL1="insert into experience (resumeId,organization,designation,location,startDate,endDate,currentsalary,jobdescription) values" mySQL1=mySQL1& "("&idMaxcv&",'"&organiz&"','"&desg&"','"&location&"','"&ESdate&"','"&ELdate&"',"¤tSalary&",'"&description&"')" on error resume next call updateDatabase(mySQL1, rsTemp12) if err.number<>0 then response.redirect "displayMessage.asp?message="&Server.Urlencode("There is some Server Error("&err.description&"),Please try later" ) 'response.write "
"&mySQL1 'end if next else connTemp.RollbackTrans connTemp.Close response.redirect "displayMessage.asp?message="&Server.Urlencode("Resume not added successfully" ) response.end end if 'response.end if err.number <> 0 then connTemp.RollbackTrans connTemp.Close response.redirect "displayMessage.asp?message="&Server.Urlencode("Resume not added successfully" ) response.end else Session("rUsername")=username Session("pResumeId")=idMaxcv connTemp.CommitTrans response.redirect "modifyresume.asp?newr=yes&jcid="&jcid response.end end if end if end if %> <% mySQL="SELECT idCategory, categoryDesc, idParentCategory FROM categories WHERE idCategory<>1 AND Active=1 ORDER BY displayOrder,categoryDesc" call getFromDatabase (mySql, rsTemp28) %> <%i=0 do while not rsTemp28.eof%> <%i=i+1 rsTemp28.moveNext loop for i=0 to 5%> <%next 'response.end %>

<%=msg%>
RESUME
 
 Personal Information :
First Name
Middle Name
Last Name
Father's Name
<% ' get CountryCodes mySQL22="SELECT countryCode, countryName FROM countryCodes ORDER BY countryName" call getFromDatabase(mySql22, rstemp22) arrCountryIndex=0 dim arrCountry(8000,2) do while not rstemp22.eof arrCountry(arrCountryIndex,0) = rstemp22("countryCode") arrCountry(arrCountryIndex,1) = rstemp22("countryName") arrCountryIndex = arrCountryIndex+1 rstemp22.movenext loop%>
Nationality
Sex Male Female
Date of Birth
Marital Status
User Name
Password
Confirm Password
 
 Contact Information :
Present Address :
Country
Telephone Work place   -     -  
  Country Code   Area Code      Number
Telephone Residence   -     -  
Fax   -     -  
  Country Code    Number
Mobile   -  
Email
Alternative Email ID, if any
 

  

<% function getChildCategories(idParentCategory2, idPreviousParentCategory, tabs) dim mySql2, rstemp2 mySql2="SELECT idCategory, categoryDesc, idParentCategory,displayOrder FROM categories WHERE idParentCategory=" &idParentCategory2&" AND Active=1 ORDER BY displayOrder,categoryDesc" call getFromDatabase (mySql2, rsTemp2) do while not rstemp2.eof pCategoryDesc2 =rstemp2("categoryDesc") pIdCategoryChild =rstemp2("idCategory") pdisplayOrder =rstemp2("displayOrder") if idPreviousParentCategory<>idParentCategory2 then if idPreviousParentCategory>idParentCategory2 then tabs = tabs - 1 else tabs = tabs + 1 end if idPreviousParentCategory = idParentCategory2 end if Aux = "" for f = 1 to tabs Aux = Aux & "---" next arrCategories(arrCategoriesIndex,0) = pIdCategoryChild arrCategories(arrCategoriesIndex,1) = Aux & pCategoryDesc2 arrCategoriesIndex = arrCategoriesIndex+1 call getChildCategories(pIdCategoryChild, idPreviousParentCategory, tabs) rstemp2.movenext loop end function function isChildCategory(idCategory) dim mySql3, rstemp3 mySQL3="SELECT idCategory FROM categories WHERE idParentCategory=" &idCategory& " " call getFromDatabase (mySql3, rsTemp3) if rstemp3.eof then isChildCategory=1 else isChildCategory=0 end if end function %> <% rsTemp.close set rsTemp = nothing rstemp2.close set rstemp2 = nothing rsTemp3.close set rsTemp3 = nothing rstemp4.close set rstemp4 = nothing call closeDb() %>
To serve, to serve fully, promptly and efficiently, to serve beyond the terms of contract