sub anzeigen
{
my ($dbh, $sth, $ref, $anz);
    $dbh = WebDB::connect();

$sth = $dbh->prepare ("SELECT ArtID, Reihenfolge, ArtNr, ArtGruppe, ArtNGruppe, ArtTitel, ArtText, ArtPreis, ArtMWSt, ArtRabatt, ArtEigenschaften, ArtBildklein, ArtBildgross FROM shop1_artikel_1 Where ArtID = 33");
$sth->execute ();
while (my $ref = $sth->fetchrow_hashref ())

print start_form (-action => url ()),
        table (
            Tr (
                td ("ArtNr:"),
                td (textfield (-name => "name",
                               -size => 15))
            ),
            Tr (
                td ("ArtGruppe"),
                td (textfield (-name => "name",
                               -size => 5))
            ),
            Tr (
                td ("ArtNGruppe"),
                td (textfield (-name => "name",
                               -size => 5))
            ),
            Tr (
                td ("ArtTitel:"),
                td (textfield (-name => "name",
                               -size => 60))
            ),
             Tr (
                td ("ArtText:"),
                td (textarea (-name => "name",
                               -cols => 60, -rows => 4))
            ),
            Tr (
                td ("ArtPreis:"),
                td (textfield (-name => "name",
                               -size => 15))
            ),
            Tr (
                td ("ArtMWSt:"),
                td (textfield (-name => "name",
                               -size => 15))
            ),
            Tr (
                td ("ArtRabatt:"),
                td (textfield (-name => "name",
                               -size => 15))
            ),
            Tr (
                td ("ArtEigenschaften:"),
                td (textfield (-name => "name",
                               -size => 15))
            ),
           Tr (
                td ("ArtBildklein:"),
                td (textfield (-name => "name",
                               -size => 25))
            ),
            Tr (
                td ("ArtBildgross:"),
                td (textfield (-name => "name",
                               -size => 25))
            ),
        ),
        br (),
       submit (-name => "aktion", -value => "Absenden"),
        " ",
      submit (-name => "aktion", -value => "Löschen"),
              end_form ();
print p hr();
}