La página entera es así...
<%
Dim DB, InReplyTo, rsInReplyTo, IsAReply
Set DB = Connect (ForumMDB)
If Request ("Action") = "Enviar" Then
Dim rsMessage
Set rsMessage = Server.CreateObject ("ADODB.Recordset")
rsMessage.Open "Messages", DB, adOpenStatic, adLockPessimistic
rsMessage.AddNew
rsMessage ("ForumID") = Request ("ForumID")
rsMessage ("PostedBy") = Request ("PostedBy")
rsMessage ("Email") = Request ("Email")
rsMessage ("Subject") = Request ("Subject")
rsMessage ("Body") = Request ("Body")
rsMessage ("InReplyTo") = Request ("InReplyTo")
rsMessage ("Date") = Now
rsMessage.Update
' actualizamos
Dim rsForum
Set rsForum = Server.CreateObject ("ADODB.Recordset")
rsForum.Open "SELECT Posts, LastPost FROM Forums WHERE ForumID = " & Request ("ForumID"), DB, adOpenStatic, adLockPessimistic
rsForum ("Posts") = rsForum ("Posts") + 1
rsForum ("LastPost") = Now
rsForum.Update
Response.Redirect "forum.asp?ForumID=" & Request ("ForumID")
Else
InReplyTo = Request ("InReplyTo")
'
If InReplyTo <> 0 and Cstr(InReplyTo) <> " " Then
IsAReply = True
Set rsInReplyTo = DB.Execute ("SELECT * FROM Messages WHERE MessageID = " & InReplyTo)
End If
If Not IsAReply And (Request ("ForumID") = "" Or Request ("ForumID") = 0) Then
Response.Redirect "forum.asp"
End If
%>
<TABLE WIDTH="90%" BORDER="1" CELLSPACING="0" CELLPADDING="8" ALIGN="CENTER">
<TR ALIGN="LEFT" VALIGN="TOP" BGCOLOR="#FFFFFF">
<TD COLSPAN="2">Publica un mensaje <% If IsAReply Then Response.Write " en respuesta a <B>" & rsInReplyTo("Subject") & "</B> por <B>" & rsInReplyTo ("PostedBy") & "</B>"%></TD>
</TR>
<TR ALIGN="LEFT" VALIGN="TOP" BGCOLOR="#FFFFFF">
<TD COLSPAN="2">
<FORM ACTION="<%= Request.ServerVariables ("foros/PATH_INFO") %>">
<INPUT TYPE="hidden" NAME="ForumID" VALUE="<% If IsAReply Then Response.Write rsInReplyTo ("ForumID") Else Response.Write Request ("ForumID") %>">
<INPUT TYPE="hidden" NAME="InReplyTo" VALUE="<% If InReplyTo = 0 Then Response.Write "0" Else Response.Write InReplyTo %>">
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="4" ALIGN="CENTER">
<TR ALIGN="LEFT" VALIGN="TOP">
<TD WIDTH="20%" ALIGN="RIGHT">De:</TD>
<TD WIDTH="80%">
<INPUT TYPE="text" NAME="PostedBy" SIZE="60" MAXLENGTH="50" >
</TD>
</TR>
<TR ALIGN="LEFT" VALIGN="TOP">
<TD WIDTH="20%" ALIGN="RIGHT">Email:</TD>
<TD WIDTH="80%">
<INPUT TYPE="text" NAME="Email" SIZE="60" MAXLENGTH="100" >
</TD>
</TR>
<TR ALIGN="LEFT" VALIGN="TOP">
<TD WIDTH="20%" ALIGN="RIGHT">Título:</TD>
<TD WIDTH="80%">
<INPUT TYPE="text" NAME="Subject" SIZE="60" MAXLENGTH="100" VALUE="<% If IsAReply Then Response.Write "Re: " & rsInReplyTo ("Subject")%>">
</TD>
</TR>
<TR ALIGN="LEFT" VALIGN="TOP">
<TD WIDTH="20%" ALIGN="RIGHT">Mensaje:</TD>
<TD WIDTH="80%">
<TEXTAREA NAME="Body" COLS="50" ROWS="12"><% If IsAReply Then Response.Write "> " & (Replace (rsInReplyTo("Body"), vbCrLf, vbCrLf + "> "))%></TEXTAREA>
</TD>
</TR>
<TR ALIGN="LEFT" VALIGN="TOP">
<TD WIDTH="20%" ALIGN="RIGHT"> </TD>
<TD WIDTH="80%">
<INPUT TYPE="submit" NAME="Action" VALUE="Enviar">
</TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
</TABLE>
<%
End If
%>
<BR>
<br style="clear: both;" />
</DIV>