Hallo Oliver,
dennoch, beim Blättern wird der Inhalt der Variablen wieder vergessen.
Der erste Aufruf haut hin, dann wenn ich weiterblätter, dann sind die Variablen leer.
Hier nun mal mein kompletter Code
-----------------------------
Vereinfachte Version des Suchformulars
<FORM ACTION="http://baseportal.de/cgi-bin/baseportal.pl?htx=/RogerPeterWerner/such&db=data&cmd=search&range=0,10" METHOD=post enctype="multipart/form-data">
<input type="hidden" name="cmd=" value="add">
<input type="hidden" name="htx=" value="/RogerPeterWerner/such">
<P> ich bin <P>
<SELECT ID="1" NAME="Ich:=">
<OPTION VALUE="Mann" SELECTED> ein Mann </OPTION>
<OPTION VALUE="Frau"> eine Frau </OPTION>
</SELECT>
<P> und suche <P>
<SELECT ID="2" NAME="Du:=">
<OPTION VALUE="Frau" SELECTED> eine Frau </OPTION>
<OPTION VALUE="Mann"> einen Mann </OPTION>
</SELECT>
<P>
<INPUT TYPE=RESET NAME="reset" VALUE="Reset">
<INPUT TYPE=SUBMIT NAME="submit" VALUE="suche">
</FORM>
-----------------------------
Das Ausgabetemplate:
<html>
<head>
<title>Dein Suchergebnis</title>
</head>
<body bgcolor=#000000> <font color=#ffffff>
<center>
<font>Deine Eingaben, du bist ein/e $Ich und suchst eine/n $Du .</font>
hier funktioniert auch die Ausgabe vor dem ersten weiterblättern.
<perl>
$bin=$Ich;
$such=$Du;
hier habe ich die Varriablen von der Suchmaske übergeben für dieses Template
Beginn für das Blättern oben
</perl>
<loop code=perl db=data sort=-id,Vorname range^=0,10>
out "";
</loop>
<perl>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.niederrhein-singles.de/photo/links.gif\" width=\"58\" height=\"41\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
out " blättern <a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.niederrhein-singles.de/photo/rechts.gif\" width=\"58\" height=\"41\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
</perl>
Ende des Blättern-Menus oben
Beginn der Ausgabeseite
<table border="0" width="100%">
<loop code=perl db=data sort=-id,Vorname Ich_bin^==$bin Ich_suche^==$such range^=0,10>
out <<EOF;
<tr>
<td valign="top"><font color="#eeee00">$Datum</font></td>
<td valign="middle" bgcolor="#dddddd"><big><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/RogerPeterWerner/abfrage&cmd=all&Id==$_id\">$Vorname</a></big>
</td>
</tr>
<tr>
<td> </td>
<td>
<font color="#cccccc">
ist ein(e) $Ich_bin, Jahrgang $Geburtstag, aus $Wohnort, ist $Groesse cm groß und sucht ein(e) $Ich_suche für </font> <font color="#cc5555">$Fuer</font>
</td>
</tr>
EOF
</loop>
</table>
Beginn der Blätternfunktion unten
<center>
<perl>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.niederrhein-singles.de/photo/links.gif\" width=\"58\" height=\"41\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
out "blättern <a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.niederrhein-singles.de/photo/rechts.gif\" width=\"58\" height=\"41\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
</perl>
</center>
Ende der Blätternfunktion unten
-----------------------------------
So langsam gehen mir auch alle Ideen aus.
Liebe Grüße,
Roger
