% num_images = 12 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "mrca" limit = "0," & num_images current_page = 0 if Request.QueryString("limit")<>"" then limit = Request.QueryString("limit") & "," & num_images current_page = CInt(Request.QueryString("limit")) end if querystring = "SELECT * FROM gallery ORDER BY pos DESC LIMIT " & limit set RS = Conn.execute(querystring) querystring = "SELECT COUNT(*) AS count FROM gallery" set RSc = Conn.execute(querystring) total = CInt(RSc("count")) %>
|
Picture Gallery
|