<%@ Language="VBScript" %> <% Option Explicit %> <% Dim strLogin Dim PreviousLastRecord,totalLastRecords,lastRecord Dim remndr,recordToStart,recordsToShow strLogin = Session("login") PreviousLastRecord = Session("SessionlastRecord") totalLastRecords = Session("SessiontotalRecords") %> <% remndr = PreviousLastRecord mod 5 recordToStart = 0 If(remndr <> 0) Then recordToStart = ((PreviousLastRecord - remndr ) - 5) Else recordToStart = PreviousLastRecord - 10 End If recordsToShow = totalLastRecords - recordToStart + 1 %>

Pictures: <%=recordToStart+1%> - <%=recordToStart+5%> of <%=totalLastRecords%>   <% If(recordToStart <> 0) Then %> <% Else %> <% End If %> <% 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 %>

<% lastRecord = recordToStart+5 Session("SessionlastRecord") = lastRecord %> lastRecord:*<%=lastRecord%>*