View file katalog.php

<?




Error_Reporting(E_ALL & ~E_NOTICE);          /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8");      //////// тип и кодировка документа


//////////////////////////////////////////////////////////////////////////

$gl="http://azwap.biz";        /////////// ссылка на главную
$zag="AzWaP.BiZ";                                               /////////// Загаловок

//////////////////////////////////////////////////////////////////////////








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>";
///////////// выводим вмл заголовок


$vsego = @implode("",@file("rekord/$op.dat")); ///// окрываем счетчик деректории
///////если он равен нулю, говорим мол: нету здесь ничего:
if($vsego<=0){print"В этой категории пока нет ни одного сайта.<br/>";}
if($nach=="") {$nach=1;} /////////определяем начальную позицию

$i=1;
while($i <= 10)
{$text = @implode("",@file("rekord/$nach=$op.dion"));
$text=trim($text);
$nach=$nach+1;
if($text!="") {print "$text";
$i=$i+1; }
if($nach>$vsego) {$i=12;}
};		/////выводи ссылки и описания сайтов


if($nach < $vsego) {print"<a href=\"katalog.php?op=$op&amp;nach=$nach\">Next>></a><br/>";}



/////////выводим ссылки на главную и тд:
print "
<a href=\"index.php\">Каталог</a><br/>
<a href=\"$gl\">На главную</a><br/>
</p></card></wml>";

?>