%@ 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
%>