<%@ LANGUAGE="VBSCRIPT"%> <%OPTION EXPLICIT%> <%Response.Buffer = True%> <% Dim objRec Dim objRec2 Dim strSQL Dim varMessageID Dim i Dim x Dim varLevel Dim varReplyID If NOT Request.QueryString("Level") = "" then varLevel = Request.QueryString("Level") - 1 varReplyID = Request.QueryString("ReplyID") Dim arThreadOpen() Redim arThreadOpen(varLevel) End If '*** Get the message ID. varMessageID = Request.QueryString("message") Set objConn = Server.CreateObject ("ADODB.Connection") Set objRec = Server.CreateObject ("ADODB.Recordset") Set objRec2 = Server.CreateObject ("ADODB.Recordset") objConn.Open strconnect strSQL = "SELECT * FROM messages WHERE MessageID = " & varMessageID & "" objRec.Open strSQL, objConn %> Message Thread <% Sub FillArray strSQL = "SELECT * FROM replies" strSQL = strSQL & " WHERE MessageID = " & varMessageID Set objRec2 = objConn.Execute(strSQL) For i = 0 to UBound(arThreadOpen) objRec2.Filter = 0 objRec2.Filter = "ReplyID = " & varReplyID arThreadOpen(i) = objRec2("ReplyID") varReplyID = objRec2("ReplyParent") Next objRec2.Close Set objRec2 = Nothing End Sub Sub Thread(intLevel, intMsgID) Dim objRec2 strSQL = "SELECT * FROM replies" strSQL = strSQL & " WHERE ReplyParent = " & intMsgID strSQL = strSQL & " ORDER BY MessageDate ASC" Set objRec2 = objConn.Execute(strSQL) Do While Not objRec2.EOF%> <% If NOT Request.QueryString("all") = "True" then%> &level=<%=intLevel%>" target="messages"> <% If NOT Request.QueryString("Level") = "" Then x = 0 For i = 0 to UBound(arThreadOpen) If objRec2("ReplyID") = arThreadOpen(i) then Response.Write MBImgOldOpen & " " x = 1 Exit For End If Next If x = 0 then Response.Write MBImgOldMessage & " " End If Else Response.Write MBImgOldMessage & "" End If Else Response.Write MBImgOldOpen End If Response.Write " " & FONT2 Response.Write objRec2("MessageTitle") & " - " Response.Write objRec2("MessageAuthor") & " - " Response.Write objRec2("MessageDate") & "
" Thread intLevel+1,objRec2("ReplyID") objRec2.MoveNext Loop objRec2.Close End Sub %> <%=MBPageBody2%> <% Response.Write MBImgTopicIcon Response.Write FONT2 Response.Write " " & objRec("MessageTitle") & " - " Response.Write objRec("MessageAuthor") & " - " Response.Write objRec("MessageDate") & "
" If NOT Request.QueryString("Level") = "" then FillArray End If Thread 1,varMessageID objRec.Close Set objRec = Nothing %>