<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>

<p>
Geben Sie bitte den gew&uuml;nschten Suchbegriff ein:
<input type="text" name="Suchbegriff" title="Suchbegriff" value="" />
<br/>
<anchor>

<postfield name="Suchbegriff" value="\$(Suchbegriff)" />
</go>
</anchor> 
</p>

</card>
</wml>

<perl>
$_header="Content-type: text/vnd.wap.wml\n\n";
</perl>

<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="BestGuide" title="WAP-BestGuide">

<loop db=/gpark/bg/bgdata dtyp=="G" & dfirmnam~=$Suchbegriff sort=dtyp,dbranche,dfirmnam,dstrasse range^=0,5>
$dbranche<br/>$dfirmnam<br/>$dstrasse<br/><br/>
</loop>

my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

out "[ <a href=\"$_link&range=$newrange,$_range_length\">Weiter</a> ]" if $newrange<$_amount_all;

<p>- zum <a href="http://www.bestguide.de/wap/index.wml">Menu</a></p>

</wml>