<div>
<form action='http://de3.arteurope.de/cgi-bin/baseportal.pl?htx=/arteurope.de/lightpainting/Light&light=6' method='post' enctype='multipart/form-data'>

<input type='submit' value='Suchen'>
</form>

#Aktuell
$range=$_get{range}||"0,6";
if ($_fullsearch eq ""){
get "sort=-Datum range=$range","Light","neueNews";

{

}

{

while(get_next)
{

if ($Thumb ne ""){
$out= <<EOF;
<ul><li >...</li></ul>
EOF

}
}
my $newrange=$_fullsearch_range+$_fullsearch_range_length;

if($_fullsearch_match_pos<$newrange)
{
    $txt="Suche nach weiteren Treffern";
    $newrange=$_fullsearch_match_pos;
} else
{
    out "<ul ><li style='width:400px;margin:20px auto 0 auto;height:24px;style='color:red;font-weight:bold;'>Kein Treffer</li></ul>" if $_fullsearch_amount<1;

if($newrange<$_amount_all)
{
   
    out "<ul><li  style='width:400px;margin:20px auto 0 auto;height:24px;'><a style='color:#00FA9A;font-weight:bold;' href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a></li></ul>";

{
    out "<ul><li style='width:400px;margin:20px auto 0 auto;height:24px;color:red;font-weight:bold;'>Die Datenbank wurde komplett durchsucht.</li></ul>";

}
</perl>