调用DVBBS里回复数的问题(百思不得其解，希望高手指点一二)

[byte521]

我想在网站的投票系统里加入这个项目在论坛里相关贴子的回复数

这是投票网站的CONN文件
<%
dbName="manage/#s8vc5h_#FOoO_/u#n38g_##k_r33.asp"
dbType="ACCESS"
Class MyConn
Dim objCon,ot_conn
Private Sub Class_Initialize()
Dim strDBPath
'On Error Resume Next
If dbType = "ACCESS" Then
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbName)

ElseIf dbType="MsSqlServer" Then
strConn="DRIVER={SQL Server};SERVER=" & SqlName & ";UID=" & SqlUID &";PWD=" & SqlPWD &";DATABASE=" & dbName

End If

Set objCon=CreateObject("Adodb.Connection")
objCon.Open strConn
'Call ErrMsg()

End Sub


Public Property Get ActiveConn()
Set ActiveConn=objCon
End Property

'返回一个静态数据集
Public Function ExecuteSql(strSql)
'On Error Resume Next
Set ExecuteSql=objCon.Execute(strSql)
'Call ErrMsg()
End Function

'返回一个指定类型的数据集
Public Function DoSql(strSql,intCursorLocation,intLockType)
'On Error Resume Next
Dim objRs
Set objRs=CreateObject("Adodb.Recordset")
objRs.Open strSql,objCon,intCursorLocation,intLockType
Set DoSql=objRs
Set objRs=Nothing
'Call ErrMsg()
End Function

Private Sub Class_Terminate()
objCon.Close
Set objCon=Nothing
End Sub
Private Sub ErrMsg()
If Err.number<>0 Then
err.Clear
Set objCon = Nothing
Response.Write "<html><body oncontextmenu='return false'>"
Response.Write "<br>"
Response.Write "<p align=left style='font-size:9pt'>"
Response.Write "     对不起！系统参数错误,请与管理员联系。"
Response.Write "</p>"
Response.Write "</body></html>"
Response.End
End If
End Sub
End Class
Set objconn=new myconn
%>



在投票页面连接动网数据库，并且现有数据库里的TITLEBBS这个字段和动网的TITLE字段比较


<%
bbsname=rs("titlebbs")
dim sql,rs3
response.write("数据："&bbsname)
ot_connstr= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("/bbs/data/#ExBBS05_06.asp") 'access外部数据库连接字符串
'ot_connstr = "Provider = Sqloledb; User ID = ***; Password = ***; Initial Catalog = ***; Data Source = ***;" 'sql外部数据库连接字符串
Set ot_conn = Server.CreateObject("ADODB.Connection")
ot_conn.open ot_connStr '外部数据库连接

set rs7=server.createobject("adodb.recordset")
sql="select * from dv_topic where title="&rs("titlebbs")
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^出错就在这行, 提示
ADODB.Recordset 错误 '800a0bb9'

变量或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。

rs7.open sql,conn,1,3
%>


希望高手指点，谢谢了。。。。

[kendo7]

把变量rs("titlebbs")换成字符串，看是否报错

[byte521]

也一样的报错，我换过的

[byte521]

各位大哥帮帮忙呀~_~