<% search_key1=request("SearchKey1") search_cat1=request("SearchCat1") search_key2=request("SearchKey2") search_cat2=request("SearchCat2") listbegin=request("listbegin") if search_key1="" and search_key2="" then condition="" elseif search_key1="" then condition= "where " + search_cat2 + " like '%" + search_key2 + "%'" elseif search_key2="" then condition= "where " + search_cat1 + " like '%" + search_key1 + "%'" else condition= "where " + search_cat1 + " like '%" + search_key1 + "%' and " + search_cat2 + " like '%" + search_key2 + "%'" end if Function SqlStr(data) SqlStr = "'" & Replace( data, "'", "''" ) & "'" End Function Set conn=Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("joblib.mdb") response.write sql sql = "select * from APPLICANT "+ condition + " order by ID desc" set rs=conn.Execute(sql) %>
<% listcnt=0 Do While Not RS.EOF listcnt=listcnt+1 RS.MoveNext Loop if Not RS.BOF then RS.MoveFirst end if totalcnt=listcnt response.write ("") & listcnt & (" Record(s) found
") disprow=10 listcnt=0 listbegin=listbegin+1-1 Do While Not RS.EOF and listcnt <% listcnt=listcnt+1 RS.MoveNext Loop Set conn= nothing %>
Position Salary Range Details
<%=RS("Jposition")%> <%=RS("Salary")%> ';">

<% listbeginprev=listbegin-disprow pscodeprev="SearchKey1=" & search_key1 & "&SearchCat1=" & search_cat1 & "&SearchKey2=" & search_key2 & "&SearchCat2=" & search_cat2 & "&listbegin=" & listbeginprev pscodebegin="SearchKey1=" & search_key1 & "&SearchCat1=" & search_cat1 & "&SearchKey2=" & search_key2 & "&SearchCat2=" & search_cat2 & "&listbegin=0" if listbeginprev>=0 then response.write("") response.write("") end if response.write("") listbeginnext=listbegin + disprow pscodenext="SearchKey1=" & search_key1 & "&SearchCat1=" & search_cat1 & "&SearchKey2=" & search_key2 & "&SearchCat2=" & search_cat2 & "&listbegin=" & listbeginnext endgroup=disprow*Int(totalcnt/disprow) pscodeend="SearchKey1=" & search_key1 & "&SearchCat1=" & search_cat1 & "&SearchKey2=" & search_key2 & "&SearchCat2=" & search_cat2 & "&listbegin=" & endgroup if Not RS.EOF then response.write("") response.write("") end if %>