File size: 1.67Kb
<?
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>";
$text = @file("profil/$log.prof");
if ($text!=""){
$udata = explode(":||:",$text[0]);
$provpar=trim($udata[1]);}
if($par!=$provpar) {$log="";}
if($log=="") {print"ваше имя:
<br/>
<input name=\"name\" value=\"$k\"/><br/>";}
print"сообщение:
<br/>
<input name=\"mess\" value=\"$k\"/><br/>
транслит:
<select name=\"tr\" title=\"tr\">
<option value=\"1\">нет</option>
<option value=\"5\">да</option>
</select><br/>
<anchor title=\"ok\">отправить
<go href=\"add.php?razd=$razd&prazd=$prazd&tem=$tem&log=$log&par=$par\" method=\"post\">
<postfield name=\"name\" value=\"$(name)\"/>
<postfield name=\"mess\" value=\"$(mess)\"/>
<postfield name=\"tr\" value=\"$(tr)\"/>
</go>
</anchor>";
print "
<br/>---<br/>";
if($log!="") {print"
<img src=\"st/67.gif\" alt =\"+\"/>
<a href=\"profil.php?mest=index&log=$log&par=$par\"><font color=\"blue\">[$log]</font></a>";} else {print"
<img src=\"st/48.gif\" alt =\"+\"/>
<a href=\"vxod.php?mest=index\"><font color=\"blue\">[$sktext[1]]</font></a>";}
print"";
print "</p></card></wml>";
?>