<%@ LANGUAGE="VBSCRIPT"%> <%OPTION EXPLICIT%> <%Response.Buffer = True%> <% Dim objRec Dim objRec2 Dim varMessageID Dim strSQL Dim varReplyID Dim varLevel Dim i Dim messagetype If NOT Request.QueryString("Level") = "" then varLevel = Request.QueryString("Level") - 1 varReplyID = Request.QueryString("ReplyID") Dim arMessages() Redim arMessages(varLevel) End If Set objConn = Server.CreateObject ("ADODB.Connection") Set objRec = Server.CreateObject ("ADODB.Recordset") Set objRec2 = Server.CreateObject ("ADODB.Recordset") objConn.Open strconnect '*** Get the message ID. varMessageID = Request.QueryString("message") '*** Create a recordset with the message in it. strSQL = "SELECT * FROM messages WHERE messageID = " & varMessageID & "" objRec.Open strSQL, objConn '*** Create a recordset with all the replies in it. strSQL = "SELECT * FROM replies WHERE messageID = " & varMessageID & " ORDER BY MessageDate ASC" objRec2.Open strSQL, objConn '*** Create an array with the reply IDs in it. Sub FillArray For i = 0 to UBound(arMessages) objRec2.Filter = "ReplyID = " & varReplyID arMessages(UBound(arMessages)-i) = varReplyID varReplyID = objRec2("ReplyParent") objRec2.Filter = 0 Next End Sub Sub PrintMessages(objMessages, mType)%>

<%=FONT4%>Título : <%=objMessages("MessageTitle")%> Autor : <%If NOT objMessages("AuthorEmail") = "" then%>"><%=objMessages("MessageAuthor")%> <%Else Response.Write objMessages("MessageAuthor") End If%> Fecha : <%Call DisplayDateTime(objMessages("MessageDate"))%>	& <%If mType = "t" then Response.Write "replyid=" & objMessages("MessageID") Else Response.Write "replyid=" & objMessages("ReplyID") End If%> &subject=<%=Replace(objMessages("MessageTitle"), " ", "+", 1)%>" target="_top"><%=MBImgReply%>
<%=FONT1 & AutoLink(Replace(objMessages("MessageBody"),Chr(13)," "))%>

<% End Sub '*** Step through the array and print out the replies. Sub PrintReplies messagetype = "r" For i = 0 to UBound(arMessages) objRec2.Filter = "ReplyID = " & arMessages(i) PrintMessages objRec2,messagetype objRec2.Filter = 0 Next End Sub %> <% Response.Write MBPageBody1 messagetype = "t" PrintMessages objRec,messagetype If Request.QueryString("all") = "True" then messagetype = "r" While NOT objRec2.EOF PrintMessages objRec2,messagetype objRec2.MoveNext Wend Else If NOT Request.QueryString("Level") = "" then FillArray PrintReplies End If End If objRec.Close objRec2.Close Set objRec = Nothing Set objRec2 = Nothing %>