Last Updated:3/23/2006 11:39:46 AM
Qplus logo Job seekers
 
Home >> Job Seekers >> Hot Jobs
HOT JOBS
<% Dim Conn, strConStr, Rs, strQuery, intCounter,intCount,intRowCount intCounter = 0 intRowCount = 0 Dim intPageSize : intPageSize = 20 'Number of jobs to be displayed on a page Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Dim strPath 'strPath = server.MapPath("../db/Qplus.mdb") 'strPath = server.MapPath("../qplus/Qplus.mdb") 'strConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & " ;Persist Security Info=False" strConStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=binarycorp;Password=binarycorp321;Initial Catalog=binary_SQLDB;Data Source=64.106.249.160" Conn.Open strConStr 'strQuery = "Select distinct req_id,title,location_name,priority from curr_req where req_id like 'B%'" strQuery = "Select distinct TOP 15 req_id,title,location_name,priority from curr_req where req_id like 'A%' order by Req_Id desc" Rs.Open strQuery,Conn,adOpenStatic Rs.PageSize = intPageSize intCount = Trim(Request("page")) If intCount = "" Then intCount = 1 Rs.AbsolutePage = intCount Response.Write "
Page : " & intCount &"
" If Cint(intCount) > 1 Then intCounter = intCounter + (CInt(intCount) - 1) * intPageSize If Not (Rs.EOF And Rs.BOF ) Then Do While Not Rs.EOF And intRowCount < Rs.PageSize intCounter = intCounter + 1 intRowCount = intRowCount + 1 %> <% Rs.MoveNext Loop 'Display Page Numbers =============== If Rs.PageCount > 1 Then %> <% End If '===================================== Else %> <% End If %>
Sr.No Job ID Job Title Location
<%= intCounter %> <%= Rs("Req_Id") %> "><%= Rs("Title") %> <%= Rs("Location_Name") %>
Page : <% 'intCounter = intCounter + 10 For intCount = 1 To Rs.PageCount If intCurrentPage = intCount Then Response.Write(intCount &" ") Else Response.Write(""& intCount &" ") End If Next %> VIEW ALL JOBS >>
No records found