Discussion Forums at OICC |
<%
' 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
%>
|
Forums
|
<%
While Not rsForums.EOF
%>
"><%= rsForums("Forum") %>
<%= rsForums ("Description")%>
[Total Posts: <%= rsForums("Posts") %>] [Last Post on <%= rsForums("LastPost") %>]
|
<%
rsForums.MoveNext
Wend
rsForums.Close
%>
|
|
