if ($_get{cmd} eq "all"){
$_header="Location:http://domain.de/cgi-bin/baseportal.pl?htx=/detail_de&db=datenbank&Id==$Id\n\n";
$_get{cmd}="";
}
</perl>
</head>

if($cmd eq "do_search")

out <<EOF;

<form action="http://domain.de/cgi-bin/baseportal.pl?htx=/compass_de&db=datenbank&cmd=search" method="post" enctype="multipart/form-data"><input type=hidden name="htx=" value="/template">

<tr><td align=right>Branche:</td>
<td><input type="text" name="suche_branche=" size=20 value=""></td>

<td><input type="text" name="suche_anschrift=" size=20 value=""></td></tr>

<td><input type="text" name="suche_plz=" size=20 value=""></td></tr>

<td><input type="text" name="suche_gemeinde=" size=20 value=""></td></tr>
###### wobei suche_XXXXX kein feldname ist
<tr><td></td><td nowrap><input type=submit value="Abschicken"> 

EOF
}
</perl>

<perl>
$merken="&suche_branche=$suche_branche" if $suche_branche;
$merken.="&branche~=$_sel{branche}" if $_sel{branche};
$merken.="&branche_2~=$_sel{branche_2}" if $_sel{branche_2};
$merken.="&branche_3~=$_sel{branche_3}" if $_sel{branche_3};
$merken.="&suche_rubrik=$suche_rubrik" if $suche_rubrik;
$merken.="&suche_plz=$suche_plz" if $suche_plz;
$merken.="&suche_gemeinde=$suche_gemeinde" if $suche_gemeinde;
$merken.="&suche_landkreis=$suche_landkreis" if $suche_landkreis;
$merken.="&suche_verbandsgemeinde=$suche_verbandsgemeinde" if $suche_verbandsgemeinde;
$merken.="&suche_umkreis=$suche_umkreis" if $suche_umkreis;
$merken.="&suche_vorwahl=$suche_vorwahl" if $suche_vorwahl;
</perl>
##### do action ohne listausgabe
<left>
<do action=all db=compass indexfield=firmenname databack=f0f0f0 datasize=2 headback=e0e0e0 border=0 spacing=1 padding=0 gridcolor=b0b0b0 dataface=arial,helvetica pagebrowse=top,bottom buttonbrowse=top input=no keyfield=firmenname language=de pagebrowse=top buttonbrowse=top listtype=- searchfields=no input=no
</left>

<loop db=compass sort^=-Hits range^=$v,50 branche~=$suche_branche | branche_2~=$suche_branche and firmenname~=$suche_firmenname and name~=$suche_name and rubrik==$suche_rubrik and gemeinde~=$suche_gemeinde and plz==$suche_plz and anschrift~=$suche_anschrift and landkreis==$suche_landkreis and verbandsgemeinde~=$suche_verbandsgemeinde and vorwahl~=$suche_vorwahl and umkreis==$suche_umkreis>

######blättern mit merken

my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;

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