home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 April / PCWorld_2003-04_cd.bin / Software / Komercni / openoffice / f_0154 / editpic.asp
Text File  |  2000-09-18  |  1KB  |  59 lines
  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>
  59.