<%
openconn
set rs= server.CreateObject("adodb.recordset")
strSQL= "SELECT * FROM tblcat where idmodule=2 order by idcat desc"
on error resume next
rs.Open strSQL,Conn,3,1
If err then Response.Redirect("?tab=1&page="&session("id"))
If Request.QueryString("page") = "" Then
intCurrentPage = 1
Else
intCurrentPage = CInt(Request.QueryString("page"))
End If
RS.PageSize = 5
If rs.PageCount > 0 then
rs.AbsolutePage = intCurrentPage
Else
intCurrentPage = 0
End If
j=1
i=1
'do while not rs.eof
'if not rs.eof then
%>
<%do while not rs.eof%>
|
|
|
|
<%=TrimString(rs("quotation"),300)%> |
|
|
|
<%
if j=RS.PageSize then
exit do
end if
j=j+1
i = i + 1
rs.movenext
loop
'end if
'rs.close
%>
|
<%
If rs.PageCount > 1 then
'Print Previous Page if required
If intCurrentPage <> 1 then
Response.Write "[ Trang trước ]"
Else
Response.Write "[ Trang trước ]"
End If
'Print direct access page numbers.
For intCount = 1 to rs.PageCount
If intCount = 1 then
Response.Write " | "
End If
Next
'Print Next Page if required
If intCurrentPage <> rs.PageCount then
Response.Write "[ Trang sau ]"
Else
Response.Write "[ Trang sau ]"
End If
End If
'Response.Write "
Trang " & intCurrentPage & " / " & rs.PageCount
%>
|
|
|
|
|
|
Về trang trước