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