OK I've made a start .. obviously my code is pretty awful but I know it is kinda in the right direction:sub ListForums(byval Width)
Dim TopicCount, rsForum, Forum_Subject
'## Forum_SQL
strSql = "SELECT "F.F_SUBJECT, " & _
"C.CAT_ID, " & _
"COUNT( & strTablePrefix & "TOPICS T,), " & _
"FROM " & strTablePrefix & "FORUM F, " & _
strTablePrefix & "CATEGORY C, " & _
"WHERE C.CAT_ID=2"
strSql = strSql & "AND F.FORUM_ID = T.FORUM_ID " & _
"AND C.CAT_ID = T.CAT_ID "
strSql = strSql & ") "
strSql = strSql & " ORDER BY C.CAT_ORDER, C.CAT_NAME, F.F_ORDER "
tF_SUBJECT = 0
tCAT_ID = 1
rec = 1
for iTopic = 0 to iTopicCount
Forum_Subject = arrTopicData(tF_SUBJECT,iTopic)
Cat_ID = arrTopicData(tCAT_ID,iTopic)
set rsForum = my_Conn.Execute(strSql)
Forum_Subject = rsForum.Fields("F_SUBJECT").Value
TopicCount = rsForum.Fields(COUNT(TOPICS))
call StartTable("100%", "Forum List")
do while NOT rsForum.EOF
Response.Write " "& rsForum.Fields("Forum_Subject").Value & "(" & Topic_Count & ")" & "<br />" & vbNewLine
rsContList.MoveNext
loop
set rsForum = nothing
call EndTable()
end sub
Any pointers (except take up macrame instead ?