1<% 2 Option Explicit 3 Response.Expires = 0 4 Response.Buffer = True 5%> 6<!--*********************************************************** 7 * 8 * Licensed to the Apache Software Foundation (ASF) under one 9 * or more contributor license agreements. See the NOTICE file 10 * distributed with this work for additional information 11 * regarding copyright ownership. The ASF licenses this file 12 * to you under the Apache License, Version 2.0 (the 13 * "License"); you may not use this file except in compliance 14 * with the License. You may obtain a copy of the License at 15 * 16 * http://www.apache.org/licenses/LICENSE-2.0 17 * 18 * Unless required by applicable law or agreed to in writing, 19 * software distributed under the License is distributed on an 20 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 21 * KIND, either express or implied. See the License for the 22 * specific language governing permissions and limitations 23 * under the License. 24 * 25 ***********************************************************--> 26 27<!-- #include file = "common.inc" --> 28 29 30<% 31 Dim aPictureArray, nPic, nUpper 32 33 aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) 34 nPic = File_readVirtual( "currpic.txt", "." ) 35 nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2) 36%> 37 38<HTML> 39<HEAD> 40</HEAD> 41<BODY> 42 <FORM action="savepic.asp" method=get> 43 <% 44 if isNumeric(nPic) then 45 if (CInt( nPic ) >= CInt( (UBound(aPictureArray ) - 1 ) / 2 )) then 46 nPic = nUpper 47 end if 48 else 49 nPic = nUpper 50 end if 51 52 53 if CInt( nPic ) > 1 then 54 %> 55 <INPUT type=submit name="Auswahl" value="-"></INPUT> 56 <% 57 else 58 %> 59 <INPUT type=button value=" "></INPUT> 60 <% 61 end if 62 %> 63 <INPUT type=text name="CurrPic" value="<% = nPic %>" SIZE=3></INPUT> 64 <% 65 if CInt( nPic ) < CInt( nUpper ) then 66 %> 67 <INPUT type=submit name="Auswahl" value="+"></INPUT> 68 <% 69 else 70 %> 71 <INPUT type=button value=" "></INPUT> 72 <% 73 end if 74 %> 75 <INPUT type=submit name="Auswahl" value="$$2"></INPUT> 76 </FORM> 77</BODY> 78</HTML> 79