Ответ

ERnest 23.08.2008 15:37

были неэкранированные точки с запятой, но все поправил. Не помогло...
gbook.p

@CLASS 
gbook 

@load[] 
^MAIN:dbconnect{ 
   $messages[^table::sql{select author, email, date, body from gbook}] 
} 

@show_messages[] 
^if($messages){ 
   ^messages.menu{ 
      <table width="100%"> 
         <tr> 
         <td align="left"><b>$messages.author 
            ^if(def $messages.email){ 
               $messages.email 
            }{ 
               Нет электронного адреса 
            }</b> 
         </td> 
         <td align="right">$messages.date</td> 
         </tr> 
      </table> 
      <table width="100%"> 
      <tr> 
         <td>$messages.body</td> 
      </tr> 
      </table> 
   }[<table width="100%" border="0" bgcolor="000000" cellspacing="0">  
        <tr><td>&nbsp^;</td></tr> 
   </table>] 
}{ 
   Гостевая книга пуста. 
} 

@show_form[] 
<hr /> 
<br /> 
$date[^date::now[]] 
<center> 
<form method="POST"> 
<p> 
Author<sup>*</sup><input name="author" /><br /> 
E-mail<input name="email" /><br /> 
Text<br /><textarea cols="50" name="text" rows="5"></textarea> 
</p> 
<p> 
<input type="submit" value="Send" name="post" />
<input type="reset" value="Cancel" /> 
</p> 
</form> 
</center> 

@test_and_post_message[] 
^if(def $form:post){ 
   ^if(def $form:author){ 
      ^MAIN:dbconnect{ 
         ^void:sql{insert into gbook 
            (author, email, date, body) 
         values ( 
            '$form:author', 
            '$form:email', 
            '${date.year}-${date.month}-${date.day}', 
            '$form:text' 
         )} 
      } 
      $response:location[$request:uri] 
   }{ 
      <center>Поле автор обязательно для заполнения</center> 
   } 
} 

gbook.html

@USE 
/classes/gbook.p 

@page_title[]
Test - main page 

@body_main[] 
Гостевая книга тестового сайта<br /> 
<hr /> 

$gb[^gbook::load[]] 
^gb.show_messages[] 

---