1<% 2 Option Explicit 3 Response.Expires = 0 4%> 5<!--*********************************************************** 6 * 7 * Licensed to the Apache Software Foundation (ASF) under one 8 * or more contributor license agreements. See the NOTICE file 9 * distributed with this work for additional information 10 * regarding copyright ownership. The ASF licenses this file 11 * to you under the Apache License, Version 2.0 (the 12 * "License"); you may not use this file except in compliance 13 * with the License. You may obtain a copy of the License at 14 * 15 * http://www.apache.org/licenses/LICENSE-2.0 16 * 17 * Unless required by applicable law or agreed to in writing, 18 * software distributed under the License is distributed on an 19 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 20 * KIND, either express or implied. See the License for the 21 * specific language governing permissions and limitations 22 * under the License. 23 * 24 ***********************************************************--> 25 26<!-- #include file = "common.inc" --> 27 28<% 29 Dim sGifName1, sGifName2, nGifID, aPictureArray 30 31 nGifID = Session( "GIFID" ) 32 33 ' get current and next picture 34 aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) 35 36 ' not last picture or wrong input ? 37 If CInt( nGifID ) < UBound( aPictureArray ) / 2 Then 38 sGifName1 = aPictureArray( ( nGifID - 1 ) * 2 + 1 ) 39 sGifName2 = aPictureArray( ( nGifID ) * 2 + 1 ) 40 Else 41 nGifID = CInt( UBound( aPictureArray ) / 2 ) 42 sGifName1 = aPictureArray( ( nGifID - 1 ) * 2 + 1 ) 43 sGifName2 = sGifName1 44 End If 45%> 46 47<HTML> 48 49<HEAD> 50 <TITLE>$$1</TITLE> 51</HEAD> 52 53<BODY bgcolor="white"> 54 <table width=100% height=99%> 55 <tr valign=center><td align=center> 56 <IMG src="<% = sGifName1 %>" width=$$4 height=$$5 border=0> 57 <br><IMG src="<% = sGifName2 %>" width=1 height=1 border=0> 58 </td></tr> 59 </table> 60</BODY> 61 62</HTML> 63