% Dim ImgCount, EndCount ImgCount = 1 EndCount = 2 If (Not IsEmpty(Request.QueryString("selection")) AND IsNumeric(Request.QueryString("selection"))) Then ImgCount = Request.QueryString("selection") Else ImgCount = 1 End If If ImgCount = 0 Then ImgCount = 1 Dim PrevLink, NextLink, LinkSeperator If ImgCount > 1 THEN PrevLink = "Prev" Else PrevLink = "" End If If CInt(ImgCount) = CInt(EndCount) THEN NextLink = "" Else NextLink = "Next" End If If PrevLink = "" OR NextLink = "" Then LinkSeperator = "" Else LinkSeperator = " | " End If %>
|
|||||
![]() |
![]() |
![]() |
|||
![]()
|
![]() |