hallo sander,
dass mit der 'programmierunart' wäre wieder der anfang zu einer der endlosen akademischen diskussionen und da habe ich keinen bock draufi; in vielen jahren habe ich erfahren, dass man mit so einem kleinen umweg schnell und performant eine klippe umschifft, in der so mancher jünger von johnson-gurus sich nächtelang gedanken macht. ich denke, dass können die jenigen machen, die für ihr geld nicht mehr arbeiten müssen.
solltest du jetzt noch lust haben, hier aufruf und code:
http://bestguide.de/baseportal/ace/pac511if
<BODY SCROLL="auto"><CENTER>
<perl>
#--------------------------------------------------------------------#
#-- Sub-Routinen --#
#--------------------------------------------------------------------#
#------------------------------------------------#
#--SR Ausgabe Kontakt-Seite #
#------------------------------------------------#
sub fm_mail
{
if (($msg eq "SENT") || ($errmsg ne ""))
{
}
out "<TABLE CELLPADDING=5 CELLSPACING=5 WIDTH=580 BORDER=0>\n";
out "<TR><TD COLSPAN=2 ALIGN='right' VALIGN='top'>\n";
out "<A NAME='step0'></A>";
out "<SPAN CLASS='w12b'><BR><BR>ars communicandi<BR><BR>Postfach 100 226<BR>D-76483 Baden-Baden<BR><BR>\n";
out "Fon +49 (0)7221 - 22 4 66 <BR>Fax +49 (0)7221 - 22 5 66<BR><BR>Mail info\@bestguide.org</SPAN><BR><BR>\n";
out "</TD></TR>\n";
out "<TR><TD ALIGN='right'><BR><BR><BR><BR><A CLASS='link2' HREF=#step1>Ihre Anfrage <IMG SRC=http://www.bestguide.org/arscom/gfx/pfunten.gif ALT='Ihre Anfrage' BORDER=0></A> </TD></TR>\n";
STEP1:
out "<TR><TD ALIGN='right'><A NAME='step1'></A><TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0>\n";
if ($msg eq "SENT")
{
out "<TR><TD> </TD><TD CLASS='alarm'><BR>Mail wurde versandt!<BR> </TD></TR>\n";
}
if ($msg eq "")
{
out "<TR><TD> </TD><TD CLASS='alarm'><BR> </TD></TR>\n";
}
if ($errmsg ne "")
{
out "<TR><TD> </TD><TD CLASS='alarm2'>$errmsg</TD></TR>\n";
}
out "<FORM ACTION=\"baseportal.pl?htx=$htx\" METHOD=\"post\" ENCTYPE=\"multipart/form-data\" ONRESET=\"return confirm('Sind Sie sicher, dass Sie das Formular leeren wollen?')\">";
&do_hidden("do_mail");
<TR><TD ALIGN="right">Ihr Name : </TD><TD ALIGN="right"><INPUT TYPE="text" NAME="work_sender_name=" size=40 VALUE="$work_sender_name"></TD></TR>
<TR><TD ALIGN="right">Ihre E-Mail : </TD><TD ALIGN="right"><INPUT TYPE="text" NAME="work_sender=" size=40 VALUE="$work_sender"></TD></TR>
<TR><TD ALIGN="right">Betreff : </TD><TD ALIGN="right"><INPUT TYPE="text" NAME="work_thema=" size=40 VALUE="$work_thema"></TD></TR>
<TR><TD ALIGN="right">Text : </TD><TD ALIGN="right"><TEXTAREA STYLE="overflow:auto" NAME="work_text=" COLS=38 ROWS=7 WRAP=VIRTUAL>$work_text</TEXTAREA></TD></TR>
<TR><TD> </TD><TD ALIGN="center"><BR><INPUT CLASS="button" TYPE="submit" VALUE=" Absenden "><BR> </TD></TR>
<TR><TD CLASS='w7' COLSPAN=2 ALIGN='right'><BR><A CLASS='link2' HREF=#step0>nach oben <IMG SRC=http://www.bestguide.org/arscom/gfx/pfoben.gif ALT='nach oben' BORDER=0></A> </TD></TR>
</FORM>
</TABLE></TD></TR>
<TR><TD CLASS='w7' ALIGN='right' HEIGHT=260 VALIGN='top'><A NAME='step2'></A>Step2 <IMG SRC=http://www.bestguide.org/arscom/gfx/pfunten.gif ALT='Step2' BORDER=0> </TD></TR>
<TR><TD CLASS='w7' ALIGN='right' COLSPAN=2><A CLASS='link2' HREF=#step0>nach oben <IMG SRC=http://www.bestguide.org/arscom/gfx/pfoben.gif ALT='nach oben' BORDER=0></A> </TD></TR>
<TR><TD CLASS='w7' ALIGN='right' HEIGHT=260 VALIGN='top'><A NAME='step3'></A>Step3 <IMG SRC=http://www.bestguide.org/arscom/gfx/pfunten.gif ALT='Step3' BORDER=0> </TD></TR>
<TR><TD CLASS='w7' ALIGN='right' COLSPAN=2><A CLASS='link2' HREF=#step0>nach oben <IMG SRC=http://www.bestguide.org/arscom/gfx/pfoben.gif ALT='nach oben' BORDER=0></A> </TD></TR>
</TABLE>
EOF
}
</perl>
<perl>
#------------------------------------------------#
#--SR Verschicken Mail #
#------------------------------------------------#
sub do_mail
{
$errmsg = "";
$errmsg.="Bitte geben Sie Ihren NAMEN ein!<BR>" if $_get{work_sender_name} eq "";
$errmsg.="Bitte geben Sie Ihre MAIL-ADRESSE ein!<BR> " if $_get{work_sender} eq "";
$errmsg.="Bitte geben Sie einen BETREFF ein!<BR> " if $_get{work_thema} eq "";
$errmsg.="Bitte geben Sie einen TEXT ein!<BR> " if $_get{work_text} eq "";
if (!$errmsg)
{
$work_empfaenger = "cseifried\@t-online.de";
$work_empfaenger_name = "";
mail "$work_empfaenger", "$work_thema", "$work_text", "$work_sender", "$work_empfaenger_name", "$work_sender_name";
$work_sender_name = "";
$work_sender = "";
$work_thema = "";
$work_text = "";
$msg = "SENT";
}
$cmd = "fm_mail";
}
</perl>
<perl>
#------------------------------------------------#
#--SR Initialisieren Hidden-Felder #
#------------------------------------------------#
sub do_hidden
{
out <<EOF;
<INPUT type=hidden name="htx=" value="$htx">
<INPUT type=hidden name="cmd=" value="$cmd">
<INPUT type=hidden name="namerein=" value="$namerein">
<INPUT type=hidden name="sid=" value="$sid">
EOF
}
</perl>
<perl>
#------------------------------------------------#
#- ab hier : Programmsteuerung #
#------------------------------------------------#
&do_mail if ($cmd eq "do_mail");
&fm_mail if (($cmd eq "fm_mail") || (!$cmd));
#------------------------------------------------#
#- bis hier : Programmsteuerung #
#------------------------------------------------#
</perl>
</BODY></HTML>
