<a
                                                         href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/artikelbastler/artikelzfeedausw&artikelId=$Id><font
                                                         size="-2">
                                                         <i>-&#62feedback</i></font></a>
                                                         --------------------------------------------------
                                                         seite 2 (artikelzfeedausw)
                                                         <perl>

                                                         get "Id==$artikelId", "test";
                                                         get "sepp==$artikel","artikelzfeed";
                                                         if ($_amount_query>0)
                                                         {
                                                         while(get_next("artikelzfeed"))
                                                         { 
                                                         out "";
                                                         $gesamt = $gesamt+$note; 
                                                         }
                                                         $schnitt = $gesamt/$_amount_query; 
                                                         $schnitt=substr($schnitt,0,3); 
                                                         out "Der artikel <b>$sepp</b> wurde<b> $_amount_query </b>mal bewertet und durchschnittlich

                                                         "; 
                                                         }
                                                         else # wenn $_amount_query = 0 ist
                                                         {
                                                         out "<b>$artikel</b> wurde noch nicht bewertet";
                                                         }
                                                         </perl>

                                                         <form action="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/artikelbastler/artikelzfeed&cmd=add"

                                                         <input type="hidden" name="cmd=" value="add">
                                                         <input type="hidden" name="htx=" value="/artikelbastler/artikelzfeed">

                                                         <div align="center">

                                                         deine email:<input type="text" name="email:=">
                                                         <input type="hidden" name="zugriff:=" value="jetzt">
                                                         bewertung von artikel:
                                                         <select name="sepp:=">
                                                         <perl>
                                                         get "Id==*", "test";
                                                         while(get_next("test"))
                                                         {
                                                         if ($Id==$artikelId)
                                                         {
                                                         out "<option selected>$artikel";
                                                         } else
                                                         {
                                                         out "<option>$artikel";
                                                         }
                                                         }
                                                         </perl>
                                                         </select>

                                                         <select name="note:=">

                                                         <loop db=test2>
                                                         <option>$note
                                                         </loop>
                                                         </select>
                                                         anmerkungen:
                                                         <textarea name="anmerkung:=" cols=21 rows=4></textarea>
                                                         <input type="submit" value="abschicken"> 
                                                         </form>
                                                         <perl>
                                                         out "<table>";
                                                         get "Id==$artikelId", "test";
                                                         get "sepp==$artikel","artikelzfeed";
                                                         while(get_next("artikelzfeed"))
                                                         { 
                                                         out <<EOF;

                                                         <table BORDER="0" CELLSPACING=0 CELLPADDING=0 WIDTH="99%">
                                                         <TR><TD WIDTH="73%" VALIGN="TOP" bgcolor="gray">
                                                         <FONT SIZE=-2 color="red"><P><b><a href="mailto:$email">$name</a></b> </font> <font size="-2"

                                                         <TD WIDTH="27%" bgcolor=#990000>
                                                         <FONT SIZE=-2><align="left"><i>anmerkung:
                                                         $anmerkung</font></i></TD>
                                                         </TR></TR></TABLE>
                                                         EOF
                                                         }
                                                         out "</table>";

                                                         </perl>
                                                         <i>
                                                         </i>
                                                         -----------------------------------------------

                                                         <perl>
                                                         if (%_put)

                                                         {
                                                         $_put{date}=jetzt;
                                                         }
                                                         </perl>
                                                         <p><do action=input></p>
                                                         <p>thx for your support!</p>