Discussion Forums

<% ' Read details of all forums on this site. ' Show all of them with statistics in a nice table. Dim rsForums Set rsForums = Connect (ForumMDB).Execute ("SELECT * FROM Forums ORDER BY Forum ASC") rsForums.MoveFirst %> <% While Not rsForums.EOF %> <% rsForums.MoveNext Wend rsForums.Close %>

Forums

"><%= rsForums("Forum") %>

<%= rsForums ("Description")%>
[Total Posts: <%= rsForums("Posts") %>] [Last Post on <%= rsForums("LastPost") %>]