<html>
<head>
<title></title>
<script type="text/javascript">
<!--
if( location.search.indexOf("user=") == -1 && parent.log.location.search ) location.href += parent.log.location.search;
//-->
</script>
</head>
<body>
<table align="center" width="620" border="0" cellpadding="0" cellspacing="0">
<tr valign="top">
<perl>
get "Username==!$user", "login";
if($Password ne "" && $Password eq $pwd)
{
out <<EOF;
<td><h1>Ihr Partnerwunsch</h1></td></tr></table>
<form action="abfrage?user=$user&pwd=$pwd" method="post" enctype="multipart/form-data">
<input type="hidden" name="msg=" value="Bitte wählen Sie eine Rubrik.">
<table align="center" width="620" border="0" cellspacing="0" cellpadding="4">
<tr>
EOF
if(!$ru)
{
out "<td colspan=\"4\" align=\"center\"><h3><br>–––> $msg <–––<br></h3></td></tr><tr>" if $msg;
out <<EOF;
<td colspan="4"><br>...</td>
</tr>
</table>
<table align="center" width="620" border="0" cellspacing="0" cellpadding="4">
<tr>
<th colspan="4" height="100"><br>Allgemeines</th>
</tr>
<tr>
<td>Rubrik</td>
<td>
<select size="1" name="ru=" width="137px" style="width:137px">
<option value="">
<option value="Er_sucht_sie">Er sucht sie
<option value="Sie_sucht_ihn">Sie sucht ihn
<option value="Er_sucht_ihn">Er sucht ihn
<option value="Sie_sucht_sie">Sie sucht sie</select></td>
</tr>
</table>
<table align="center" width="260" border="0" cellspacing="0" cellpadding="4">
<tr>
<td><input type="submit" value="Mal schauen">
</td>
<td><input type="reset" value="Verwerfen">
</td>
EOF
}
else
{
if($ki==0)
{
$kd=21;
}
elsif($ki==-1)
{
$kd=1;
}
get "Rubrik==$ru&Geboren>$jv&Geboren<$jb&PLZ==$pl&Groesse>=$gv&Groesse<=$gb&Erscheinung==$er&Typ==$ty&Figur==$fi&Mentalitaet==$me&Interessen==$in&Familienstand==$fa&Raucher==$ra&Kinder>$ki&Kinder<$kd&Status==frei", "mitglieder";
if ($_amount == 0)
{
out "<tr><td colspan=\"4\"><br>Ihre Anfrage erzielte keinen Treffer.<br><br><br><div align=\"center\"><a href=\"abfrage?user=$user&pwd=$pwd\">zurück</a></div></td></tr>";
}
else
{
out "<td><br>...<br><br><br><br></td></tr><tr valign=\"top\"><th height=\"50\" colspan=\"12\">Folgende $_amount Partnersuchende erfüllen Ihre Bedingungen:</th></tr></table><table align=\"center\" width=\"618\" border=\"0\" cellpadding=\"4\" cellspacing=\"1\"><tr><td class=\"ge\">Vorname</td><td class=\"ge\">PLZ</td><td class=\"ge\">Geboren</td><td class=\"ge\">Größe</td></tr>";
while(get_next("mitglieder"))
{
$Jahr=datum("$Geboren","Jahr");
$Gebdat=datum("$Geboren","Tag. Monatname Jahr");
out "<tr><td class=\"gr\"><a href=\"ausgabe?id=$Id&vorname=$Vorname&plz=$PLZ&geb=$Gebdat&groesse=$Groesse&erscheinung=$Erscheinung&typ=$Typ&figur=$Figur&ment=$Mentalitaet&int=$Interessen&fam=$Familienstand&raucher=$Raucher&kinder=$Kinder&wunsch=$Kinderwunsch&mail=$Email\" title=\"Profil von $Vorname anschauen\">$Vorname</a></td><td class=\"gr\">$PLZ</td><td class=\"gr\">$Jahr</td><td class=\"gr\">$Groesse</td></tr>";
}
}
}
} else
{
out "<td><h1 align=\"center\"><h1><br><br>Sie sind nicht eingeloggt.</h1></td>";
}
</perl>
</tr>
</table>
</body>
</html>
<body>
<table align="center" width="620" border="0" cellpadding="0" cellspacing="0">
<tr valign="top">
<td colspan="3"><h1>Persönliches Profil von $vorname<br><br></h1></td>
</tr>
<tr>
<td class="gb">PLZ-Bereich:</td>
<td>$plz</td>
</tr>
<tr>
<td class="gb">Geburtsdatum:</td>
<td>$geb</td>
</tr>
<tr>
<td class="gb">Größe:</td>
<td>$groesse cm</td>
