<% If session("username")<>"" then Response.Redirect("jobsearchlogged.asp") Response.End End If '*********SQL Server Connection Dim cnn, rsapplexp,rscat,x,lnk,msql Set Cnn=Server.CreateObject("ADODB.Connection") Set rs =Server.Createobject("Adodb.recordset") With cnn .Provider = "SQLOLEDB" .ConnectionString = Application("SqlConnectionString") .Open End With Set rscat =Server.Createobject("Adodb.recordset") strsql="Select distinct jobCategory from vacancy Order by jobcategory" rscat.open strsql,Cnn %>

"> "><%=request.form("cmbjobcat")%> <% rscat.Movefirst Do While not rscat.Eof %> "><%=rscat("jobCategory")%> <% rscat.Movenext Loop %>

JOB SEARCH Home     <% msql="" If request.form("txtkeyword")<>"" then msql=" (Positionname like '%" + request.form("txtkeyword") +"%'" msql= msql+ " or jobcategory like '%" + request.form("txtkeyword") +"%'" msql= msql+ " or vacnotes like '%" + request.form("txtkeyword") +"%')" End If If request.form("cmbjobcat")<>"" then If mysql<> "" then mysql = mysql + " and " If msql<> "" then msql = msql + " and " msql= msql+ " jobcategory like '" + request.form("cmbjobcat") +"'" End If mysql="SELECT * FROM vacancy " IF msql<>"" then mysql=mysql+ " where " + msql End If mysql=mysql + " order by orderno desc" 'Response.write(mysql) RS.Open mysql, cnn,adOpenStatic x=1 Do while not rs.Eof %> <% rs.movenext Loop rs.Close cnn.close Set rs=nothing Set cnn = nothing %> Position Name Ref # Salary "><%=rs("Positionname")%>  <%=rs("orderno")%>   <%=rs("Salary")%>

About Us - Our Clients - Jobseeker - Feedback - Employer All rights reserved (c) 2001- 2006