<% Response.buffer = True %> <% Rem Now extract the message list from the table and thread messages%> <% threadID=Request.QueryString("threadID") MessageNo=Request.QueryString("MessageNo") 'MySql="SELECT messages.MessageID FROM threads INNER JOIN messages ON threads.ThreadID = messages.threadID WHERE ((threads.forumID)=1) ORDER BY messages.threadID DESC, messages.MessageID;" 'MySql="SELECT * FROM messages Where Messages.threadID=" & threadID & " ORDER BY messages.MessageID;" MySql="SELECT * FROM messages Where Messages.threadID=" & threadID & " ORDER BY messages.Posted;" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open MySql, my_Conn, adOpenStatic, adLockReadOnly, adCmdText %> <% title=RS("Subject") & " - " & forumName & " - просмотр ветви"%>

<%indents=0 do while Not RS.EOF dim tt tt = rs("messageID") For n = 1 to len(tt) if mid(tt, n, 1) = "." Then indents = indents + 1 End If next response.write "

" For n= 1 to indents Response.write " " Next lpDate=RS("Posted") If DateDiff("d",lpDate , DATE) < DAYflag then lastpostday=weekday(lpDate) pTime = formatdatetime(lpDate, 4) lpDate =pweekday(lastpostday) & " " & pTime End If if MessageNo<>Trim(RS("MessageNo")) Then response.write "

" & rs("Subject") & " by " if (RS("Email")="Not disclosed" or RS("Email")="") then response.write RS("Poster") else response.write "" & RS("Poster") & "" response.write " - " & lpDate & "" Response.write " - Вы находитесь ЗДЕСЬ!" subject=RS("Subject") poster=RS("Poster") posted=RS("Posted") email=RS("Email") comments=RS("Message") PrevID=RS("MessageID") threadID=RS("threadID") messageNo=rs("MessageNo") End If snow1 = rs("Posted") If DateDiff("d", snow1, DATE) < NEWflag then Response.write " - NEW!!" End If Response.write "
" Response.write "
" & RS("Message") & "

" indents = 0 RS.MoveNext Loop %>

<% Rem Not draw the form where new messages can be entered:%> <% TypeofPost="Reply" my_conn.close %>