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 ()){
my %hash = %{$ref};
print start_form (-action => url ()),
        table (
            Tr (
                td ("ArtNr:"),
                td (textfield (-name => "name",
                               -size => 15,
                               -value => $hash{'ArtNr'}))
            ),
            Tr (
                td ("ArtGruppe"),
                td (textfield (-name => "name",
                               -size => 5,
                               -value => $hash{'ArtGruppe'}))
            ),
            Tr (
                td ("ArtNGruppe"),
                td (textfield (-name => "name",
                               -size => 5,
                               -value => $hash{'ArtNGruppe'}))
            ),
            Tr (
                td ("ArtTitel:"),
                td (textfield (-name => "name",
                               -size => 60,
                               -value => $hash{'ArtTitel'}))
            ),
             Tr (
                td ("ArtText:"),
                td (textarea (-name => "name",
                               -cols => 60, -rows => 4,
                               -value => $hash{'ArtText'}))
            ),
            Tr (
                td ("ArtPreis:"),
                td (textfield (-name => "name",
                               -size => 15,
                               -value => $hash{'ArtPreis'}))
            ),
            Tr (
                td ("ArtMWSt:"),
                td (textfield (-name => "name",
                               -size => 15,
                               -value => $hash{'ArtMWSt'}))
            ),
            Tr (
                td ("ArtRabatt:"),
                td (textfield (-name => "name",
                               -size => 15,
                               -value => $hash{'ArtRabatt'}))
            ),
            Tr (
                td ("ArtEigenschaften:"),
                td (textfield (-name => "name",
                               -size => 15,
                               -value => $hash{'ArtEigenschaften'}))
            ),
           Tr (
                td ("ArtBildklein:"),
                td (textfield (-name => "name",
                               -size => 25,
                               -value => $hash{'ArtBildklein'}))
            ),
            Tr (
                td ("ArtBildgross:"),
                td (textfield (-name => "name",
                               -size => 25,
                               -value => $hash{'ArtBildgross'}))
            ),
        ),
        br (),
       submit (-name => "aktion", -value => "Absenden"),
        " ",
      submit (-name => "aktion", -value => "Löschen"),
              end_form ();
print p hr();
}