1cdf0e10cSrcweir<% 2cdf0e10cSrcweir Option Explicit 3cdf0e10cSrcweir Response.Expires = 0 4cdf0e10cSrcweir Response.Buffer = True 5cdf0e10cSrcweir%> 65b501c92SAndrew Rist<!--*********************************************************** 75b501c92SAndrew Rist * 85b501c92SAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one 95b501c92SAndrew Rist * or more contributor license agreements. See the NOTICE file 105b501c92SAndrew Rist * distributed with this work for additional information 115b501c92SAndrew Rist * regarding copyright ownership. The ASF licenses this file 125b501c92SAndrew Rist * to you under the Apache License, Version 2.0 (the 135b501c92SAndrew Rist * "License"); you may not use this file except in compliance 145b501c92SAndrew Rist * with the License. You may obtain a copy of the License at 155b501c92SAndrew Rist * 165b501c92SAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0 175b501c92SAndrew Rist * 185b501c92SAndrew Rist * Unless required by applicable law or agreed to in writing, 195b501c92SAndrew Rist * software distributed under the License is distributed on an 205b501c92SAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 215b501c92SAndrew Rist * KIND, either express or implied. See the License for the 225b501c92SAndrew Rist * specific language governing permissions and limitations 235b501c92SAndrew Rist * under the License. 245b501c92SAndrew Rist * 255b501c92SAndrew 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 38881f8681SJohn Bampton<html> 39*7457b6b3SJohn Bampton <head></head> 40881f8681SJohn Bampton <body> 41881f8681SJohn Bampton <form action="savepic.asp" method="get"> 42cdf0e10cSrcweir <% 43cdf0e10cSrcweir if isNumeric(nPic) then 44cdf0e10cSrcweir if (CInt( nPic ) >= CInt( (UBound(aPictureArray ) - 1 ) / 2 )) then 45cdf0e10cSrcweir nPic = nUpper 46cdf0e10cSrcweir end if 47cdf0e10cSrcweir else 48cdf0e10cSrcweir nPic = nUpper 49cdf0e10cSrcweir end if 50cdf0e10cSrcweir 51cdf0e10cSrcweir 52cdf0e10cSrcweir if CInt( nPic ) > 1 then 53cdf0e10cSrcweir %> 54881f8681SJohn Bampton <input type="submit" name="Auswahl" value="-"></input> 55cdf0e10cSrcweir <% 56cdf0e10cSrcweir else 57cdf0e10cSrcweir %> 58881f8681SJohn Bampton <input type="button" value=" "></input> 59cdf0e10cSrcweir <% 60cdf0e10cSrcweir end if 61cdf0e10cSrcweir %> 62881f8681SJohn Bampton <input type="text" name="CurrPic" value="<% = nPic %>" size="3"></input> 63cdf0e10cSrcweir <% 64cdf0e10cSrcweir if CInt( nPic ) < CInt( nUpper ) then 65cdf0e10cSrcweir %> 66881f8681SJohn Bampton <input type="submit" name="Auswahl" value="+"></input> 67cdf0e10cSrcweir <% 68cdf0e10cSrcweir else 69cdf0e10cSrcweir %> 70881f8681SJohn Bampton <input type="button" value=" "></input> 71cdf0e10cSrcweir <% 72cdf0e10cSrcweir end if 73cdf0e10cSrcweir %> 74881f8681SJohn Bampton <input type="submit" name="Auswahl" value="$$2"></input> 75881f8681SJohn Bampton </form> 76881f8681SJohn Bampton </body> 77881f8681SJohn Bampton</html> 78