<% DIM objConn SET objConn = server.CreateObject("ADODB.Connection") 'objConn.Open strConnString objConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=" & Server.MapPath(".") & "..\..\db\CalsoftGroup.mdb;" & _ "Uid=;" & _ "Pwd=;" 'DIM rsAreaOfExp,sqlAreaOfExp ' 'SET rsAreaOfExp = server.CreateObject("ADODB.RecordSet") ' 'sqlAreaOfExp="SELECT distinct (Area_Of_Expertise) FROM CurrentOpening_Master where Delete_CurrentOpening ='F'" ' 'if rsAreaOfExp.state =1 then rsAreaOfExp.Close 'rsAreaOfExp.open sqlAreaOfExp,objConn,adOpenDynamic,adLockOptimistic ' ' 'DIM rsLocation,sqlLocation ' 'SET rsLocation = server.CreateObject("ADODB.RecordSet") 'sqlLocation = "select * from CurrentOpening_Location" 'if rsLocation.state =1 then rsLocation.Close 'rsLocation.open sqlLocation,objConn,3,3 ' ' 'if strLocation = "" then strLocation="No-Preference" dim i i = 1 Dim intCounter,intCountApp,intRecordCount Dim intCount intCount=0 Dim intCounts intCounts=0 Dim fromDate,toDate,fromvalue,tovalue ' Dim objConn 'Connection Object Dim strSQL 'SQL string Dim RsUserDetails,bgcolor,item Dim strDelete ' delete flag Dim strChk ' Checkbox Value %> <% dim done done = request.QueryString("done") Session("strLoginName") = "" Session("strPassword") = "" dim strLocation,strExperience,strExpertise strExperience = request.form("txt_experience") strLocation = request.form("txt_location") strExpertise = request.form("txt_expertise") 'DIM objConn 'SET objConn = server.CreateObject("ADODB.Connection") 'objConn.Open strConnString1 DIM rsCurrentOpening,sqlCurrentOpening,sql SET rsCurrentOpening = server.CreateObject("ADODB.RecordSet") 'if strLocation <> "" and strExperience <>0 and len(strExpertise)="" then sqlCurrentOpening = "select * from CurrentOpening_Master where Delete_CurrentOpening ='F' and Status_CurrentOpening='P' Order by modified_date desc" 'else 'end if 'if (strLocation <> "" ) or (strExperience <>"") or (strExpertise <>"") then if strExpertise = "0" or strExpertise = "-1" then strExpertise ="" if strLocation = "0" or strLocation = "-1" then strLocation = "" if strExperience = "0" or strExperience = "-1" then strExperience = "" ' response.write strExpertise &"
" & strLocation & "
" & strExperience &"
" strExpertise="" sql = "select * from CurrentOpening_Master where Delete_CurrentOpening ='F' and Status_CurrentOpening='P' and Job_id in (select distinct JobId from openingsMap where GroupId= 3 ) " if strExperience <>"" then sql = sql & " and experience >=" & strExperience if strLocation <> "" then if strLocation <> "No-Preference" then sql = sql & " and Location ='" & strLocation & "'" else end if end if if strExpertise <>"" then if strExpertise <>"No-Preference" then sql = sql & " and Area_Of_Expertise ='" & strExpertise & "'" else end if end if if sql = "select * from CurrentOpening_Master where Delete_CurrentOpening ='F' and Status_CurrentOpening='P' and Job_id in (select distinct JobId from openingsMap where GroupId= 3 ) " then sqlCurrentOpening = "select * from CurrentOpening_Master where Delete_CurrentOpening ='F' and Status_CurrentOpening='P' and Job_id in (select distinct JobId from openingsMap where GroupId= 3 ) Order by modified_date desc" else sqlCurrentOpening = sql & " Order by modified_date desc" end if 'end if 'response.end DIM rsAreaOfExp,sqlAreaOfExp SET rsAreaOfExp = server.CreateObject("ADODB.RecordSet") sqlAreaOfExp="SELECT distinct (Area_Of_Expertise) FROM CurrentOpening_Master where Delete_CurrentOpening ='F'" if rsAreaOfExp.state =1 then rsAreaOfExp.Close rsAreaOfExp.open sqlAreaOfExp,objConn,adOpenDynamic,adLockOptimistic DIM rsLocation,sqlLocation SET rsLocation = server.CreateObject("ADODB.RecordSet") sqlLocation = "select * from CurrentOpening_Location" if rsLocation.state =1 then rsLocation.Close rsLocation.open sqlLocation,objConn,3,3 if strLocation="" then strLocation="No-Preference" %>
Overview Work @ Calsoft Labs Current Openings Jobs Portal - Career Site

Current Openings

Search For Jobs

Experience Area of expertise
Location
<% intCounter = Request.Form("recCount")%> <% DIM strExperienceTo if rsCurrentOpening.state =1 then rsCurrentOpening.Close rsCurrentOpening.open sqlCurrentOpening,objConn,adOpenDynamic,adLockOptimistic 'response.Write sqlCurrentOpening & "
" 'response.Write rsCurrentOpening.recordcount & "
" If trim(intCounter & "") = "" Then intCounter = 0 End If If Not rsCurrentOpening is Nothing Then If not rsCurrentOpening.eof then intRecordCount = 0 do while not rsCurrentOpening.eof intRecordCount = intRecordCount + 1 rsCurrentOpening.movenext loop rsCurrentOpening.movefirst rsCurrentOpening.move intCounter End if End if intCounts = intCounter while not rsCurrentOpening.EOF and intCountApp < intadminRecordsCountApplyOnline intCountApp=intCountApp + 1 bgcolor="f7f7f7" intCount=intCount + 1 intCounts=intCounts + 1 %> <% rsCurrentOpening.movenext i = i + 1 wend if intCount=0 then%> <%end if%> <%If intRecordCount<>0 Then%> <%End if%>
Code Title Location Experience
<%response.write( rsCurrentOpening("Job_Code") )%> "> <%response.write( rsCurrentOpening("Job_title") )%> <%response.write( rsCurrentOpening("Location") )%> <% if rsCurrentOpening("Experience") >=1 then response.write( rsCurrentOpening("Experience")) strExperienceTo = cint(rsCurrentOpening("ExperienceTo")) ' response.write strExperience & "
" if strExperienceTo >1 then response.write(" - " & rsCurrentOpening("ExperienceTo") & " Years") else response.write(" + Years") end if else response.write "No-Preference" end if %> " /> " />
No matching jobs found. Please keep checking our website for job updates.
  <%If intRecordCount-intCounter > intadminRecordsCountApplyOnline then%> <%=intCounter+1%> to <%=intCounter+intadminRecordsCountApplyOnline%> of <%=intRecordCount%> Jobs <%Else%> <%=intCounter+1%> to <%=intRecordCount%> of <%=intRecordCount%> Jobs <%End If intCounter = intCounter + intadminRecordsCountApplyOnline%> <%If intCounter-intadminRecordsCountApplyOnline > 1 Then%> Previous <%End If%>     <%If intRecordCount > intCounter Then%> Next <%End If%>