#!/usr/bin/perl -w use strict; use DBI; use DBD::mysql; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard); my $dbh = DBI->connect("DBI:mysql:x", "x", "x", {RaiseError => 1}); my $sth = $dbh->prepare("SELECT * FROM gastbuch ORDER BY gastID DESC"); $sth->execute(); print < Gästebuch HERE_HEADER while (my @row = $sth->fetchrow_array() ) { my $name = $row[0]; my $email = $row[1]; my $homepage = $row[2]; my $comment = $row[3]; print <

Gästebuch

Name: $name
E-Mail: $email
Homepage: $homepage
Kommentar:

$comment

HERE_HTML } print < HERE_FOOTER warn($DBI::errstr) if $DBI::err; $sth->finish(); $dbh->disconnect();