<perl>
if($cmd eq "all"){
foreach(keys %_cgi){
  push @params,"$_=$_cgi{$_}" if($_ ne "htx");
}
@params=join("&",@params);
$_link=~s#htx=/Hotel/bh_leer#htx=/Hotel/biker_motorrad_hotel#;
$_header="Location: $_link&@params&@_sel\n\n";
return die();

</perl>
<do action=all mail_put=reiner@vt600c.com mail_mod=EMail mail_del=*,EMail localparams=+ db=Hotel range^=0,100 sort=Postleitzahl searchfields=Name,Land,Bundesland,Region,Postleitzahl,Ort,Homepage,E-Mail,Id listfields=Name,Postleitzahl,Ort allfields=Name,Land,Bundesland,Region,Postleitzahl,Ort,Homepage,Strasse,E-Mail,Telefon,Fax.,Beschreibung,Preis/Euro,Tourenplaner formfields=Region,Postleitzahl,Ort,Homepage,Strasse,E-Mail,Telefon,Fax.,Beschreibung,Preis/Euro,Hits,Tourenplaner,Freigegeben showamount=all,sel selectbrowse=no buttonbrowse=top,bottom pagebrowse=top,bottom indexbrowse=top border=0 spacing=1 padding=2 gridcolor=FF6D0D dataface=Arial datasize=2 datacolor=003366 databack=FAA363 databack2=FED3A0 headface=Arial headsize=2 headcolor=003366 headback=FF6D0D textface=Arial textsize=2 textcolor=003366 listtype=list language=de detail=link search=no input=no>