#!/usr/bin/perl -w use strict; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use DBI; my $DBH; my $STH; my $CGI; my $Antwort; my $Kundennummer = param("Kundennummer"); $DBH = DBI->connect('DBI:ODBC:esa2a') or die "Konnte keine Verbindung zur Datenbank herstellen:$!"; $STH = $DBH->prepare("SELECT * FROM Kunden") or die "Konnte SQL-Statement nicht bereitstellen:$!"; $$STH-> execute() or die "Ausfuehren nicht moeglich:$!"; if (($STH->rows != 0){ print < Suchergebnis

Suchergebnis

HERE_TEXT1 my @data; while (@data = $STH->fetchrow_array()) { my $Kundennummer = $data[0]; my $Name = $data[1]; my $Adresse = $data[2]; my $Telefonnummer = $data[3]; print qq§\n\n\n\n; } print qq§
Kundennummer: Name: Adresse: Telefonnummer:
$Kundennummer$Name$Adresse$Telefonnummer
\n

Neue Suche!

\n
\n } else { print < Suchergebnis

Leider brachte die Suche nach '$Kundennummer' keine Ergebnisse!

Neue Suche!

HERE_TEXT2 } $STH->finish(); $DBH->disconnect();