<% 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")) %> MRCA
Metal Roofing Contractors Association

Picture Gallery

 

These photographs are indicative of the quality of workmanship and aesthetics achieved by MRCA contractor members.

 
<%if current_page<>"0" then%><< previous page<%end if%>
<%if current_page < total-num_images then%>next page >><%end if%>
 
<%if not RS.EOF then counter = 0 counter1 = 0 do while not RS.EOF%> <%if counter = 0 then%> <%end if%> <%if counter = 2 then%> <%end if%> <%counter = counter + 1 if counter > 2 then counter = 0 end if%> <%RS.movenext loop end if%>
 
 
 
<% RSc.Close RS.Close Conn.Close Set Conn = nothing %>