Hola,
yo lo tengo hecho, te dejo el código por si le puedes sacar provecho.
Te marco en negrita lo que debes cambiar
cadenaForo="SELECT FORUM_TOPICS.FORUM_ID,FORUM_TOPICS.TOPIC_ID, FORUM_TOPICS.T_SUBJECT, FORUM_TOPICS.T_LAST_POST, FORUM_TOPICS.T_LAST_POST_AUTHOR, FORUM_MEMBERS.M_NAME FROM FORUM_MEMBERS INNER JOIN FORUM_TOPICS ON FORUM_MEMBERS.MEMBER_ID = FORUM_TOPICS.T_LAST_POST_AUTHOR
where not forum_topics.forum_id=20 order by t_last_post desc"
set pepe=conn.Execute (cadenaForo)%>
<table width="79%" bgcolor="#000000" cellspacing="1">
<tr bgcolor="#D59A00">
<td colspan="2" align="center"><font color="#FFFFFF"><b>10
Últimos</b></font></td>
</tr>
<% for i=1 to 10
%>
<tr>
<td nowrap bgcolor="#FFFFFF"><font size="1"><a class="foro" href="
../foro/topic.asp?TOPIC_ID=<% =pepe("topic_id") %>" target="_blank" title="<% =pepe("t_subject") %>">
<% response.write left(pepe("t_subject"),30)
if len(pepe("t_subject"))>30 then response.write "..." end if %>
</a></font></td>
<td nowrap bgcolor="#FFFFFF"> <font style="cursor:default" size="1" color="#880000" <% if len(pepe("M_NAME")) > 10 then response.write "title=""" & pepe("m_name") & """" end if %>>
<% response.write left(pepe("M_NAME"),10)
if len(pepe("M_NAME")) > 10 then response.write "..." end if
%>
</font> </td>
</tr>
<%
pepe.movenext
next
conn.close
set conn=Nothing
%>
</table>
La primera negrita es para que omita algún foro que no quiereas que se muestre o liste (como aquí Ocio, o si tuvieras un foro privado)
La segunda negrita es la ruta relativa o absoluta al foro para crear el enlace.
Si quieres el aspecto echa un ojo
aqui
Saludos