Re: Ich werd Waaaahnsinnig - baseportal Forum - Web-Anwendungen einfach, schnell, leistungsfähig!
baseportal
English - Deutsch "Es gibt keine dummen Fragen - jeder hat einmal angefangen"

 baseportal-ForumDie aktuellsten 10, 30, 50, 100 Einträge anzeigen.  

 
 Ausgewählter Eintrag: Zur Liste 
    Beitrag von Sander (8133 Beiträge) am Sonntag, 9.Dezember.2001, 00:46.
    Re: Ich werd Waaaahnsinnig

      ich würde es so machen:
      <perl>
 

      my $emsg="";
      if(%_put)
{
$emsg.="Firma, " if $_put{Firmenname} eq "";
$emsg.="Straße / Nr., " if $_put{Firmenstrasse} eq "";
  $emsg.="Postleitzahl, " if $_put{FirmenPLZ} eq "";
  $emsg.="Ort, " if $_put{Firmenort} eq "";
  $emsg.="Firmentelefon, " if $_put{Firmentelefon} eq "";
  $emsg.="Firmen E-Mail, " if $_put{FirmenEmail} eq "";
  $emsg.="Internet-Adresse, " if $_put{InternetAdresse} eq "";
  $emsg.="Beschreibung, " if $_put{Beschreibung} eq "";
  $emsg.="Branche, " if $_put{Branche} eq "";
  $emsg.="Produkte, " if $_put{Produkte} eq "";
  $emsg.="Ansprechpartner: Name, " if $_put{Name} eq "";
  $emsg.="Ansprechpartner: Vorname, " if $_put{Vorname} eq "";
  $emsg.="Ansprechpartner: Telefon, " if $_put{Telefon} eq "";
  $emsg.="Ansprechpartner: Funktion, " if $_put{Funktion} eq "";
  $emsg.="Ansprechpartner: E-Mail , " if $_put{Email} eq "";
 

        if($emsg eq "")
  {
      get "KdNr==#", "address_stamm"; ## letzte Nummer aus DB holen
      $_put{KdNr}=++$KdNr; ## diese Nummer um eins erhöhen

          put;
    out "<P>Ihr Eintrag wurde aufgenommen...</P>";
  } else
  {
    out '<table width=90%><tr><td><br><P>';
    out "Folgende Felder wurden nicht ausgefüllt:";
    out "<H4>$emsg";
    out "<br><P>Bitte benutzen Sie den Zurücklink, Danke.";
    out "</td></tr></table>";
  }
      }

      Sander


    Ihre Antwort:

    Name: EMail: EMail bei Antwort? WWW:
    Titel:
    Text:

    Neuer Eintrag


 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Jürgen (614 Beiträge) am Samstag, 8.Dezember.2001, 23:13.
    Ich werd Waaaahnsinnig

      Hi Leute,

      folgendes Prob. Ich hab da ein Formular(Seite) das mit:... übergeben wird.
      <FORM ACTION="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/blablabla/address_stamm&cmd=add" METHOD=POST ENCTYPE="multipart/form-data" >
      Das Zieltemplate macht eine Überprüfung ob meine Felder ausgefüllt wurden.

      <HTML>
<HEAD>
<TITLE>Bestätigung</TITLE>
</HEAD>
<Body>
<perl>

      my $emsg="";

      if(%_put)
{
  $emsg.="Firma, " if $_put{Firmenname} eq "";
  $emsg.="Straße / Nr., " if $_put{Firmenstrasse} eq "";
  $emsg.="Postleitzahl, " if $_put{FirmenPLZ} eq "";
  $emsg.="Ort, " if $_put{Firmenort} eq "";
  $emsg.="Firmentelefon, " if $_put{Firmentelefon} eq "";
  $emsg.="Firmen E-Mail, " if $_put{FirmenEmail} eq "";
  $emsg.="Internet-Adresse, " if $_put{InternetAdresse} eq "";
  $emsg.="Beschreibung, " if $_put{Beschreibung} eq "";
  $emsg.="Branche, " if $_put{Branche} eq "";
  $emsg.="Produkte, " if $_put{Produkte} eq "";
  $emsg.="Ansprechpartner: Name, " if $_put{Name} eq "";
  $emsg.="Ansprechpartner: Vorname, " if $_put{Vorname} eq "";
  $emsg.="Ansprechpartner: Telefon, " if $_put{Telefon} eq "";
  $emsg.="Ansprechpartner: Funktion, " if $_put{Funktion} eq "";
  $emsg.="Ansprechpartner: E-Mail , " if $_put{Email} eq "";
 

        if($emsg eq "")
  {
    put;
    out "<P>Ihr Eintrag wurde aufgenommen...</P>";
  } else
  {
    out '<table width=90%><tr><td><br><P>';
    out "Folgende Felder wurden nicht ausgefüllt:";
    out "<H4>$emsg";
    out "<br><P>Bitte benutzen Sie den Zurücklink, Danke.";
    out "</td></tr></table>";
  }
      }
      "";
      </perl>
<center><b><a href="javascript:history.back()">Zurück</a></center>

      </BODY>
      </HTML>


      Jetzt soll aber eine Kundennummer vergeben werden. Das in etwa so aussieht:

      <perl>
get "KdNr==#", "address_stamm"; ## letzte Nummer aus DB holen
$KdNr++; ## diese Nummer um eins erhöhen
</perl>

      Nur egal wo das Ding steht, bekomme ich im Eintrag dann ein Leer ?????
      Übergebe zwar Im Formular das Feld mit HIDDEN z.B
      <INPUT TYPE=HIDDEN NAME="KdNr:=" VALUE="">,
      aber ich komme zu keinem Ergebnis. Bitte helft mir, sonst werd ich Waaaahnsinnig.
      Dank, an euch alle dir mir helfen wollen.

      Gruß
      Jürgen

     Antworten

    Beitrag von Stefan Krupop (311 Beiträge) am Sonntag, 9.Dezember.2001, 00:13.
    Re: Ich werd Waaaahnsinnig

      Probier statt
      <INPUT TYPE=HIDDEN NAME="KdNr:=" VALUE="">
      mal
      <INPUT TYPE=HIDDEN NAME="KdNr:=" VALUE="$KdNr">

      Stefan

     Antworten

    Beitrag von Jürgen (614 Beiträge) am Sonntag, 9.Dezember.2001, 01:31.
    Re: Ich werd Waaaahnsinnig

      Hi Stefan und Sander,

      Danke für Eure Hilfe. War nur der Eintrag
      <INPUT TYPE=HIDDEN NAME="KdNr:=" VALUE="$KdNr">
      und schon funzte es.
      Ich danke Euch recht herzlich dafür, daß ihr mir geholfen habt. Was für...... was soll ich schreiben,
      im Prinzip nur eine kleinigkeit, aber für mich ein RIEßEN Plus. Wenn die Arbeit fertig ist, gib ich sie bekannt. Ich brauche Euch noch öffters!!
      Es gibt noch einige schwierigkeiten !! Hoffe, Ihr helft mir!!

      Gruß, und nochmals Danke
      Jürgen

     Antworten

    Beitrag von Sander (8133 Beiträge) am Sonntag, 9.Dezember.2001, 00:46.
    Re: Ich werd Waaaahnsinnig

      ich würde es so machen:
      <perl>
 

      my $emsg="";
      if(%_put)
{
$emsg.="Firma, " if $_put{Firmenname} eq "";
$emsg.="Straße / Nr., " if $_put{Firmenstrasse} eq "";
  $emsg.="Postleitzahl, " if $_put{FirmenPLZ} eq "";
  $emsg.="Ort, " if $_put{Firmenort} eq "";
  $emsg.="Firmentelefon, " if $_put{Firmentelefon} eq "";
  $emsg.="Firmen E-Mail, " if $_put{FirmenEmail} eq "";
  $emsg.="Internet-Adresse, " if $_put{InternetAdresse} eq "";
  $emsg.="Beschreibung, " if $_put{Beschreibung} eq "";
  $emsg.="Branche, " if $_put{Branche} eq "";
  $emsg.="Produkte, " if $_put{Produkte} eq "";
  $emsg.="Ansprechpartner: Name, " if $_put{Name} eq "";
  $emsg.="Ansprechpartner: Vorname, " if $_put{Vorname} eq "";
  $emsg.="Ansprechpartner: Telefon, " if $_put{Telefon} eq "";
  $emsg.="Ansprechpartner: Funktion, " if $_put{Funktion} eq "";
  $emsg.="Ansprechpartner: E-Mail , " if $_put{Email} eq "";
 

        if($emsg eq "")
  {
      get "KdNr==#", "address_stamm"; ## letzte Nummer aus DB holen
      $_put{KdNr}=++$KdNr; ## diese Nummer um eins erhöhen

          put;
    out "<P>Ihr Eintrag wurde aufgenommen...</P>";
  } else
  {
    out '<table width=90%><tr><td><br><P>';
    out "Folgende Felder wurden nicht ausgefüllt:";
    out "<H4>$emsg";
    out "<br><P>Bitte benutzen Sie den Zurücklink, Danke.";
    out "</td></tr></table>";
  }
      }

      Sander

     Antworten


     
 Liste der ersten 150 Einträge:Einklappen Zur Eingabe 
 Zur Eingabe  > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge

Zurück zur Homepage

© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen



powered in 0.06s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!