#!/usr/bin/perl require 'eingabe.cgi'; %dat = &auf(&lesen); use DBI; $dbh = DBI->connect("DBI:mysql:Todesanzeigen:localhost","wehrmann","kaktus"); $statement = "SELECT n,b1,b2,b3,bestatterhp FROM verbande2b WHERE subid=$dat{'id'}"; $sth = $dbh->prepare($statement); $succes = $sth->execute(); ($name,$b1,$b2,$b3,$hp) = $sth->fetchrow_array; $sth->finish; $dbh->disconnect; $b1 =~ s/\n/\/g; $b2 =~ s/\n/\/g; $b3 =~ s/\n/\/g; print "Content-type: text/html\n\n"; print < Todesanzeigen.de

$b1

$name

$b2

$b3

ENDE } print '
Kondolenzliste zurück ENDE if ($hp) { print <Homepage des Verbandes

'; #EOF