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<% 31*b1cdbd2cSJim Jagielski Dim aPictureArray, nPic, nUpper 32*b1cdbd2cSJim Jagielski 33*b1cdbd2cSJim Jagielski aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) 34*b1cdbd2cSJim Jagielski nPic = File_readVirtual( "currpic.txt", "." ) 35*b1cdbd2cSJim Jagielski nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2) 36*b1cdbd2cSJim Jagielski%> 37*b1cdbd2cSJim Jagielski 38*b1cdbd2cSJim Jagielski<HTML> 39*b1cdbd2cSJim Jagielski<HEAD> 40*b1cdbd2cSJim Jagielski</HEAD> 41*b1cdbd2cSJim Jagielski<BODY> 42*b1cdbd2cSJim Jagielski <FORM action="savepic.asp" method=get> 43*b1cdbd2cSJim Jagielski <% 44*b1cdbd2cSJim Jagielski if isNumeric(nPic) then 45*b1cdbd2cSJim Jagielski if (CInt( nPic ) >= CInt( (UBound(aPictureArray ) - 1 ) / 2 )) then 46*b1cdbd2cSJim Jagielski nPic = nUpper 47*b1cdbd2cSJim Jagielski end if 48*b1cdbd2cSJim Jagielski else 49*b1cdbd2cSJim Jagielski nPic = nUpper 50*b1cdbd2cSJim Jagielski end if 51*b1cdbd2cSJim Jagielski 52*b1cdbd2cSJim Jagielski 53*b1cdbd2cSJim Jagielski if CInt( nPic ) > 1 then 54*b1cdbd2cSJim Jagielski %> 55*b1cdbd2cSJim Jagielski <INPUT type=submit name="Auswahl" value="-"></INPUT> 56*b1cdbd2cSJim Jagielski <% 57*b1cdbd2cSJim Jagielski else 58*b1cdbd2cSJim Jagielski %> 59*b1cdbd2cSJim Jagielski <INPUT type=button value=" "></INPUT> 60*b1cdbd2cSJim Jagielski <% 61*b1cdbd2cSJim Jagielski end if 62*b1cdbd2cSJim Jagielski %> 63*b1cdbd2cSJim Jagielski <INPUT type=text name="CurrPic" value="<% = nPic %>" SIZE=3></INPUT> 64*b1cdbd2cSJim Jagielski <% 65*b1cdbd2cSJim Jagielski if CInt( nPic ) < CInt( nUpper ) then 66*b1cdbd2cSJim Jagielski %> 67*b1cdbd2cSJim Jagielski <INPUT type=submit name="Auswahl" value="+"></INPUT> 68*b1cdbd2cSJim Jagielski <% 69*b1cdbd2cSJim Jagielski else 70*b1cdbd2cSJim Jagielski %> 71*b1cdbd2cSJim Jagielski <INPUT type=button value=" "></INPUT> 72*b1cdbd2cSJim Jagielski <% 73*b1cdbd2cSJim Jagielski end if 74*b1cdbd2cSJim Jagielski %> 75*b1cdbd2cSJim Jagielski <INPUT type=submit name="Auswahl" value="$$2"></INPUT> 76*b1cdbd2cSJim Jagielski </FORM> 77*b1cdbd2cSJim Jagielski</BODY> 78*b1cdbd2cSJim Jagielski</HTML> 79