xref: /aoo42x/main/sd/res/webview/editpic.asp (revision 5b501c92)
1<%
2    Option Explicit
3    Response.Expires = 0
4    Response.Buffer = True
5%>
6<!--***********************************************************
7 *
8 * Licensed to the Apache Software Foundation (ASF) under one
9 * or more contributor license agreements.  See the NOTICE file
10 * distributed with this work for additional information
11 * regarding copyright ownership.  The ASF licenses this file
12 * to you under the Apache License, Version 2.0 (the
13 * "License"); you may not use this file except in compliance
14 * with the License.  You may obtain a copy of the License at
15 *
16 *   http://www.apache.org/licenses/LICENSE-2.0
17 *
18 * Unless required by applicable law or agreed to in writing,
19 * software distributed under the License is distributed on an
20 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
21 * KIND, either express or implied.  See the License for the
22 * specific language governing permissions and limitations
23 * under the License.
24 *
25 ***********************************************************-->
26
27<!-- #include file = "common.inc" -->
28
29
30<%
31    Dim aPictureArray, nPic, nUpper
32
33    aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" )
34    nPic = File_readVirtual( "currpic.txt", "." )
35	nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2)
36%>
37
38<HTML>
39<HEAD>
40</HEAD>
41<BODY>
42    <FORM action="savepic.asp" method=get>
43        <%
44			if isNumeric(nPic) then
45				if  (CInt( nPic ) >= CInt( (UBound(aPictureArray ) - 1 ) / 2 )) then
46					nPic = nUpper
47				end if
48			else
49				nPic = nUpper
50			end if
51
52
53            if CInt( nPic ) > 1 then
54            %>
55                <INPUT type=submit name="Auswahl" value="-"></INPUT>
56            <%
57            else
58            %>
59                <INPUT type=button value=" "></INPUT>
60            <%
61            end if
62            %>
63            <INPUT type=text name="CurrPic" value="<% = nPic %>" SIZE=3></INPUT>
64            <%
65            if CInt( nPic ) < CInt( nUpper ) then
66            %>
67                <INPUT type=submit name="Auswahl" value="+"></INPUT>
68            <%
69            else
70            %>
71                <INPUT type=button value=" "></INPUT>
72            <%
73            end if
74        %>
75        <INPUT type=submit name="Auswahl" value="$$2"></INPUT>
76    </FORM>
77</BODY>
78</HTML>
79