<% MaxPressID = "SELECT MAX(sort_order) AS MaxPressID FROM Press" Set rsMaxPress = Conn.Execute(MaxPressID) MaxPressID = rsMaxPress("MaxPressID") If (request("page") = MaxPressID) OR (Len(request("page")) = 0) Then PressSQL = "SELECT TOP 20 * FROM Press ORDER BY sort_order DESC" maxPix = MaxPressID - 18 MaxPressID = 0 Else minPix = request("page") - 38 maxPix = request("page") - 18 PressSQL = "SELECT press_id, mag_name,thumbnail_image, sort_order FROM Press WHERE sort_order >= " & minPix & " AND sort_order < " & maxPix & " ORDER BY sort_order DESC" End If Set rsPress = Conn.Execute(PressSQL) minPix = rsPress("sort_order") pageTitle = "Mary Green in the News" %>  
 

<% If rsPress("sort_order") >= 20 Then %> <% If Int(request("page")) < MaxPressID Then %> <% Else %> <% End If %> <% Else %> <%End If %> <% i = 1 %> <%If NOT rsPress.EOF Then%> <%Do While NOT rsPress.EOF %> <% If i = 1 Then%> <% End If %> <% If i = 4 Then%> <% End If %> <% i = i + 1 %> <% If i = 5 Then i = 1 End if%> <%rsPress.MoveNext %> <%Loop %> <%End if %> <% If maxPix >= 20 Then %> <% If Int(request("page")) < MaxPressID Then %> <% Else %> <% End If %> <% Else %> <%End If %>
">< Mary Green News   Mary Green News >
">< Mary Green News
">< Mary Green News   Mary Green News >
">< Mary Green News

 

<% 'cleanup rsPress.Close Set rsPress.ActiveConnection = Nothing Set rsPress = Nothing %>