File size: 856B
<?
header("Content-type:text/vnd.wap.wml;charset=utf-8");
print "
<?xml version=\"1.0\" encoding = \"UTF-8\"?>
<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">
<wml><head><meta http-equiv=\"Cache-Control\" content=\"no-cache\" forua=\"true\"/></head>
<card id=\"Main\" title=\"Добавление сайта\">
<p align=\"center\">
<small>
<br/>
<br/>
<br/>";
$beg = @implode("",@file("nom.txt"));
$beg = trim($beg);
$end = $beg-4;
while ($end<=$beg){
$user=@file("$beg.txt");
$user1=explode("=--=", $user[0]);
if (empty($user)){}
else {
$site=trim($user1[0]);
$about=trim($user1[1]);
print "<b><a href=\"$site\">$about</a></b><br/><br/>";};
$beg=$beg-1; };
print "
<a href=\"add.wml\">Добавить сайт</a>
</small>
</p>
</card>
</wml>";
?>