my $type = shift;
	my $dbh = DB_File::connect();
	$sth = $dbh->prepare (qq{ SELECT name,content FROM page_vars WHERE type = ? });
	$sth->execute($type);
	my %vars;
	while (my ($db_name,$db_content) = $sth->fetchrow_hashref()) {
		$vars{$db_name} = $db_content;
	}
	$sth->finish();
	return(%vars);