<%
Dim PageSize
Dim Pages
Dim i
If IsEmpty(Request("PageNumber")) Then
CurrentPage = 1
Else
CurrentPage = cint(Request("PageNumber"))
End if
'SQL = "SELECT * FROM gallery_module WHERE Category = " & Request.QueryString("cat") & " and status = true"
SQL = "SELECT * FROM gallery_module WHERE Category = 26 and status = true ORDER BY displayorder"
Set rs = Server.CreateObject("ADODB.Recordset")
PageSize = 100 ' Page size
rs.CursorLocation = 3
rs.open SQL,"" & Application("Connection") & ";"
if not rs.eof then
rs.MoveLast
TotalRec = rs.RecordCount
rs.MoveFirst
rs.PageSize = PageSize
rs.AbsolutePage = CurrentPage
Pages = rs.PageCount
end if
%>
Stairway to Zeppelin - the world's most authentic tribute to Led Zep
