sd/res/webview/editpic.asp

   1 <%
   2     Option Explicit
   3     Response.Expires = 0
   4     Response.Buffer = True
   5 %>
   6 <!--
   7  * This file is part of the LibreOffice project.
   8  *
   9  * This Source Code Form is subject to the terms of the Mozilla Public
  10  * License, v. 2.0. If a copy of the MPL was not distributed with this
  11  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
  12  *
  13  * This file incorporates work covered by the following license notice:
  14  *
  15  *   Licensed to the Apache Software Foundation (ASF) under one or more
  16  *   contributor license agreements. See the NOTICE file distributed
  17  *   with this work for additional information regarding copyright
  18  *   ownership. The ASF licenses this file to you under the Apache
  19  *   License, Version 2.0 (the "License"); you may not use this file
  20  *   except in compliance with the License. You may obtain a copy of
  21  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  22 -->
  23
  24 <!-- #include file = "common.inc" -->
  25
  26
  27 <%
  28     Dim aPictureArray, nPic, nUpper
  29
  30     aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" )
  31     nPic = File_readVirtual( "currpic.txt", "." )
  32         nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2)
  33 %>
  34
  35 <HTML>
  36 <HEAD>
  37 </HEAD>
  38 <BODY>
  39     <FORM action="savepic.asp" method=get>
  40         <%
  41                         if isNumeric(nPic) then
  42                                 if  (CInt( nPic ) >= CInt( (UBound(aPictureArray ) - 1 ) / 2 )) then
  43                                         nPic = nUpper
  44                                 end if
  45                         else
  46                                 nPic = nUpper
  47                         end if
  48
  49
  50             if CInt( nPic ) > 1 then
  51             %>
  52                 <INPUT type=submit name="Auswahl" value="-"></INPUT>
  53             <%
  54             else
  55             %>
  56                 <INPUT type=button value=" "></INPUT>
  57             <%
  58             end if
  59             %>
  60             <INPUT type=text name="CurrPic" value="<% = nPic %>" SIZE=3></INPUT>
  61             <%
  62             if CInt( nPic ) < CInt( nUpper ) then
  63             %>
  64                 <INPUT type=submit name="Auswahl" value="+"></INPUT>
  65             <%
  66             else
  67             %>
  68                 <INPUT type=button value=" "></INPUT>
  69             <%
  70             end if
  71         %>
  72         <INPUT type=submit name="Auswahl" value="$$2"></INPUT>
  73     </FORM>
  74 </BODY>
  75 </HTML>