# Prepare and execute the SQL query
            $sth = $dbh->prepare($stmt) 
            || die "prepare: $stmt: $DBI::errstr";
            $sth->execute($office) || die <br/>"execute: $stmt: $DBI::
+errstr";
            $sth->bind(undef,/$num);
            $sth->fetchrow();

print start_html;
    if ($num){        #if a match has been found
            $message= "The office of ".$office." is already listed.<br
+>";            
            $url = "http://stgeorges.com/admin/addoffice.html?office=$
+office&msg=$message";<br/>
            $q =>print "<meta http-equiv='refresh' content='0;URL=$url
+'>";
        }
        else{
# Create the query statement - Insert the new office into the database
            $stmt = "INSERT into officers (off_name) values (?)";
# Prepare and execute the SQL query
            $sth = $dbh->prepare($stmt) || die "prepare: $stmt: $DBI::
+errstr";
            $sth->execute($office) || die "execute: $stmt: $DBI::errst
+r";
            $sth->fetchrow();
        }
print end_html;
[download]