sub DisplayActiveTopics(byval Width, byval Count)

   dim strSql
   dim rsActive

   Call StartTable(Width, "Active Topics")

   strSql = "SELECT"
   strSql = strSql & " T.TOPIC_ID,"
   strSql = strSql & " T.T_SUBJECT"
   strSql = strSql & " FROM " & strTablePrefix & "TOPICS T," & strTablePrefix & "FORUM F"
   strSql = strSql & " WHERE T.FORUM_ID = F.FORUM_ID"
   strSql = strSql & " AND F.F_PRIVATEFORUMS = 0"
   strSql = strSql & " AND T.T_STATUS = 1"
   strSql = strSql & " ORDER BY T_LAST_POST DESC"

   Set rsActive = my_conn.Execute(TopSQL(strSql, Count))
   If NOT rsActive.EOF Then
      Do While NOT rsActive.EOF

         Response.Write("<a href=""topic.asp?TOPIC_ID="& rsActive.fields("TOPIC_ID").value &""">"& rsActive.fields("T_SUBJECT").value & "</a><br><br>")

         rsActive.MoveNext
      Loop
   End If
   rsActive.Close
   Set rsActive = Nothing

   Response.Write  "          <a href=""active.asp"">more active topics</a>" &vbCrLf

   Call EndTable()

end sub

'##########My Additions##########
sub DisplayClassifieds(byval Width, byval Count)

Call StartTable(Width, "Classifieds")

dim rsAds
dim strClassSql

set rsAds = server.CreateObject("adodb.recordset")

'get the ads for this category
strClassSql = "Select ID, ad_title, city,"
strClassSql = strClassSql & "link FROM " & strTablePrefix &  "ADS_CONTENT ORDER BY date_posted desc"
strClassSql = TopSQL(strClassSql, Count)
Set rsAds = my_Conn.Execute(strClassSql)

If NOT rsAds.EOF Then
      Do While NOT rsAds.EOF

Response.Write("<a href=""classdetail.asp?id="& rsAds("ID") &""">"& rsAds("ad_title") & "</a><br>")
Response.Write(rsAds("City") & "<br>")

      rsAds.MoveNext
   Loop
End If
   rsAds.Close
   Set rsAds = Nothing

Response.Write  "          <br><a href=""classifieds.asp"">more classifieds</a>" &vbCrLf

Call EndTable()

end sub
'##########My Additions##########