Microsoft Word - Sam's Teach Yourself MySQL in 21 Days - SAMS.doc

$Build = "AND C.Eye_Color ='$Eyes' ";

if ($Eyes){

$SQl = $SQl.$Build;}

$Build = "AND C.Smoke ='$Smoke' ";

$SQL = $SQL.$Build;

$Build = "AND C.Race = '$Race' ";

if ($Race){

$SQl = $SQl.$Build;}

$Build = "AND A.Ad_Text LIKE '%$Phrase%' "'

if ($Phrase){

$SQL = $SQl.$Build;}

##Connect to the database

$DSN = "DSN:mysql:database=Meet_A_Geek";

$message = "Error Connecting to Database";

my $dbh = DBI->connect($DSN, $Username, $Password)

or &PrintError;

my $sth = $dbh->prepare($SQL);

$sth->execute();

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

print "\n" ;

print "\n" ;

print "\n" ;