xref: /aoo42x/main/sd/res/webview/savepic.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    ' get new picture
31cdf0e10cSrcweir    Dim sCurrPic,aPictureArray, nUpper, nCurrPic
32cdf0e10cSrcweir
33cdf0e10cSrcweir    aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" )
34cdf0e10cSrcweir    nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2)
35cdf0e10cSrcweir
36cdf0e10cSrcweir    sCurrPic = Request( "CurrPic" )
37cdf0e10cSrcweir
38cdf0e10cSrcweir    ' check if + or - was pressed
39cdf0e10cSrcweir    select case Request( "Auswahl" )
40cdf0e10cSrcweir        case "+"
41cdf0e10cSrcweir            if isNumeric( sCurrPic ) then
42cdf0e10cSrcweir                sCurrPic = CStr( CLng( sCurrPic ) + 1 )
43cdf0e10cSrcweir            end if
44cdf0e10cSrcweir        case "-"
45cdf0e10cSrcweir            if isNumeric( sCurrPic ) then
46cdf0e10cSrcweir                sCurrPic = CStr( CLng( sCurrPic ) - 1 )
47cdf0e10cSrcweir            end if
48cdf0e10cSrcweir    end select
49cdf0e10cSrcweir
50cdf0e10cSrcweir    ' save picture name
51cdf0e10cSrcweir	if isNumeric( sCurrPic ) then
52cdf0e10cSrcweir		if (CInt( sCurrPic ) > 0) and ( CInt( sCurrPic ) <= nUpper ) then
53cdf0e10cSrcweir			call File_writeVirtual( "currpic.txt", ".", sCurrPic )
54cdf0e10cSrcweir		end if
55cdf0e10cSrcweir	end if
56cdf0e10cSrcweir
57cdf0e10cSrcweir    ' return to edit page
58cdf0e10cSrcweir    Response.Redirect( "./editpic.asp" )
59cdf0e10cSrcweir%>
60