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