require "../../inc/base.php";
PageInfo("Selected time series of the Czech economy", // Titulek stránky
"Jirka Kosek", // Autor stránky
"Selected time series of the Czech economy", // Popis
"", // Klíčová slova
"en", // Jazyk stránky
array("cs" => "index.php?ts=$ts&what=$what"), // Alternativní jazyky
"", // Předchozí stránka
"", // Následující stránka
"../index.php" // Stránka s obsahem
);
PageHead();
?>
$conn = @ODBC_Connect("badame", "guest", "");
if (!IsSet($ts) or $ts==""):
echo "
Choose a series to show.
\n";
echo "\n";
echo "\n";
echo "\n";
echo "Time Series |
Description |
Period |
Source | \n";
$res = @ODBC_Exec($conn, "SELECT * FROM ts ORDER BY nazev");
while (ODBC_Fetch_Row($res)):
$id = ODBC_Result($res, "id");
$popis = ODBC_Result($res, "popisen");
echo "\n";
echo "" .
ODBC_Result($res, "nazeven") ." | \n";
echo "$popis | \n";
echo "" . ODBC_Result($res, "periodicitaen") . " | \n";
echo "" . ODBC_Result($res, "zdrojen") . " | \n";
echo " \n";
endwhile;
echo " \n";
echo " |
\n";
echo "
\n";
else:
$ts += 0;
if (!IsSet($what)) $what = "graf";
$dir = "d:\\web\\marek\\ts\\";
$res = @ODBC_Exec($conn, "SELECT * FROM ts WHERE id = $ts");
@ODBC_Fetch_Row($res);
$t = array("graf" => "Graph",
"datapredpoved" => "Forecasted data",
"model" => "Predictive model",
"grafpredpoved" => "Forecast - graph",
"dataexcel" => "Download data");
echo "" . ODBC_Result($res, "nazeven") . "
" .
$t[$what] . "
\n";
$popis = ODBC_Result($res, "popisen");
$bar = "" .
"" . $t["graf"] . " | " .
"" . $t["datapredpoved"] . " | " .
"" . $t["model"] . " | " .
"" . $t["grafpredpoved"] . " | " .
"" . $t["dataexcel"] . " | " .
"Select time series
\n";
echo $bar;
switch ($what):
case "graf":
echo "" .
" . ")
\n";
break;
case "datapredpoved":
$filename = $dir . ODBC_Result($res, "datapredpoved");
$fp = @FOpen($filename, "r");
$d = @FRead($fp, FileSize($filename));
@FClose($fp);
$d = ERegI_Replace("(.*)", "\\1", $d);
echo $d;
break;
case "model":
$filename = $dir . ODBC_Result($res, "model");
$fp = @FOpen($filename, "r");
$d = @FRead($fp, FileSize($filename));
@FClose($fp);
$d = ERegI_Replace("(.*)", "\\1", $d);
echo $d;
break;
case "grafpredpoved":
echo "" .
" . ")
\n";
break;
endswitch;
echo "$popis
\n";
echo $bar;
endif;
?>
PageFoot();
?>