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/editpic.asp | 75 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 75 insertions(+) create mode 100644 sd/res/webview/editpic.asp (limited to 'sd/res/webview/editpic.asp') diff --git a/sd/res/webview/editpic.asp b/sd/res/webview/editpic.asp new file mode 100644 index 000000000..78599e0fd --- /dev/null +++ b/sd/res/webview/editpic.asp @@ -0,0 +1,75 @@ +<% + Option Explicit + Response.Expires = 0 + Response.Buffer = True +%> + + + + + +<% + Dim aPictureArray, nPic, nUpper + + aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) + nPic = File_readVirtual( "currpic.txt", "." ) + nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2) +%> + + + + + +
+ <% + if isNumeric(nPic) then + if (CInt( nPic ) >= CInt( (UBound(aPictureArray ) - 1 ) / 2 )) then + nPic = nUpper + end if + else + nPic = nUpper + end if + + + if CInt( nPic ) > 1 then + %> + + <% + else + %> + + <% + end if + %> + + <% + if CInt( nPic ) < CInt( nUpper ) then + %> + + <% + else + %> + + <% + end if + %> + +
+ + -- cgit v1.2.3