From 940b4d1848e8c70ab7642901a68594e8016caffc Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sat, 27 Apr 2024 18:51:28 +0200 Subject: Adding upstream version 1:7.0.4. Signed-off-by: Daniel Baumann --- sd/res/webview/show.asp | 59 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) create mode 100644 sd/res/webview/show.asp (limited to 'sd/res/webview/show.asp') diff --git a/sd/res/webview/show.asp b/sd/res/webview/show.asp new file mode 100644 index 000000000..c59516706 --- /dev/null +++ b/sd/res/webview/show.asp @@ -0,0 +1,59 @@ +<% + Option Explicit + Response.Expires = 0 +%> + + + + +<% + Dim sGifName1, sGifName2, nGifID, aPictureArray + + nGifID = Session( "GIFID" ) + + ' get current and next picture + aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) + + ' not last picture or wrong input ? + If CInt( nGifID ) < UBound( aPictureArray ) / 2 Then + sGifName1 = aPictureArray( ( nGifID - 1 ) * 2 + 1 ) + sGifName2 = aPictureArray( ( nGifID ) * 2 + 1 ) + Else + nGifID = CInt( UBound( aPictureArray ) / 2 ) + sGifName1 = aPictureArray( ( nGifID - 1 ) * 2 + 1 ) + sGifName2 = sGifName1 + End If +%> + + + + + $$1 + + + + + +
+ +
+
+ + + \ No newline at end of file -- cgit v1.2.3