error in Bar News
Microsoft VBScript runtime
error '800a01f4'
Variable is undefined: 'conn_ACTIVE'
-------
code
<%
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>
