<%@LANGUAGE="VBSCRIPT"%>
<%
Const NumPerPage =10
sql="select * from news_sa"
rss.open sql, con,3,1
if rss.recordcount<1 then
response.redirect("nodatafound.asp")
response.End
end if
sql1="select * from news_sa"
If Request.QueryString("CurPage") = "" then
CurPage = 1 'We're on the first page
Else
CurPage = Request.QueryString("CurPage")
End If
rs.CursorLocation = 3
rs.CursorLocation = adUseClient
rs.CacheSize = NumPerPage
rs.open sql1,con,3,2
'response.write rs("amk_news_id")
'response.end
if not rs.eof then
rs.PageSize = NumPerPage
TotalPages = rs.PageCount
rs.AbsolutePage = CurPage
else
msg="No Record Found"
end if
'Counting variable for our recordset
%>
Series A – Range of Top-End Computer Peripherals from Amkette
<%
Count1 = 0
Do While Not rs.EOF And Count1 < rs.PageSize%>
<%rs.movenext%>
<%count1 = count1 + 1%>
<%loop%>
