print "<font size=5><p align=center>Gruppe $paar</p></font>\n";
	$sql = "SELECT id FROM Gruppe".$gruppe.";";
	$exe = $dbh->prepare($sql);
	$exe->execute() or die $!;
	while(@outer = $exe->fetchrow_array)
	{
		push (@id, $outer[0]);
	}
	$exe->finish;
	
	foreach $id (@id)
	{
		my $gewonnen = 0;
		my $verloren = 0;
		my $eigen = 0;
		my $gegen = 0;
		
		$innersql = "SELECT spieler1, sperg1, spieler2, sperg2, hdv FROM Gruppe$gruppe, Paarungen$gruppe WHERE Gruppe$gruppe.id = $id AND (hdv = spieler1 or hdv = spieler2);";
		$exe = $dbh->prepare($innersql);
		$exe->execute() or die $! ."::$dbh->errstr: Name = $n Gruppe $gruppe $innersql";
		while(@inner = $exe->fetchrow_array)
		{
			$s1 = latin1($inner[0]);
			$s2 = latin1($inner[2]);
			$n = latin1($inner[4]);
			
			if($n eq $s1)
			{
				$gewonnen++ if($inner[1] == 2);
				$verloren++ if($inner[3] == 2);
				$eigen = $eigen + $inner[1];
				$gegen = $gegen + $inner[3];
			}
			
			if($n eq $s2)
			{
				$gewonnen++ if($inner[3] == 2);
				$verloren++ if($inner[1] == 2);
				$eigen = $eigen + $inner[3];
				$gegen = $gegen + $inner[1];
			}
		}
		$exe->finish;
		print "$n: Gewonnen: $gewonnen Verloren: $verloren Legs: $eigen:$gegen<br>\n";
	}