1<% 2 Option Explicit 3 Response.Expires = 0 4%> 5 6<!-- #include file = "common.inc" --> 7 8<% 9 Dim sGifName1, sGifName2, nGifID, aPictureArray 10 11 nGifID = Session( "GIFID" ) 12 13 ' get current and next picture 14 aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) 15 16 ' not last picture or wrong input ? 17 If CInt( nGifID ) < UBound( aPictureArray ) / 2 Then 18 sGifName1 = aPictureArray( ( nGifID - 1 ) * 2 + 1 ) 19 sGifName2 = aPictureArray( ( nGifID ) * 2 + 1 ) 20 Else 21 nGifID = CInt( UBound( aPictureArray ) / 2 ) 22 sGifName1 = aPictureArray( ( nGifID - 1 ) * 2 + 1 ) 23 sGifName2 = sGifName1 24 End If 25%> 26 27<HTML> 28 29<HEAD> 30 <TITLE>$$1</TITLE> 31</HEAD> 32 33<BODY bgcolor="white"> 34 <table width=100% height=99%> 35 <tr valign=center><td align=center> 36 <IMG src="<% = sGifName1 %>" width=$$4 height=$$5 border=0> 37 <br><IMG src="<% = sGifName2 %>" width=1 height=1 border=0> 38 </td></tr> 39 </table> 40</BODY> 41 42</HTML>