|
|
| Home >> Job Seekers >> All Jobs |
|
| ALL JOBS |
|
| Sr.No |
Job ID |
Job Title |
Location |
<%
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=quickbo_bslrms;Password=bslrms;Initial Catalog=rms;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 req_id,title,location_name,priority from curr_req where req_id like 'B%' 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
%>
|
<%= intCounter %> |
<%= Rs("Req_Id") %> |
"><%= Rs("Title") %>
|
<%= Rs("Location_Name") %> |
<%
Rs.MoveNext
Loop
'Display Page Numbers ===============
If Rs.PageCount > 1 Then
%>
|
Page :
<%
'intCounter = intCounter + 10
For intCount = 1 To Rs.PageCount
If intCurrentPage = intCount Then
Response.Write(intCount &" ")
Else
Response.Write(""& intCount &" ")
End If
Next
%>
|
<%
End If
'=====================================
Else
%>
| No records found |
<%
End If
%>
|
|
