<include src=/_bib/ktools/sendmail>
<perl>&sendmail("hallo\@gmx.de", "Testmail", "Hallo, dies ist ein
Test...","hallo\@hallo.de","","",0,1);
</perl>

      <table width="90%" border="0" cellspacing="0" cellpadding="1" align="center" class="cream">
        <tr> 
          <td> 
            <p>

          </td>
        </tr>
      </table>
      <br>

<loop db=db sort^=Ort Bundesland~=$Bundesland Ort~=$Ort range=0,1 code=perl>
$bild ="";
if($Feld eq "Ja") {
$bild = "<img src='$Grafikpfad/gif.gif' alt=gif width='25'>";
}
$bild1 ="";
if($Feld eq "Ja") {
$bild1 = "<img src='$Grafikpfad/gif.gif' alt=gif width='25'>";
}
$bild2 ="";
if($Feld eq "Ja") {
$bild2 = "<img src='$Grafikpfad/gif.gif' alt=gif width='25'>";
}
$bild3 ="";
if($Feld eq "Ja") {
$bild3 = "<img src='$Grafikpfad/gif.gif' alt=gif width='25'>";
}
out <<EOF;
<center><table width="90%" border="0" cellspacing="0" class="premium">
  <tr><td>
<table width="100%" border="0" cellspacing="0" class="cream" name="daten">
  <tr>
    <td width="2%"><img src="$Grafikpfad/data.gif" align="top"> </td>
    <td width="98%"><b>$_put{Feld}, $_put{Feld}</b></td>
  </tr>
  <tr> 
    <td width="2%"> </td>
    <td width="98%">$_put{Feld}</td>
  </tr>
  <tr> 
    <td width="2%"> </td>
    <td width="98%">Tel.:$_put{Feld} Kontakt:$_put{Feld}, $_put{Feld}</td>
  </tr>
  <tr> 
    <td width="2%"> </td>
    <td width="98%">$bild $bild1 $bild2 $bild3</td>
  </tr>
  <tr></tr>
</table>
</td></tr>
</table>
<br>
<!-- Ende Ausgabe -->
      <br>
      <table width="90%" border="0" cellspacing="1" align="center">
        <tr> 
          <td class="cream" height="188"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" background="$Grafikpfad/trenner.gif">
              <tr> 
                <td height="5"><img src="$Grafikpfad/spacer.gif" width="5" height="5"></td>
              </tr>
            </table>
            <p><br>
              Bitte wandeln Sie meinen vorhandenen Eintrag bei <i>Domain.de</i> 
              in einen <br>
            </p>

<form method="post" action="mailto:webmaster@Domain.de?subject=Premiumeintrag" name="premium">
<input type="hidden" name="recipient" value="webmaster@Domain.de">
<input type="hidden" name="required" value="firma">
<table width="90%" border="0" cellspacing="0">
<tr><td>
<input type="checkbox" name="Premium" value="JA" checked class="inputr">
                Premiumeintrag um.</p>
              <p align="center">Firma: 
                <input type="text" name="$_put{Firma}">
              </p>
              <p>Das Formular wird über Ihr EMail-Programm verschickt. Um 
                Sie zu Authentifizieren zu können, bitte die, in unsere Datenbank 
                eingetragene EMailadresse als Absender verwenden!</p>
              <div align="center"><br>
                <input type="submit" name="OK" value="Eintragen" class="inputr">
              </div>
  </td></tr></table>
            </form>
          </td>
        </tr>
      </table>
EOF
</loop>