<%
L_Re_Text = "RE:"
lAct = Request.QueryString("ACT") + 0
lId = Request.QueryString("ID") + 0
lSize=Request.QueryString("SUBSIZE") + 0
If lSize = 0 Then
lSize = 60
End If
If lId > 0 Then
If IsEmpty(Session("Miscapis")) Then
Set Session("Miscapis") = Server.CreateObject("OWS.Miscapis.1")
End If
Set collab = Session("MiscApis").CreateCollaborationObject( 0 )
Set comment = collab.GetComment(lId)
If lAct = 1 And Not Left(comment.Subject, Len(L_Re_Text)) = L_Re_Text Then
szPrefix = L_Re_Text & " "
Else
szPrefix = ""
End If
szSubject = Replace((szPrefix & comment.Subject), "&", "&")
szSubject = Replace(szSubject, chr(34), """)
If lAct=2 Then
szTextHtmlEncoded = Replace(comment.Text, "&", "&")
End If
szBookmark = comment.Bookmark
Else
lAct = 1
szSubject = ""
End If
%>