Michi n: Fomulard. weiterg. über cgi.ok, aber wie kommts zurück i. HTML

Hallo User...

Stehe gerade vor einer Haarausfallprobe ;-)
Habe ein Formular erstellt... ok läuft! Dann werden die Daten über ein CGI verarbeitet per Email und sogar in eine Datei... soweit auch ok käuft, aber wie bekomme ich gewisse daten wieder zurück in eine neue HTML Seite?
Bitte nicht schimpfen... ich arbeite mit Frontpage :-(( ja ich weis... trurig, aber ich komme damit am besten klar... habe also ein Regestrierungsbestätigung erstellt und bekomme da keine Daten rein...

So sieht mein Versuch aus: (nur ein Teil vom Code!)
Wer kann mir info geben oder einen kleinen Patscher auf den Hinterkopf ;-)

<body>

<p> </p>
<%
read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
my @Formularfelder = split(/&/, $Daten);
my ($Feld, $Name, $Wert);
my %Formular;
foreach $Feld (@Formularfelder) {
  (my $Name, my $Wert) = split(/=/, $Feld);
  $Wert =~ tr/+/ /;
  $Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $Wert =~ s/</&lt;/g;
  $Wert =~ s/>/&gt;/g;
  $Formular{$Name} = $Wert;
%>
<p style="background-color: #BDD3FF"><font face="Verdana" size="5" color="#000080">Regestrierungsbestätigung</font></p>
<p>Sehr geehrte(r) Herr/Frau   <%$Formular{ansprechpartner}%><p>
                                     *************************** ??
,</p>
<p>Ihre Registrierung haben wir erhalten. Sie bekommen in den nächsten Tagen
Ihre Zugangsdaten per Email zugesandt.</p>
....

Schaut der Code schlim aus ? :(

Danke
Michi neuling :)

  1. Hallo,

    <p>Sehr geehrte(r) Herr/Frau

    <% print $Formular{ansprechpartner} %><p>
       ^^^^^

    Gruß,
    dimde

    1. Hallo,

      <p>Sehr geehrte(r) Herr/Frau 
      <% print $Formular{ansprechpartner} %><p>
         ^^^^^

      Das hat leider auch nicht geholfen... Wird nichts ausgegeben...

      Ich zeit euch mal den ganzen Code... ja weis schon... muß nicht sein, aber vielleicht sagt euch das dann eher was...

      regbestaetigung.htm sieht so aus (wie gesagt in FP gemacht :()
      <html>

      <head>
      <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
      <meta http-equiv="Content-Language" content="de">
      <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
      <meta name="ProgId" content="FrontPage.Editor.Document">
      <title>Regestrierungsbestätigung</title>
      <meta name="Microsoft Border" content="tl, default">
      </head>

      <body>

      <p> </p>
      <%
      read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
      my @Formularfelder = split(/&/, $Daten);
      my ($Feld, $Name, $Wert);
      my %Formular;
      foreach $Feld (@Formularfelder) {
        (my $Name, my $Wert) = split(/=/, $Feld);
        $Wert =~ tr/+/ /;
        $Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $Wert =~ s/</&lt;/g;
        $Wert =~ s/>/&gt;/g;
        $Formular{$Name} = $Wert;
      %>
      <p style="background-color: #BDD3FF"><font face="Verdana" size="5" color="#000080">Regestrierungsbestätigung</font></p>
      <p>Sehr geehrte(r) Herr/Frau
      <% print $Formular{ansprechpartner} %><p>
      <p>Ihre Registrierung haben wir erhalten. Sie bekommen in den nächsten Tagen
      Ihre Zugangsdaten per Email zugesandt.</p>
      <blockquote>
        <blockquote>
          <blockquote>
            <p>Mit freundlichen Grüßen</p>
            <p><em>JUPU</em></p>
            <p> </p>
          </blockquote>
        </blockquote>
      </blockquote>
      <hr>
      <p><font face="Arial" size="1">Copyright © 2003 Michael Sirl. Alle Rechte
      vorbehalten.<br>
      Stand: <!--webbot bot="TimeStamp" S-Type="EDITED" S-Format="%d. %B %Y" -->
        </font></p>
      <p><font face="Arial" size="1">Stand: <!--webbot bot="TimeStamp" S-Type="EDITED"
      S-Format="%d. %B %Y" -->
       </font>

      </body>

      </html>