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