<% Option Explicit Response.Expires = 0 %> <% Dim sGifName1, sGifName2, nGifID, aPictureArray nGifID = Session( "GIFID" ) ' get current and next picture aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) ' not last picture or wrong input ? If CInt( nGifID ) < UBound( aPictureArray ) / 2 Then sGifName1 = aPictureArray( ( nGifID - 1 ) * 2 + 1 ) sGifName2 = aPictureArray( ( nGifID ) * 2 + 1 ) Else nGifID = CInt( UBound( aPictureArray ) / 2 ) sGifName1 = aPictureArray( ( nGifID - 1 ) * 2 + 1 ) sGifName2 = sGifName1 End If %>