sub get_page_content {
	my $type = shift;

	my $dbh = DB_File::connect();
	$sth = $dbh->prepare (qq{ SELECT `name`,`value` FROM `page_variables` WHERE `type` = ? });
	$sth->execute($type);
	my %temp_vars; # WILL THIS KILL THE REST OF THE VALUES?
	while(my ($db_name,$db_content) = $sth->fetchrow_array()) {
		$temp_vars{$db_name} = $db_content;
	}
	$sth->finish();

return(%temp_vars);
}