sub Get_Page_Vars {
	my ($temp_vars,$type) = @_;

	my $sth = $dbh->prepare (qq{ SELECT `name`,`value`,`add_name` FROM `page_vars` WHERE `type` = ? OR `type2` = ? ORDER BY add_name,id,d});
	$sth->execute($type,$type);
	while(my ($db_name,$content,$_add_name) = $sth->fetchrow_array()) {
		if($content =~ /(\$[a-zA-Z0-9\{\'\}_]+)/) {
			$content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/eval($temp_vars{$1})/ge;
			$content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/$temp_vars{eval($1)}/ge;
			$content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/eval($vars{$1})/ge;
			$content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/$vars{eval($1)}/ge;
			$content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/eval($1)/ge;
		}
		if($content =~ /\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/) {
			$content =~ s/\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/eval($vars{$1})/ge;
			$content =~ s/\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/$vars{eval($1)}/ge;
			$content =~ s/\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/eval($temp_vars{$1})/ge;
			$content =~ s/\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/$temp_vars{eval($1)}/ge;
			$content =~ s/\<templ_var ([a-zA-Z0-9\{\'\}_]+)\>/eval($1)/ge;
		}
		if($content =~ /{{([a-zA-Z0-9\{\'\}_]+)}}/) {
			$content =~ s/{{([a-zA-Z0-9\{\'\}_]+)}}/eval($vars{$1})/ge;
			$content =~ s/{{([a-zA-Z0-9\{\'\}_]+)}}/$vars{eval($1)}/ge;
		}
		$content =~ s|<br>|<br />|g;
		if ($content && ($content =~ /<code>/i && $content =~ /<\/code>/i)) {
			while($content =~ /<code>/i && $content =~ /<\/code>/i) {
				my ($code1,$code2,$_do_code);
				($content,$code1) = split /<code>/, $content, 2;
				($code2,$ocontent) = split /<\/code>/, $code1, 2;
				$_do_code = eval($code2);
				$content = $content . $_do_code . $ocontent;
			}
		}
		if ($content && ($content =~ /<syscode>/i && $content =~ /<\/syscode>/i)) {
			while($content =~ /<syscode>/i && $content =~ /<\/syscode>/i) {
				my ($syscode1,$syscode2);
				($content,$syscode1) = split /<syscode>/i, $content, 2;
				($syscode2,$ocontent) = split /<\/syscode>/i, $syscode1, 2;
				eval{$syscode2};
				$content = $content . $ocontent;
			}
		}
		if ($_add_name) {
			$content = qq~<!--Start $db_name-->$content<!--End $db_name-->~;
		}
		$temp_vars{$db_name} = $content;
	}
	$sth->finish();

return(%temp_vars);
}