1
Although I have written some perl ,I have obviously missed something. I have created a database for my local tennis club, which can be updated etc etc. I thought it would be a good idea to for members to view details on line, for contact purposes (more likely to get a team out). So I wrote the code (below). The first record of the database is nicely viewed in the table.However, all other records appear as just one long line of data, outside the table. I am missing something here, and having spent all week trying to correct but to no avail getting totally frustrated. The data is in the hash %name, I need to split this up somehow. Any ideas please.
#!C:/perl/bin/perl
require "formparser.lib ";
&parseform;
%members=("exis ting","membersh ip");
use Win32::ODBC;
$DSN = "Tennis";
my$Database = Win32::ODBC->new($DSN);
if (! $Database){
print "Failed to connect $DSN\n";
Win32::ODBC::Du mpError();
die;
}
$SQL = "Select name,membership _cat,standard,t eam From $members{existi ng}";
if ($Database->Sql($SQL)){
print "Error getting existing info for $members{existi ng}\n";
$Database->DumpError();
}
print "Content-type: text/html\n\n";
print "<HTML><HEAD>\n <TITLE>";
print "Here are all current members";
print "</TITLE>\n</HEAD><BODY>\n";
print "Here are all current members";
print "<table border=1 cellpadding=5>" ;
print "<tr><th align=left>Name <th align=left>Memb ership Category <th align=left>Stan dard <th align left>Team </tr>\n";
while($Database->FetchRow()){
%name = $Database->DataHash;
print "<tr><td>$name{ name}<td>$name{ membership_cat} <td>$name{stand ard}<td>$name{t eam}</tr>\n";
print "</table>";
print "</BODY></HTML>";
}
