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