<loop db=galerie code=perl>
foreach $galerie (split /#/,$mGalerie)
{
  ($anzahl,$r)=split /\:/,$galerie;
  last if $r==$_id;
  $anzahl=0;
}
out <<EOF;
<tr valign=top>
<td>
<img src='http://www.hotel-plan.com/files/$_raw{Bild}' width='450'>
</td><td><b>$Name</b><br><br>$Beschreibung
EOF
</loop>

<form action="http://www.domain.de/baseportal?htx=/domain.de/galerie/ecardsend&db=galerie" method="post" enctype="multipart/form-data">

<input type="hidden" name="cmd=" value="add">
<input type=hidden name="status=" value="ein">
<input type=hidden name="Bild:=" value="$_raw{Bild}">

<tr><td> 
<textarea name="text:=" cols="20" rows="2" wrap="virtual"></textarea>
</td></tr>
<tr><td>absender</td><td><input type="text" name="absender:=">
</td></tr>
<tr><td>absendermail</td><td><input type="text" name="absendermail:=">    </td></tr>
<tr><td>empfaenger</td><td><input type="text" name="empfaenger:=">
</td></tr>
<tr><td>empfaengermail</td><td><input type="text" name="empfaengermail:=">
</td></tr>
<tr><td>&nbsp;</td><td><input type=submit name="Abschicken" value="Abschicken"></td></tr>
</table>
</form>

<perl>
$senddat=datum('jetzt', 'intern');
if($cmd eq "add")
{
mail "$empfaengermail", "Ecardbild", "

}
</perl>

<loop db=bildercard>
$Bild
<br><br>

$absendermail<br><br>

$empfaengermail<br><br>
<br><br>
</loop>