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 <head> 49 <title>$$1</title> 50 </head> 51 <body bgcolor="white"> 52 <table width="100%" height="99%"> 53 <tr valign="center"> 54 <td align="center"> 55 <img src="<% = sGifName1 %>" width=$$4 height=$$5 border="0"> 56 <br> 57 <img src="<% = sGifName2 %>" width="1" height="1" border="0"> 58 </td> 59 </tr> 60 </table> 61 </body> 62</html> 63