>><include src=suche/suche&get_db=dbname>
 

>>get "..","$get_db";
 
>>while(get_next "$get_db"){
>>}
 

>>Sander

<form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
Buscar Rapido: <input type="text" name="_fullsearch~~" value="$_fullsearch"><input type="submit" value="Buscar">
</form>
 
<perl>
 

get "fullsearch_match=30","$get_db";
 
my $newrange=$_fullsearch_range+$_fullsearch_range_length;
my $txt;
if($_fullsearch_match_pos<$newrange)
{
 
$txt="Buscar siguente";
$newrange=$_fullsearch_match_pos;
} else
{
 
out "<b>todavía ningún golpe.</b><p>" if $_fullsearch_amount<1;
$txt="Búsqueda en expedientes de datos más futuros.";
}

{
 
out "No fue buscada todavía en todos los expedientes de datos.: ";
    out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
} else
{
out "La base de datos fue explorada totalmente.";
}
</perl>