1*b1cdbd2cSJim Jagielski<% 2*b1cdbd2cSJim Jagielski Option Explicit 3*b1cdbd2cSJim Jagielski Response.Expires = 0 4*b1cdbd2cSJim Jagielski Response.Buffer = True 5*b1cdbd2cSJim Jagielski%> 6*b1cdbd2cSJim Jagielski<!--*********************************************************** 7*b1cdbd2cSJim Jagielski * 8*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one 9*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file 10*b1cdbd2cSJim Jagielski * distributed with this work for additional information 11*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file 12*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the 13*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance 14*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at 15*b1cdbd2cSJim Jagielski * 16*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0 17*b1cdbd2cSJim Jagielski * 18*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing, 19*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an 20*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 21*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the 22*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations 23*b1cdbd2cSJim Jagielski * under the License. 24*b1cdbd2cSJim Jagielski * 25*b1cdbd2cSJim Jagielski ***********************************************************--> 26*b1cdbd2cSJim Jagielski 27*b1cdbd2cSJim Jagielski<!-- #include file = "common.inc" --> 28*b1cdbd2cSJim Jagielski 29*b1cdbd2cSJim Jagielski<% 30*b1cdbd2cSJim Jagielski ' get new picture 31*b1cdbd2cSJim Jagielski Dim sCurrPic,aPictureArray, nUpper, nCurrPic 32*b1cdbd2cSJim Jagielski 33*b1cdbd2cSJim Jagielski aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) 34*b1cdbd2cSJim Jagielski nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2) 35*b1cdbd2cSJim Jagielski 36*b1cdbd2cSJim Jagielski sCurrPic = Request( "CurrPic" ) 37*b1cdbd2cSJim Jagielski 38*b1cdbd2cSJim Jagielski ' check if + or - was pressed 39*b1cdbd2cSJim Jagielski select case Request( "Auswahl" ) 40*b1cdbd2cSJim Jagielski case "+" 41*b1cdbd2cSJim Jagielski if isNumeric( sCurrPic ) then 42*b1cdbd2cSJim Jagielski sCurrPic = CStr( CLng( sCurrPic ) + 1 ) 43*b1cdbd2cSJim Jagielski end if 44*b1cdbd2cSJim Jagielski case "-" 45*b1cdbd2cSJim Jagielski if isNumeric( sCurrPic ) then 46*b1cdbd2cSJim Jagielski sCurrPic = CStr( CLng( sCurrPic ) - 1 ) 47*b1cdbd2cSJim Jagielski end if 48*b1cdbd2cSJim Jagielski end select 49*b1cdbd2cSJim Jagielski 50*b1cdbd2cSJim Jagielski ' save picture name 51*b1cdbd2cSJim Jagielski if isNumeric( sCurrPic ) then 52*b1cdbd2cSJim Jagielski if (CInt( sCurrPic ) > 0) and ( CInt( sCurrPic ) <= nUpper ) then 53*b1cdbd2cSJim Jagielski call File_writeVirtual( "currpic.txt", ".", sCurrPic ) 54*b1cdbd2cSJim Jagielski end if 55*b1cdbd2cSJim Jagielski end if 56*b1cdbd2cSJim Jagielski 57*b1cdbd2cSJim Jagielski ' return to edit page 58*b1cdbd2cSJim Jagielski Response.Redirect( "./editpic.asp" ) 59*b1cdbd2cSJim Jagielski%> 60