<% ' 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")%>
[Indlęg: <%= rsForums("Posts") %>] [Seneste d. <%= rsForums("LastPost") %>]