:";
firstpart($reportF,$err);
} else {
if($err == "start" || $err == "false"){
//no error in data validation
if (!$conn = new COM("ADODB.Connection")) {
exit("Unable to create an ADODB connection
");
}
//end connection if
$strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" . realpath("r.mdb");
$conn->open($strConn);
$strSQL = "INSERT INTO reqs(username,first,mi,last,yog,contact,quest,answer,password,degree,add,city,state,zip) VALUES ('$user','$first', '$mi', '$last', '$yog', '$contact','$quest', '$answer','$pass','$contact','$add','$city','$state','$zip')";
$rs = $conn->execute($strSQL);
if((!$rs) || ($last == "Logging_Check")) {
//check for errors on the insert
print "There were errors with your request. They have been logged for admins
";
$temp= date("Ymdhis", mktime());
$filename = "$temp.txt";
//start of dump the variables to a file
ob_start();
var_dump($GLOBALS);
$output = ob_get_contents();
ob_end_clean();
if (!$handle = fopen($filename, 'w')) {
print "Cannot open file ($filename)";
exit;
}
if (!fwrite($handle, $output)) {
print "Cannot write to file ($filename)";
exit;
}
fclose($handle);
print "Please email bogus@cs.edu with your desired username, first, middle and last name so the account may be create manually.
Sorry for any inconvience.";
print "";
mail("mike@nmu.edu", "Account Request had errors for $first $mi $last", "An Account Request for $user has had errors from $first $mi $last Check error log for $temp.txt.","From: here@here.nmu.edu\r\n");
} else{
print "Your request has been put in queue\n";
print "The values are username:$user
";
print "Name: $first $mi $last\n
";
print "Password (case sensitive!) $pass
\n";
print "Date of Graduation: $yog\n
";
print "Password hint question: $quest
\n";
print "Password hint answer: $answer\n
";
print "Contact Email Address $contact
\n";
print "Degree: $contact
\n";
print "Address: $add
\n";
print "City: $city
\n";
print "State: $state
\n";
print "Zip: $zip
\n";
print "
\n";
print "You will receive an email when your account has been approved.\n
";
//clean up DB stuff
$conn->Close();
$rs = null;
$conn = null;
//let them know the account is waiting to be created.
mail("here@here.nmu.edu", "Account Request for $first $mi $last", "An Account Request for $user has been submitted from $first $mi $last.","From: here@here.nmu.edu\r\n");
}
}
}//end check for errors if statement
}//end program
if($rs != null){
$conn->Close();
$rs = null;
$conn = null;
}
?>