<perl>
if ($cmd eq "all")
{
out <<EOF;
<form action="http://service.kundenserver.de/cgi-bin/feedback/feedback.cgi" method="POST"
onsubmit="return_true" name="FrontPage_Form1">
  <input type="hidden" name="Info" value="ja"><input type="hidden" name="FBLOCATION"
  value="http://www.medi-web.de/praxisboerse/erfolg2.htm"><input type="hidden" name="FBMAIL"
  value="info@medi-web.de"><input type="hidden" name="FBSUBJECT"
  value="Interesse an Praxis mit Code $Code"><div align="left"><table border="0"
  cellpadding="3" cellspacing="0" bordercolor="#C0C0C0">
    <tr>
      <td valign="top"><div align="left"><hr size="1" color="#C0C0C0">
      <p><font face="Arial" color="#0000FF">Bitte wählen Sie zuerst <strong>eine</strong>
      Praxis aus und fordern Sie mehr Informationen an!</font></p>
      <table border="1" cellpadding="6" cellspacing="0" width="600" bgcolor="#DFDFDF"
      bordercolor="#C0C0C0">
        <tr>
          <td valign="top" colspan="2"><font face="Arial" color="#400040"><strong>Bitte senden Sie
          die Infos an...</strong></font></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td align="right" valign="top"><font size="2" face="Arial" color="#400040"><strong>Name/Adresse</strong></font></td>
          <td><font size="2" face="Arial" color="#400040"><textarea name="Name_Adresse" rows="3"
          cols="30" wrap="virtual"></textarea></font></td>
        </tr>
        <tr>
          <td align="right"><font size="2" face="Arial" color="#400040"><strong>Telefon</strong></font></td>
          <td><font face="Arial" color="#400040"><input type="text" size="30" name="Telefon"></font></td>
        </tr>
        <tr>
          <td align="right"><font size="2" face="Arial" color="#400040"><strong>Fax</strong></font></td>
          <td><font face="Arial" color="#400040"><input type="text" size="30" name="Fax"></font></td>
        </tr>
        <tr>
          <td align="right"><font size="2" face="Arial" color="#400040"><strong>e-mail</strong></font></td>
          <td><font face="Arial" color="#400040"><input type="text" size="30" name="email"></font></td>
        </tr>
        <tr>
          <td align="right"><font size="2" face="Arial" color="#400040"><strong>Rückruf sofort</strong></font></td>
          <td valign="top"><font face="Arial" color="#400040"><small><strong><small>JA <input
          type="radio" value="ja" checked name="Rueckruf"> NEIN</small></strong></small><input
          type="radio" name="Rueckruf" value="nein"></font></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td align="left"><font face="Arial"><input type="submit" name="B2" value="Abschicken">
          &nbsp;&nbsp; <input type="reset" name="B1" value="Verwerfen"></font></td>
        </tr>
      </table>
      </div></td>
    </tr>
  </table>
  </div>
</form>
}
</perl>