<% Option Explicit Response.Expires = 0 Response.Buffer = True %> <% Dim aPictureArray, nPic, nUpper aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) nPic = File_readVirtual( "currpic.txt", "." ) nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2) %>

<% if isNumeric(nPic) then if (CInt( nPic ) >= CInt( (UBound(aPictureArray ) - 1 ) / 2 )) then nPic = nUpper end if else nPic = nUpper end if if CInt( nPic ) > 1 then %> <% else %> <% end if %> <% if CInt( nPic ) < CInt( nUpper ) then %> <% else %> <% end if %>