home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 June / PCWorld_2002-06_cd.bin / Software / Komercni / openoffice / install / f_0046 / show.asp
Text File  |  2000-09-18  |  1KB  |  42 lines
  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>