sd/res/webview/editpic.asp

   1 <%
   2     Option Explicit
   3     Response.Expires = 0
   4     Response.Buffer = True
   5 %>
   6
   7 <!-- #include file = "common.inc" -->
   8
   9
  10 <%
  11     Dim aPictureArray, nPic, nUpper
  12
  13     aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" )
  14     nPic = File_readVirtual( "currpic.txt", "." )
  15         nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2)
  16 %>
  17
  18 <HTML>
  19 <HEAD>
  20 </HEAD>
  21 <BODY>
  22     <FORM action="savepic.asp" method=get>
  23         <%
  24                         if isNumeric(nPic) then
  25                                 if  (CInt( nPic ) >= CInt( (UBound(aPictureArray ) - 1 ) / 2 )) then
  26                                         nPic = nUpper
  27                                 end if
  28                         else
  29                                 nPic = nUpper
  30                         end if
  31
  32
  33             if CInt( nPic ) > 1 then
  34             %>
  35                 <INPUT type=submit name="Auswahl" value="-"></INPUT>
  36             <%
  37             else
  38             %>
  39                 <INPUT type=button value=" "></INPUT>
  40             <%
  41             end if
  42             %>
  43             <INPUT type=text name="CurrPic" value="<% = nPic %>" SIZE=3></INPUT>
  44             <%
  45             if CInt( nPic ) < CInt( nUpper ) then
  46             %>
  47                 <INPUT type=submit name="Auswahl" value="+"></INPUT>
  48             <%
  49             else
  50             %>
  51                 <INPUT type=button value=" "></INPUT>
  52             <%
  53             end if
  54         %>
  55         <INPUT type=submit name="Auswahl" value="$$2"></INPUT>
  56     </FORM>
  57 </BODY>
  58 </HTML>