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 %> <% While Not rsForums.EOF %> <% rsForums.MoveNext Wend rsForums.Close %>

Forums

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

 

 

Designed And Hosted By
mideastnet_logo
MidEast Net