hi i have prob solve it plz

[mahajanrahuld]

hi i written the script for database connectivity with ms access , connection is proper but the script can not display any reslut on browser .....

code is .....

#!usr/bin/perl
 
use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';
 
$table = "emptable";
$conn = Win32::OLE->new("ADODB.Connection");
$rs = Win32::OLE ->new("ADODB.Recordset");
$conn->Open("emptable");
 
print "Content-type:text/html \n\n";
 
print "<div align = center> <font face = verdana color=#333399 size = 5> Address Book </font><br><br>";
print "<table bgcolor =lightyellow><tr><th width=150 align = left>First Name</th>";
print "<th width = 150 align= left>Last Name</th><th width=150 align=left>Address</th></tr>";
 
$sql = "select firstname,lastname, address from $table";
$rs->Open($sql,$conn,1,1);
while(! $rs->EOF)
{
    $firstname = $rs->Fields('firstname')->value;
    $lastname = $rs->Fields('lastname')->value;
    $address = $rs->Fields('Address')->value;
    print "<tr><td>$firstname</td><td>$lastname</td><td>$Address</td></tr>";
    $rs->MoveNext;
}
 
print "</table></div>";
 
$rs->Close;
$conn->Close;
 

plz help me for solving my problem

[kershell]

hi i written the script for database connectivity with ms access , connection is proper but the script can not display any reslut on browser .....

code is .....

#!usr/bin/perl
 
use Win32::OLE;
use Win32::OLE::Const 'Microsoft ActiveX Data Objects';
 
$table = "emptable";
$conn = Win32::OLE->new("ADODB.Connection");
$rs = Win32::OLE ->new("ADODB.Recordset");
$conn->Open("emptable");
 
print "Content-type:text/html \n\n";
 
print "<div align = center> <font face = verdana color=#333399 size = 5> Address Book </font><br><br>";
print "<table bgcolor =lightyellow><tr><th width=150 align = left>First Name</th>";
print "<th width = 150 align= left>Last Name</th><th width=150 align=left>Address</th></tr>";
 
$sql = "select firstname,lastname, address from $table";
$rs->Open($sql,$conn,1,1);
while(! $rs->EOF)
{
    $firstname = $rs->Fields('firstname')->value;
    $lastname = $rs->Fields('lastname')->value;
    $address = $rs->Fields('Address')->value;
    print "<tr><td>$firstname</td><td>$lastname</td><td>$Address</td></tr>";
    $rs->MoveNext;
}
 
print "</table></div>";
 
$rs->Close;
$conn->Close;
 

plz help me for solving my problem

Presumably the scripts compiles and runs from the command line. Make sure of that. And, In this line

print "Content-type:text/html \n\n";

delete the space between html and \n\n.