<%@ Language="VBScript" %> <% Option Explicit %> <% Dim strLogin Dim strType Dim PreviousLastRecord,recordsToShow,recordsDisplayed,recordNo,totalLastRecords Dim intLastRecord strLogin = Session("login") PreviousLastRecord = Session("SessionlastRecord") totalLastRecords = Session("SessiontotalRecords") recordsToShow = totalLastRecords - PreviousLastRecord recordsDisplayed=0 recordNo=0 %>

<% If(totalLastRecords > (PreviousLastRecord+5)) Then %> <% Else %> <% End If %>   Pictures: <%=PreviousLastRecord+1%> - <%=PreviousLastRecord+5%> of <%=totalLastRecords%>     Pictures: <%=PreviousLastRecord+1%> - <%=totalLastRecords%> of <%=totalLastRecords%>   <% If(recordsToShow>=5) Then %> <% ElseIf(recordsToShow>=4) Then %> <% ElseIf(recordsToShow>=3) Then %> <% ElseIf(recordsToShow>=2) Then %> <% Else %> <% End If %> <% If(recordsToShow>5) Then %> <% Else %> <% End If %>

<% intLastRecord = PreviousLastRecord+5 If(intLastRecord > totalLastRecords) Then intLastRecord = totalLastRecords End If Session("SessionlastRecord") = intLastRecord %>