Так не получается! Нужно автоматически добавлять сообщение при нажатии на кнопку ответить!!! вот csp, может поможет понять! ))) :
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<title>Index2</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
a:link {
color: #000000;
}
.style2 {font-size: 20px}
.style1 {color: #FFFFFF}
a:visited {
color: #000000;
}
a:hover {
color: #000000;
}
a:active {
color: #000000;
}
-->
</style>
<TITLE>
<script language="Cache" Runat = "server">
set obj=##class(forum.Topik).%OpenId(%request.Get("TopikID"))
write obj.Topik1
</script>
</TITLE>
</HEAD>
<BODY topmargin="0">
<div class="r"></div>
<div class="headID style2" id="headID" style="width:94%; line-height:30px; padding-top:30px" >
<TABLE border="0" bgcolor="#336799" class="style1" text-color="#FFFFFF"cellspacing="0" style="width:77%">
<tr>
<td align="left" WIDTH="75%" HEIGHT="15px" ><font face="Arial" size="1">
<csp:if condition=($Data(%request.Data("ins")))>
<csp:query name="qrGetNameInstitut" classname="ru.sfu.reference.structure.Institut" queryname="GetNameInstitut" P1=#(%request.Get("ins"))# P2=#(%request.Get("fac"))# P3=#(%request.Get("chair"))#>
<csp:while condition="qrGetNameInstitut.Next()">
#(qrGetNameInstitut.Get("fullName"))#</font>
</csp:while>
<csp:else>
<csp:query name="qrGetUserStudent" classname="ru.sfu.auth.User" queryname="GetUserStudent" P1=#(%request.Get("Us"))# >
<csp:while condition="qrGetUserStudent.Next()">
<csp:if condition=(%request.Get("Us")=qrGetUserStudent.Get("UserName"))>
#(qrGetUserStudent.Get("insName"))#
</csp:if>
</csp:while>
<csp:query name="qrGetUserWorker" classname="ru.sfu.auth.User" queryname="GetUserWorker" P1=#(%request.Get("Us"))# >
<csp:while condition="qrGetUserWorker.Next()">
<csp:if condition=(%request.Get("Us")=qrGetUserWorker.Get("UserName"))>
<font size="1">#(qrGetUserWorker.Get("insName"))#</font></div>
</csp:if>
</csp:while>
</csp:if>
</td>
</tr>
<tr>
<td align="left" WIDTH="75%" HEIGHT="15px"><font face="Arial" size="1">
<csp:if condition=($Data(%request.Data("fac")))>
<csp:query name="qrGetNameFaculty" classname="ru.sfu.reference.structure.Faculty" queryname="GetNameFaculty" P1=#(%request.Get("ins"))# P2=#(%request.Get("fac"))# P3=#(%request.Get("chair"))#>
<csp:while condition="qrGetNameFaculty.Next()">
<font size="1">#(qrGetNameFaculty.Get("fullName"))#</font>
</csp:while>
<csp:else>
<csp:query name="qrGetUserStudent" classname="ru.sfu.auth.User" queryname="GetUserStudent" P1=#(%request.Get("Us"))# >
<csp:while condition="qrGetUserStudent.Next()">
<csp:if condition=(%request.Get("Us")=qrGetUserStudent.Get("UserName"))>
<font size="1">#(qrGetUserStudent.Get("facName"))#</font>
</csp:if>
</csp:while>
<csp:query name="qrGetUserWorker" classname="ru.sfu.auth.User" queryname="GetUserWorker" P1=#(%request.Get("Us"))# >
<csp:while condition="qrGetUserWorker.Next()">
<csp:if condition=(%request.Get("Us")=qrGetUserWorker.Get("UserName"))>
<font size="1">#(qrGetUserWorker.Get("facName"))#</font></div>
</csp:if>
</csp:while>
</csp:if></td>
</tr>
<tr>
<td align="center" WIDTH="77%" HEIGHT="70px">
<csp:if condition=($Data(%request.Data("chair")))>
<csp:query name="qrGetNameChair" classname="ru.sfu.reference.structure.Chair" queryname="GetNameChair" P1=#(%request.Get("ins"))# P2=#(%request.Get("fac"))# P3=#(%request.Get("chair"))#>
<csp:while condition="qrGetNameChair.Next()">
<div align="center" ><font size="5px">Форум Кафедры #(qrGetNameChair.Get("fullName"))#</font></div>
</csp:while>
<csp:else>
<csp:query name="qrGetUserStudent" classname="ru.sfu.auth.User" queryname="GetUserStudent" P1=#(%request.Get("Us"))# >
<csp:while condition="qrGetUserStudent.Next()">
<csp:if condition=(%request.Get("Us")=qrGetUserStudent.Get("UserName"))>
<div align="center" ><font size="5px">Форум Кафедры #(qrGetUserStudent.Get("chairName"))#</font></div>
</csp:if>
</csp:while>
<csp:query name="qrGetUserWorker" classname="ru.sfu.auth.User" queryname="GetUserWorker" P1=#(%request.Get("Us"))# >
<csp:while condition="qrGetUserWorker.Next()">
<csp:if condition=(%request.Get("Us")=qrGetUserWorker.Get("UserName"))>
<div align="center" ><font size="5px">Форум Кафедры #(qrGetUserWorker.Get("chairName"))#</font></div>
</csp:if>
</csp:while>
</csp:if>
</div>
</td>
</tr>
</table></div>
</csp:while>
</csp:if>
</div>
<div class="r" style="height:100"></div>
<div class="r"></div>
<CENTER>
<script language="Cache" Runat = "server">
set obj=##class(forum.Topik).%OpenId(%request.Get("TopikID"))
write "<h3>", obj.Topik1, "</h3>"
</script>
<TABLE border="0" bordercolor="#336799" cellspacing="3" style="width:100%">
<tr>
<td WIDTH="2%" rules="none"></td>
<td align="center" WIDTH="12%" HEIGHT="45" bgcolor="#ADECFA"><font face="Arial"><b>От кого</b></font></td>
<td align="center" WIDTH="70%" bgcolor="#ADECFA"><font face="Arial" ><b>Сообщение</b></font></td>
<td WIDTH="5%">Дата</td>
<td WIDTH="2%" rules="none"></td>
</tr>
<csp:query name="TopMas" classname="forum.Topik" queryname="byTopik">
<csp:while Condition=TopMas.Next()>
<csp:if Condition='%request.Get("TopikID")=TopMas.Get("ID")'>
<tr>
<td WIDTH="2%" rules="none"></td>
<td width="12%" bgcolor="#FFE67D"><font face="Arial" >#(TopMas.Get("UserName"))#</td>
<td WIDTH="70%" bgcolor="#FFE67D"><font face="Arial" >#(TopMas.Get("Massage"))#</td>
<td WIDTH="5%">#(TopMas.Get("SysDate"))#</td>
<td WIDTH="2%" rules="none"></td>
</tr>
</csp:if>
</csp:while>
<csp:query name="Mas" classname="forum.Massage" queryname="byMassage">
<csp:while Condition=Mas.Next()>
<csp:if Condition='%request.Get("TopikID")=Mas.Get("TopID")'>
<tr>
<td WIDTH="2%" rules="none"></td>
<td WIDTH="12%" bgcolor="#FFE67D"><font face="Arial" >#(Mas.Get("UserName"))#</td>
<td WIDTH="70%" bgcolor="#FFE67D"><font face="Arial" >#(Mas.Get("Massage"))#</td>
<td WIDTH="5%">#($zt($h))#</td>
<td WIDTH="2%" rules="none"></td>
</tr>
</csp:if>
</csp:while>
</TABLE>
<csp:if Condition='%request.Get("Us")="Гость"'>
<csp:elseif Condition='%request.Get("Us")=""'>
<csp:else>
<h3>Введите ответ</h3>
<form name="Log">
<TEXTAREA NAME="mass" COLS="60" ROWS="5"></TEXTAREA>
</form>
<br><br><INPUT TYPE="button" NAME="add" VALUE="Ответить" onClick="#server(..mas(self.document.Log.mass.value,self.document.Log.SysDate.value))#">
</csp:if>
<br><A HREF="ForymIndex.csp" TITLE="">На главную</A><br>
</CENTER>
<script language=Cache runat = "server">
set ^un = %request.Get("Us")
set ^tid = %request.Get("TopikID")
set SysDate = $H
</script>
</FONT>
</FONT></DIV>
</BODY>
</HTML>
<script language=Cache Method="mas" arguments="mass:%String,SysDate:%Date">
if mass="" {&javascript<alert("Недопустимое сообщение");> quit}
set top=##class(forum.Massage).%New()
do top.AddMass(mass,SysDate, ^tid, ^un)
&JS<location.href='ForumMassage.csp?Us=#(^un)#&TopikID=#(^tid)#'>
quit
</script>
