<FORM action="baseportal.pl?htx=/baseportal/test3/adressen&cmd=add" method=post encType=multipart/form-data>
<input type=hidden name="htx=" value="/baseportal/test3/adressen">
<input type=hidden name="cmd=" value="add">
<input type=text name="Name:="><br>
<input type=submit>

</form>

<hr>

<do action=all detail=no>

<hr>


<perl>
$_get{sort}="-$_get{sort}" if $_get{sort};
out "##$_get{sort}##";
</perl>

<do action=all range^=0,5 showsort=*>

<perl>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;

$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

out "<< <a href=\"$_link&range=$oldrange,$_range_length\">Zurück</a> " if $oldrange>=0;
out "<a href=\"$_link&range=$newrange,$_range_length\">Weiter</a> >>" if $newrange<$_amount_query;

</perl>


<hr>

<FORM action="baseportal.pl?htx=/baseportal/test3/adressen&cmd=do_add" method=post encType=multipart/form-data>
<input type=hidden name="htx=" value="/baseportal/test3/adressen">
<input type=hidden name="cmd=" value="do_add">
<input type=text name="Name:="><br>
<input type=text name="Name:="><br>
<input type=text name="Name:="><br>
<input type=text name="Name:="><br>
<input type=submit>

</form>


<hr>

<do action=all range^=0,5>

<perl>
$o=<<EOF;

<do action=all localparams=+ db=adressen range^=0,20 sort=-Id,Id,Name searchfields=Id,Name,Land listfields=Name,Id,Ort\ "Jaja!!%$#",Mit\ \,\ und\ leer\ ;-) allfields=Mit\ \,\ und\ leer\ ;-),datum,Name,Ort\ "Jaja!!%$#" formfields=Land,Passwort,Mit\ \,\ und\ leer\ ;-) showsort=Id,Ort\ "Jaja!!%$#",Mit\ \,\ und\ leer\ ;-) showamount=all,sel selectbrowse=top buttonbrowse=top pagebrowse=top indexbrowse=top convert_br=Name,Ort\ "Jaja!!%$#",Mit\ \,\ und\ leer\ ;-) convert_html=Ort\ "Jaja!!%$#",test listtype=list language=de detail=link search=link input=link>


<hr><hr>


<html>
<head>
<meta content="text/html; charset=iso-8859-2" http-equiv=Content-Type>
</head>
<body>
 
&#260;<br>&#261;<br>&#262;<br>&#263;<br>&#280;<br>&#281;<br>&#321;<br>&#322;<br>&#323;<br>&#324;<br>&#211;<br>&#243;<br>&#346;<br>&#347;<br>&#377;<br>&#378;<br>&#379;<br>&#380;<br>-----------------<br>
ê<br>¶<br>¦<br>±<br>ó<br>³<br>£<br>ñ<br>¿<br>¯<br>¼<br>æ<br> 


</body>
</html> 




<meta content="text/html; charset=iso-8859-2" http-equiv="Content-Type">


<perl>
use strict;

$x=3;

<!/perl>

<!do action=all databack=yellow textback=red textcolor=blue headback=gray databack2=green>

<do action=all range^=0,2 localparams=+>
<do action=all range^=0,4 localparams=+>
<loop localparams=*>
$Name - $Strasse<br>
</loop>

EOF

</perl>