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