<%
dim strConnString_ACTIVE
dim rs
dim topic_cnt,strSql

strConnString_ACTIVE ="DRIVER={MySQL ODBC 3.51 Driver}; SERVER=SERVER=000000000; DATABASE=00000000; USER=00000000000; PASSWORD=0000000000; OPTION=16387;"



 
  set rs = Server.CreateObject("ADODB.Recordset")
		  
   strSql="SELECT FORUM_TOPICS.CAT_ID,FORUM_TOPICS.FORUM_ID,FORUM_TOPICS.TOPIC_ID, FORUM_TOPICS.T_SUBJECT FROM FORUM_TOPICS ORDER BY FORUM_TOPICS.T_LAST_POST DESC LIMIT 20"
  ' set rs = Conn.Execute (strSql)
  rs.cachesize = 20
  rs.open strSql, conn_ACTIVE, adOpenForwardOnly, adLockReadOnly, adCmdText

topic_cnt=1

%><marquee direction="right" scrolldelay="150"> 
      <%	do until rs.EOF
       Response.Write "<a href='/forum/topic.asp?TOPIC_ID=" &  rs("TOPIC_ID") &  "' target='_blank' class='linkmid'> " & rs("T_SUBJECT") & "</a>" 
%>
      <font face=Webdings color=FF0000><</font> 
      <%		rs.MoveNext 
topic_cnt=topic_cnt + 1
	if  topic_cnt = 15 then 
	  exit Do
   end if
	loop 
	
	rs.Close
	set rs = nothing
	conn_ACTIVE.close   
Set conn_active = Nothing
	 %>
      </marquee>