xref: /aoo42x/main/sd/res/webview/show.asp (revision cdf0e10c)
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>