<%
Set strForumConn = Server.CreateObject("ADODB.Connection")
strForumConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin/wwForum.mdb")
Set strForumRs = Server.CreateObject("ADODB.Recordset")
strForumRs.CursorType = 1
strForumSQL = "SELECT Top 6 tblTopic.Forum_ID, tblTopic.Topic_ID, tblTopic.Subject, tblForum.Password, tblForum." & strMemberStatus & " "
strForumSQL = strForumSQL & "FROM tblForum INNER JOIN tblTopic ON tblForum.Forum_ID = tblTopic.Forum_ID "
strForumSQL = strForumSQL & "WHERE ((tblForum.Password) Is Null) "
strForumSQL = strForumSQL & "ORDER BY tblTopic.Last_entry_date DESC;"
strForumRs.Open strForumSQL, strForumConn
Do while NOT rsStatistics.EOF
Response.Write "<a href=""display_topic_threads.asp?ForumID="&strForumRs("Forum_ID")&"&TopicID="&strForumRs("Topic_ID")&"&PagePosition=1" target=""_self"">""
Response.Write (strForumRs("Subject")) & "</a><br>"
strForumRs.MoveNext
Loop
strForumRs.Close
Set strForumRs = Nothing
strForumConn.Close
Set strForumConn = Nothing
%>