<!----ab hier Routine DATEN ERFASSEN--------------------->
<table class=tabbei align=center><tr><td>&nbsp;</td></tr>

        <perl>
        #---------- Datensatz wird erfasst --------------# 
        if ($cmd eq "add")
             {
             put undef, "bgtest";
             
             out "<tr><td colspan=2 class=wht10b align=center> --------- Eintrag wurde hinzugefügt ! --------- <br>&nbsp;</td></tr>";
             } 
        #---------- Dropdowns definieren ----------------#
               
        $work_xtyp  =  '<select name="xtyp:=">';
                       get "Id==* sort=v3gruppe,v3typ","bgvtyp";
                       while (get_next("bgvtyp"))
                       {
        $work_xtyp .=  "<option value=\"$v3typ\">$v3typ</option>";
                       }
        $work_xtyp .=  "</select>"; 

        $work_xvort =  '<select name="xvort:=">';
                       get "Id==* sort=v2ortgesamt,v2ort", "bgvort";
                       while (get_next("bgvort"))
                       {
        $work_xvort .= "<option value=\"$v2ortgesamt|$v2vort|$v2vort2\">$v2ortgesamt $v2vort $v2vort2</option>";
                       }
        $work_xvort .= "</select>"; 

        $work_xvera = '<select name="xvera:="><loop db=bgvver sort=v4name><option value=\"$v4name\">$v4name</option></loop></select>';
 
        #---------- Ausgabe Erfassungs-Formular ---------#
        out <<EOF;

        <form action="baseportal.pl?htx=/gpark/bg/bgtestad&cmd=add" method="post" enctype="multipart/form-data">
        <input type=hidden name="htx=" value="/gpark/bg/bgtestad">
        <input type=hidden name="cmd=" value="add">
        <tr><td valign=top><table>
           <tr><td class=black align=right>Beginn (Datum/Uhrzeit) :</td><td><input type="text"  name="xdatumvon:=" size=40 value=""></td></tr>
           <tr><td class=black align=right>Ende (Datum/Uhrzeit) :</td><td><input type="text"  name="xdatumbis:=" size=40 value=""></td></tr>
           <tr><td class=black align=right>Bezeichnung :</td><td><input type="text"  name="xbez:=" size=40 value=""></td></tr>

           <tr><td class=black align=right>Bezeichnung 2 :</td><td><input type="text"  name="xbez2:=" size=40 value=""></td></tr>
           <tr><td class=black align=right>Veranstaltungs-Typ :</td><td>$work_xtyp</td></tr>
           <tr><td class=black align=right>Veranstaltungs-Ort :</td><td>$work_xvort</td></tr>
           <tr><td class=black align=right>Veranstalter :      </td><td>$work_xvera</td></tr>
        
           </table>
        </td></tr>
        <tr><td align=center colspan=2><br><input type=submit value="Eingabe senden">&nbsp;<input type=reset value="Eingabe löschen"><br>&nbsp;</td></tr>
        </form>
EOF
        #---------- Ende Änderungs-Formular -------------#
        </perl>

<!----bis hier Routine DATEN ERFASSEN-------------------->
<a class=link3 href="javascript:history.back()">[Zurück]</a>
<a class=link3 href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/gpark/bg/bgtestsu>[Suchen]</a>