Im Prinzip weis ich wie es geht,
nur mit der ID Übergabe hab ich mein Problem.
Es muß alles in ein Template drinn sein.
Wer findet den Fehler ?
Hier die Seite:
http://koch.netpure.de/baseportal/koch/ecard/ecard
und der Quelltext:
<head>
<title>eCard von Brueckenbau-links.de</title>
</head>
<body bgcolor="#C0C0C0">
<perl>
if ($status eq "")
{
# Ersteingabe
out <<EOF;
<form action="http://koch.netpure.de/cgi-bin/baseportal.pl?htx=/koch/ecard/ecard&cmd=add" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/koch/ecard/ecard">
<input type=hidden name="cmd=" value="add">
<input type=hidden name="status=" value="ein">
<h3 align="center">eCard</h3>
<div align="center"><center>
<table border="0" width="600" bgcolor="#D3D3D3">
<tr>
<td width="50%"><table border="0" width="100%">
<tr>
<td colspan="2"><strong>Absender</strong></td>
</tr>
<tr>
<td>Name</td>
<td><input type="text" name="abname:=" size="20"></td>
</tr>
<tr>
<td>E-Mail</td>
<td><input type="text" name="abmail:=" size="20"></td>
</tr>
<tr>
<td width="100%" colspan="2">Text:<br>
<textarea rows="12" name="text:=" cols="31"></textarea> </td>
</tr>
</table>
</td>
<td width="50%" valign="top"><table border="0" width="100%" height="296">
<tr>
<td width="100%" colspan="2" height="176" valign="top"><p align="right"><img
src="http://www.brueckenbau-links.de/briefmarke.jpg" width="164" height="100"></td>
</tr>
<tr>
<td width="100%" colspan="2" height="25"><font size="4"><strong>An:</strong></font></td>
</tr>
<tr>
<td height="25">Anrede</td>
<td height="25"><input type="text" name="anrede:=" size="20" value="Hallo"></td>
</tr>
<tr>
<td height="25">Name</td>
<td height="25"><input type="text" name="anname:=" size="20"></td>
</tr>
<tr>
<td height="25">E-Mail</td>
<td height="25"><input type="text" name="anmail:=" size="20"></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div>
<h4 align="center">Brückenmotive</h4>
<div align="center"><center>
<table border="0" cellspacing="3">
<tr>
<td align="center" valign="top"> <input type="radio" value="V1" name="R1:="><br>
<img src="http://www.brueckenbau-links.de/ecard/11_01_23_thumb.jpg" width="125" height="83"
alt="11_01_23_thumb.jpg (1745 Byte)"></td>
<td align="center" valign="top"> <input type="radio" value="V2" name="R1:="><br>
<img src="http://www.brueckenbau-links.de/ecard/11_01_4_thumb.jpg" width="125" height="83"
alt="11_01_4_thumb.jpg (1848 Byte)"></td>
<td align="center" valign="top"> <input type="radio" value="V3" checked name="R1:="><br>
<img src="http://www.brueckenbau-links.de/ecard/11_01_6_thumb.jpg" width="125" height="83"
alt="11_01_6_thumb.jpg (2130 Byte)"></td>
<td align="center" valign="top"> <input type="radio" value="V4" name="R1:="><br>
<img src="http://www.brueckenbau-links.de/ecard/11_02_4_thumb.jpg" width="125" height="83"
alt="11_02_4_thumb.jpg (5748 Byte)"></td>
<td align="center" valign="top"> <input type="radio" value="V5" name="R1:="><br>
<img src="http://www.brueckenbau-links.de/ecard/11_43_6_thumb.jpg" width="125" height="83"
alt="11_43_6_thumb.jpg (3926 Byte)"></td>
</tr>
<tr>
<td align="center" valign="top" colspan="5"><font size="1">freie Fotos von <a
href="http://www.freefoto.com" target="_blank">FreeFoto.Com</a></font></td>
</tr>
</table>
</center></div>
<p align="center"><input type="submit" name="submit" value="eCard anschauen"> <br>
Wird dadurch noch nicht versendet.</p>
<perl>
if ($cmd eq "add")
{
$Idm=$_Id ;
put if %_put;
out <<EOF;
<div align="center"><center>
<table border="0" width="600">
<tr>
<td width="100%"><h3 align="center"><font face="Comic Sans MS">$anrede $anname</font></h3>
EOF
out "<p align='center'><img src='http://www.brueckenbau-links.de/ecard/11_01_23_web.jpg' height='400'></p>" if $R1 eq "V1";
out "<p align='center'><img src='http://www.brueckenbau-links.de/ecard/11_01_4_web.jpg' height='400'></p>" if $R1 eq "V2";
out "<p align='center'><img src='http://www.brueckenbau-links.de/ecard/11_01_6_web.jpg' height='400'></p>" if $R1 eq "V3";
out "<p align='center'><img src='http://www.brueckenbau-links.de/ecard/11_02_4_web.jpg' height='400'></p>" if $R1 eq "V4";
out "<p align='center'><img src='http://www.brueckenbau-links.de/ecard/11_43_6_web.jpg' height='400'></p>" if $R1 eq "V5";
out <<EOF;
<p align="center"><font face="Comic Sans MS">$text<br> ID $Idm</font></p>
<p align="center"><font face="Comic Sans MS"><strong>$abname</strong></font></p>
<form action="http://koch.netpure.de/cgi-bin/baseportal.pl?htx=/koch/ecard/ecard&status=raus&Id=$Idm" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/koch/ecard/ecard">
<input type=hidden name="status=" value="raus">
<p align="center"><font face="Comic Sans MS"><input type="submit" name="submit" value="abschicken">
</form>
<br>
an <strong>$anmail</strong></font></p>
<p align="center"><font size="1">ein Service von </font><a href="http://www.brueckenbau.links.de" target="_blank"><font size="1">www.brueckenbau.links.de</font></a><font
size="1"> </font></td>
</tr>
</table>
</center></div>
EOF
}
</perl>
<perl>
# eCard abschicken
get "Id==$Idm", "ecard";
if ($status eq "raus")
{
# hier kommt später der E-Mail Versand hin
out "Die eCard wurde an $anname versendet";
}
</perl>
</body>