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