<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %>
<% Response.Expires = -1 %>
MGT Forum Threads
<%
Set Conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
ConnString = Application("SQLConnect")
CONN.OPEN ConnString
strSQL = "SELECT TOP 30 T.CAT_ID, T.FORUM_ID, T.T_VIEW_COUNT, T.T_ISPOLL, T.T_STICKY, T.T_REPLIES, T.T_UREPLIES, T.T_LAST_POST_AUTHOR, " & _
" T.T_LAST_POST_REPLY_ID, M.M_NAME, MEMBERS_1.M_NAME AS LAST_POST_AUTHOR_NAME, dbo.MGTFORUM_FORUM.F_SUBJECT,T.TOPIC_ID, " & _
" T.T_SUBJECT " & _
"FROM dbo.MGTFORUM_MEMBERS M INNER JOIN " & _
" dbo.MGTFORUM_TOPICS T ON M.MEMBER_ID = T.T_AUTHOR INNER JOIN " & _
" dbo.MGTFORUM_MEMBERS MEMBERS_1 ON T.T_LAST_POST_AUTHOR = MEMBERS_1.MEMBER_ID INNER JOIN " & _
" dbo.MGTFORUM_FORUM ON T.FORUM_ID = dbo.MGTFORUM_FORUM.FORUM_ID " & _
"WHERE T.FORUM_ID <> 50 and T.FORUM_ID <> 64 " & _
"ORDER BY T.T_LAST_POST DESC"
rs.open strSQL, conn, 1, 1
rs.cachesize = 30
nTotalRows = rs.RecordCount
Do while not rs.eof
'Set values
strTopicID = rs.fields("TOPIC_ID")
strSubject = rs.fields("T_SUBJECT")
response.write "" & vbcrlf
rs.movenext
loop
rs.Close
set rs = nothing
CONN.Close
set CONN = nothing
%>