问一个关于存入数据库的问题。在线急等！

[bsk_bg]

存储页面代码为：

<!--#include file="../conn.asp"-->
<%
dim u_id,mingcheng,gonggao,id,act
U_ID=Request.Cookies("id")
UID=Request.Cookies("username")
mingcheng=request.form("name")
gonggao=request.form("gonggao")
Pic=request.form("pic")
id=request.querystring("id")
act=request.querystring("act")
response.Write(u_id)
response.Write(uid)
if act="add" then
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select gonggao,logo1 from china_company where U_ID="&u_id
rs.Open sql,connstr,1,3
rs("gonggao")=gonggao
rs("logo1")=pic

rs.Update
rs.close
set rs=nothing

response.write(" <script language='javascript'>alert('^_^ 添加成功,请返回');window.location.href='chanpin.asp'; </script>")
response.end
end if %>


conn代码为：
<%'On Error Resume Next '容错声明
response.buffer=true
Const DbType = "ACCESS" 'ACCESS:ACCESS数据库,SQL:为MSSQL数据库
dim SQLServerName,SQLDBUserName,SQLDBPassword,SQLDBName,datatype,conn,DB,ConnStr
sub dblink()
SQLServerName = "(local)" '服务器名称或地址
SQLDBUserName = "sa" '数据库帐号
SQLDBPassword = "123456789" '数据库密码
SQLDBName = "hyinfo" '数据库名称
'数据库连接
If DbType="SQL" Then
ConnStr="Provider=sqloledb;user id="&SQLDBUserName&";password="&SQLDBPassword&";initial catalog="&SQLDBName&";data source="&SQLServerName&";"
Else
DB = "../adminct/news/shuju/#1data.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
end sub%>


不知道为什么出错。几天一直想不通。到底是哪出的错误。大家来帮我看看

错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/huiyuan/gonggao/ChanpinSave.asp, 第 17 行

[见习学术士]

rs.Open sql,connstr,1,3
这个connstr是数据源还是连接字符串哦，是不是改成conn
看下你conn.asp页面代码

[Anlige]

数据库没打开吧~

[一把编程的菜刀]

sql="select gonggao,logo1 from china_company where U_ID="&u_id
response.write sql
response.end()
rs.Open sql,connstr,1,3
加上红色部分检查下SQL语句对没

[Anlige]

还有~rs.Open sql,conn,1,3

[一把编程的菜刀]

sub dblink()
SQLServerName = "(local)" '服务器名称或地址
SQLDBUserName = "sa" '数据库帐号
SQLDBPassword = "123456789" '数据库密码
SQLDBName = "hyinfo" '数据库名称
'数据库连接
If DbType="SQL" Then
ConnStr="Provider=sqloledb;user id="&SQLDBUserName&";password="&SQLDBPassword&";initial catalog="&SQLDBName&";data source="&SQLServerName&";"
Else
DB = "../adminct/news/shuju/#1data.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
end sub

call dblink()
还有这部分，你是用函数的
所以必须加上红色部分

[bsk_bg]

l加上数据库检查后出现select gonggao,logo1 from china_company where U_ID=69
这样的话这句是没有出错的。
但是还是运行不下去。
我用的数据库是ACCESS的

[一把编程的菜刀]

仔细看下我5楼的说明

[bsk_bg]

谢谢。检测到了。我遇到了这个问题有三天了，一直运行不下去。加上那句call dblink() 后还得把数据库路径上加个一个“/”
结分喽