$errmsg = "
Field 'Password' must be filled in.
\n" ;if ($Password eq "") {
$message = $message.$errmsg ;
$found_err = 1 ; }
if ($found_err) {
&PrintError; }
$DSN = "DBI:mysql:database=Meet_A_Geek";
$message = "Invalid Log In - Try Again";
my $dbh = DBI->connect($DSN, $Username, $Password)
or &PrintError);
$dbh->disconnect;
print "Content-type: text/html\n\n";
print "\n" ;
print "\n" ;
print "
\n" ;print "
print "<meta name="Microsoft Theme";
print "content="blank 011, default">'."\n" ;
print "\n" ;
print "\n" ;
print '<body background="_themes/blank/blbkgnd.gif"';
print 'bgcolor="#FFFFFF" text="#000000" link="#999999" vlink="#990000"';
print 'alink="#666666">';