<%
Function showMessage(idn)
Set subReply = con.execute ("SELECT * FROM Replys Where ParentID=" & idn & " ORDER by id")
if NOT subReply.bof AND NOT subReply.eof then
'התנאי הזה קובע את הצבע של השורה.. אם הוא זוגי הוא צבע אחד ואם הוא לא זוגי הוא צבע אחר..
if i mod 2 <> 0 then
color = "#ffce5a"
else
color = "#ffde8e"
end if
i = i + 1
'הלבל זה הרמה של ההודעה.. אם היא תת תגובה, או תת תת תגובה.. כדי לקבוע את המרחק שלה מימין
pad = subReply("level")
padding = pad * 14
'כאן מוצגת ההודעה
	subid = subReply("id")
Set test = con.execute("SELECT * FROM Replys Where ParentID=" & subid)
if not test.bof and not test.eof then
set test = nothing
set subReply = nothing
showMessage(subid)
end if
end if
end Function
Set Reply = con.execute ("SELECT * FROM Replys Where ParentID=" & id & " ORDER by id")
i = 1
if NOT Reply.bof AND NOT Reply.eof then
do until Reply.eof
if i mod 2 <> 0 then
color = "#ffce5a"
else
color = "#ffde8e"
end if
i = i + 1
'כאן מוצגת ההודעה
Set bott = con.execute ("SELECT * FROM Replys Where ParentID=" & Reply("id") & " ORDER by id")
if not bott.bof and not bott.eof then
do until bott.eof
if i mod 2 <> 0 then
color = "#ffce5a"
else
color = "#ffde8e"
end if
i = i + 1
pad = bott("level")
padding = pad * 14 
'כאן מוצגת ההודעה
	subid = bott("id")
Set test = con.execute("SELECT * FROM Replys Where ParentID=" & subid)
if not test.bof and not test.eof then
set test = nothing
set subReply = nothing
showMessage(subid)
end if

bott.movenext
loop
end if
Reply.movenext
loop
end if
%>