<% ' 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 ForumID ASC") rsForums.MoveFirst %> <% While Not rsForums.EOF %> <% rsForums.MoveNext Wend rsForums.Close Set rsForums = nothing %>
Rewarding Work Forums
"><%= rsForums("Forum") %>
<%= rsForums ("Description")%>
[Total Posts: <%= rsForums("Posts") %>] [Last Post on <%= rsForums("LastPost") %>]