The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
error in Bar News
Microsoft VBScript runtime
error '800a01f4'
Variable is undefined: 'conn_ACTIVE'
-------
code
Microsoft VBScript runtime
error '800a01f4'
Variable is undefined: 'conn_ACTIVE'
-------
code
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>
Posted
change dim strConnString_ACTIVE
to dim conn_Active
to dim conn_Active
Posted
Thank you for I have the same problem
dim conn_ACTIVE
dim rs
dim topic_cnt,strSql
DODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
line 19
rs.open strSql, conn_ACTIVE, adOpenForwardOnly, adLockReadOnly, adCmdText
Posted
Awaiting help end this error after changing to new server
Posted
Posted
I'll take a look at it if I can find the mod.