| Board Name |
Moderator |
Topics |
Posts |
Last Post |
<%
Dim rsForum, color, flag, count
strSQL = "SELECT Forum.*, Users.FUserID, Users.FNickName FROM Forum INNER JOIN Users ON Forum.FForumMod = Users.FUserID WHERE (Forum.FForumID>0) ORDER BY Forum.FForumID ASC;"
set rsForum = Server.CreateObject("ADODB.Recordset")
rsForum.Open strSQL, objConn
If Not rsForum.EOF Then
Do While Not rsForum.EOF
%>
|
"><%=rsForum("FNickName")%> |
<%=rsForum("FForumNumTopics")%> |
<%=rsForum("FForumNumPosts")%> |
<%=rsForum("FForumLastPost")%> |
<%
If Session("Admin") = True Then
Response.Write _
"" & _
"Delete" & _
" | "
End If
Response.Write ""
rsForum.MoveNext
Loop
rsForum.Close
set rsForum = Nothing
Else
Response.Write "No Forums Listed
"
End If
objConn.Close
set objConn = Nothing
%>
|