File size: 1.54Kb
<?
Error_Reporting(E_ALL & ~E_NOTICE);
header("Content-type:text/vnd.wap.wml;charset=utf-8");
include 'config.php';
print "<?xml version=\"1.0\" encoding=\"utf-8\"?>
<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\" \"http://www.wapforum.org/DTD/wml12.dtd\">
<wml><card id=\"mas\" title=\"$zag\"><p>";
$mes = @implode("",@file("rek/$razd.prazd")); ///// открываем счетчик с количеством тем
if ($nrazd=="") {$nrazd=1;}
$nf=1;
while($nf <= 15)
{ $naz = @implode("",@file("rek/$razd=$nrazd.tp"));
$naz=trim($naz);
if($naz!=""){print"
<img src=\"st/46.gif\" alt =\"+\"/>
<a href=\"tem.php?prazd=$nrazd&log=$log&par=$par&razd=$razd\"><font color=\"blue\">$naz</font></a><br/>"; $nf=$nf+1;}
$nrazd=$nrazd+1;
if($nrazd>$mes) {$nf=20;}
};
if($nrazd<$mess) {print"<a href=\"prazd.php?razd=$razd&log=$log&par=$par\"><font color=\"blue\">[$sktext[13]]</font></a><br/>";}
$privat = @implode("",@file("profil/$log.shp"));
$privat=trim($privat);
print "<br/>---<br/>";
if($log!="") {print"
<img src=\"st/67.gif\" alt =\"+\"/>
<a href=\"profil.php?mest=prazd&razd=$razd&log=$log&par=$par\"><font color=\"blue\">[$log]</font></a>";} else {print"
<img src=\"st/48.gif\" alt =\"+\"/>
<a href=\"vxod.php?mest=prazd&razd=$razd\"><font color=\"blue\">[$sktext[1]]</font></a>";}
print"<br/>---<br/>
<img src=\"st/44.gif\" alt =\"+\"/>
<a href=\"index.php?log=$log&par=$par\"><font color=\"blue\">[$sktext[12]]</font></a>";
print "</p></card></wml>";
?>