<% Dim ForumNumber, ForumName Dim strSQL Dim rstMessages, rstForumName Dim conForum 'retreive the appropriate forum number ForumNumber = Request.QueryString("forumid") If ForumNumber = "" then Response.Redirect "default.asp" Set conForum = Server.CreateObject("ADODB.Connection") ConForum.Open sConnection 'retreive the parent messages strSQL = "SELECT Max(message_timestamp) as LastReply, Count(message_subject) as ReplyCount, message_subject as Subject, thread_id FROM tblMessages WHERE forum_id=" & ForumNumber & " Group BY thread_id, message_subject Order By Max(message_timestamp) DESC;" Set rstMessages = conForum.Execute(strSQL) 'Get the forum Name Set rstForumName = conForum.Execute("Select * From tblForums Where forum_id=" & ForumNumber & ";") ForumName = rstForumName("ForumName") rstForumName.Close Set rstForumName = NOTHING '=====For the alternating row colors======= Dim ColorNumber Dim RowColor ColorNumber = 0 %> forums

<%=sSiteName%> > <%=ForumName%> >

Post New Thread
<% If Not rstMessages.EOF Then %> <% Dim continue, n While continue = 0 ColorNumber = ColorNumber + 1 If (ColorNumber MOD 2) = 0 Then 'it's even RowColor = "#EEEEEE" Else RowColor = "#FFFFFF" End If %> <% n = n + 1 rstMessages.MoveNext IF rstMessages.EOF Then continue = 1 IF n = 70 Then continue = 1 %> <% Wend %>
Thread Subject Replies Latest Reply
&forum_id=<%=ForumNumber%>"><%=OutputFix(rstMessages("Subject"))%>

<%=Cint(rstMessages("ReplyCount"))-1%>

<%=rstMessages("LastReply")%>
<% Else Response.Write "There are currently no posts in this forum." End If %> <% rstMessages.Close Set rstMessages = Nothing conForum.Close Set conForum = NOTHING %>

Back to Forum List  |  Post New Thread