<form action='$link&cmd=addOnline' method='post' enctype='multipart/form-data'>
<input type=hidden name="htx=" value="$htx">
 <input type=hidden name="cmd=" value="addOnline">
    
<table cellpadding="2" cellspacing="0" border="0">
<tr> 
<td><font size=2>Bitte gib Deine Emailadresse ein</font></td>
<tr> 
<td><font size="2"> 
<input type="text" name="Emailadresse:=" size="15">
</font></td>
</tr>
<tr> 
<td><font size="2"> 
<input type="Submit" value="Abschicken">
</font>
</td>
</tr>
</table>
   </form>

$link="bbeta.pl?htx=$htx";
if ($cmd eq "addOnline")
{
get "email==$Emailadresse","../Newsletter/liste";
if ($_amount == 0)
{
put { email => ["$Emailadresse"] } , "../Newsletter/liste";
out "<p><font size='2'>Eintrag hinzugefügt.</font></p>";
}
else                           # wenn Adresse schon vorhanden
   {
   out "<p><font size='2'>Deine Emailadresse besteht schon in unserem Verzeichnis.</p>";
   }
}
</perl>

<table border="0" cellspacing="0" cellpadding="2" width="200">
  <tr> 
    <td>
      
<div align="center"><font color="#FFFF00"><b><font size="2" color="#FFFFFF">VERLOSUNG</font></b></font></div>
    </td>
    <td width="2" bgcolor="#FFFF00"></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFF00" height="2" colspan="2"></td>
  </tr>

<br>
 <table border="0" cellpadding="0" cellspacing="2" width="100%">
        <tr> 
          <td> 
            <form name="FormName" action="baseportal.pl?htx=$htx&cmd=addOnline" method="post" enctype="multipart/form-data" onsubmit="return formcheck()">
              <input type=hidden name="htx=" value="$htx">
              <input type=hidden name="cmd=" value="addOnline">
<input type=hidden name="IP:=" value="$_REMOTE_ADDR">
<loop db=../Verlosung/verlosung Onlinedatum\<jetzt+1 sort=Einsendeschluss Einsendeschluss\>jetzt range=0,1 code=perl>
if ($Gewinn eq "")
{
out "<table border='0' cellpadding='0' cellspacing='2' width='100%'>
<tr><td>Momentan keine Verlosung!! </td></tr></table>";
}
else
{
out <<EOF;
<table border="0" cellpadding="0" cellspacing="2" width="100%">
                <tr> 
                  <td><font color="white" size="2">Name</font></td>
                  <td colspan="3"> 
                    <input type="text" name="Name:=" size="20">
                    <b></b> </td>
                </tr>
                <tr> 
                  <td><font color="white" size="2">E-Mail</font></td>
                  <td colspan="3"> 
                    <input type="text" name="Email:=" size="40">
                  </td>
                </tr>
                <tr> 
                  <td valign="top"></td>
                  <td colspan="2"> 
                    <p> 
                      <input type="radio" name="Newsletter:=" value="Ja" checked>
                      <font color="#FFFFFF" size="2">Ja, bitte 
                      schickt mir regelm&auml;&szlig;ig Euren Newsletter zu!</font><br>
                      <font color="#FFFFFF" size="2"> 
                      <input type="radio" name="Newsletter:=" value="Nein">
                      Nein danke, ich brauche Euren Newsletter nicht!</font></p>
                  </td>
                </tr>
                <tr> 
                  <td valign="top"></td>
                  <td><b> 
                    <input type="submit" name="submit" value="Absenden">
                    </b></td>
                  <td> 
                    <input type="reset" name="reset">
                  </td>
                </tr>
</table>
EOF
}
</loop>
            </form>
          </td>
        </tr>
      </table>	

if ($cmd eq "addOnline") { put undef,"daten"; $inhalt="Hallo Oliver,\nich habe folgende Loesung: $Anforderung\n\nName: $Vorname $Name\nStraße: $Strasse\nOrt: $PLZ $Stadt\n\n\nE-Mail:$Email\n\nNewsletter: $Newsletter\nIP: $IP";    mail 'mail@mail.de',"Verlosung","$inhalt"; 
if ($Newsletter eq "Ja")
{
get "email==$Email","../Newsletter/liste";   #Prüfen,ob die Adresse schon vorhanden ist
if ($_amount == 0)
   {
put
{
email => ["$Email"]
}
, "../Newsletter/liste";
}
}
}
</perl>