nicht angemeldet
Hallo,
Mein Problem :
ich soll eine Access Datenbank mit Hilfe von einem Perl Script über ODBC auslesen, und sie dann
komplett als HTML an den Browser zurückgeben.
Das ganze läuft auf einem NT 4.0 Server mit IIS4.
Hier mein bisherieges Script, mein Fehler müßte glaube ich in irgendeiner Schleife liegen???
#!/perl/bin/perl.exe
$os = "WINDOWS";
use Win32::ODBC;
$DSN="stamm";
if(!($db=new Win32::ODBC($DSN)))
{
print "Error:" . Win32::ODBC::Error(). "<br>";
}
else
{
$sql_string = "SELECT * FROM Stellenplan";
$db->Sql($sql_string);
if ($db->Sql($sql_string))
{
@FelderNamen = $db->FieldNames();
$spalten = @FelderNamen;
print "<html>";
print "<head>";
print "</head>";
print "<body>";
print "<table border=1 cellspacing=0>";
print "<tr>";
for (@FelderNamen){
print "<th>", $_ , "</th>";
}
print "</tr>";
while ($db->FetchRow())
{
print "<tr>";
undef %Data;
%Data = $db->DataHash();
$rows++;
for ($i = 0; $i < $spalten; $i++)
{
if ($Data{$FelderNamen[$i]} gt '')
{
print "<td>", $Data{$FelderNamen[$i]}, "</td></tr>";
}
else
{
print "<td>Nicht Angegeben</td>";
}
print "</tr>";
}
}
$db->Close();
print "</table>";
print "</body>";
print "</html>";
}
else
{
print "Fehler im SQL Statement";
}
}