<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% 'If Session("SecurityID") <> "·" Then
'Response.Redirect "default.asp"
'End If
%>
<%
'---------------------------------------------------------------------------
' The SQL below selects all the records from the Table Property
'---------------------------------------------------------------------------
msql ="SELECT * FROM Acc Where Status = 'Active' ORDER BY AccID Desc"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open msql, Conn, 1,3
If request.querystring("PageNumber") = "" Then
intPageNum = 1
Else
intPageNum = CInt(request.querystring("PageNumber"))
End If
If RS.Eof or RS.Bof Then
response.write("No records available...")
response.end
End If
' Change you value of how many records per page here
RS.PageSize = 8
%>
<%
RS.AbsolutePage = intPageNum
For intCount = 1 To CInt(request("x"))
RS.MovePrevious
Next
For intCount = 1 To RS.PageSize
%>
