File size: 3.47Kb
<?
// ////// // // // //
// // // // ///// /////
///// \\ // // // // // // // // // // // //
// // \\ // // // // // // // // // ////// // //
// // \\ // // // // // // // // // // // //
///// \// ////// // // // // // ///// // //
// /////
//
/////////////////////////// [email protected] ///////////////////////////////
Error_Reporting(E_ALL & ~E_NOTICE); /////////////// игнорируем ошибки
header("Content-type:text/vnd.wap.wml;charset=utf-8"); //////// тип и кодировка документа
//////////////////////////////////////////////////////////////////////////
$gl="http://da1.hoha.ru/index.wml"; /////////// ссылка на главную
$zag="Dionisij"; /////////// Загаловок
//////////////////////////////////////////////////////////////////////////
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"<a href=\"profil.php?mest=otvet&razd=$razd&prazd=$prazd&tem=$tem&nmes=$nmes&log=$log&par=$par\">[$log]</a>";} else {print"<a href=\"vxod.php?mest=otvet&razd=$razd&prazd=$prazd&tem=$tem&nmes=$nmes\">[Войти]</a>";}
print"<br/>__________<br/><a href=\"$gl\">На главную</a><br/>";
print "</p></card></wml>";
?>