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