while(my ($db_name,$content,$_add_name) = $sth->fetchrow_array()) {
	s/\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/ eval ($1) /ge;
	s/{{([a-zA-Z0-9\{\'\}_]+)}}/ eval ($1) /ge;
	$_content = $_;
	if ($_add_name) {
		$_content = qq~<!--Start $db_name-->$_content<!--End $db_name-->~;
	}
	$temp_vars{$db_name} = $_content;
}