Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序

/xiaomai/xinxi/luru.asp，行114

我的数据库文件制作了,也连接了,但一运行就出现这样的错误,
小弟请大虾们指教下!

代码帖出来

代码帖出来

<%
dim strsql,rs
set conn=createobject("ADODB.connection")
conn.open ("DSN=information;UID=;PWD=;")
set rs=createobject("ADODB.Recordset")
sql="select * from infor"
rs.open sql,conn,3,3
rs.Addnew() rs("name").value=request.form("name")
rs("sex").value=request.form("sex")
rs("birth").value=request.form("birthday")
rs("zzmm").value=request.form("zz")
rs("teach").value=request.form("teach")
rs("xl").value=request.form("xl")
rs("class").value=request.form("class")
rs("school").value=request.form("school")
rs("addr").value=request.form("add")
rs("tel").value=request.form("tel")
rs("career").value=request.form("career")
rs.Update()
Response.Write ("你已经成功注册")
rs.close()
conn.close()
set rs=nothing
set conn=nothing
%>

<%
dim strsql,rs
set conn=server.createobject("ADODB.connection")
conn.open ("DSN=information;UID=;PWD=;")
set rs=server.createobject("ADODB.Recordset")
sql="select * from infor"
rs.open sql,conn,3,3
rs.Addnew() rs("name").value=request.form("name")
rs("sex").value=request.form("sex")
rs("birth").value=request.form("birthday")
rs("zzmm").value=request.form("zz")
rs("teach").value=request.form("teach")
rs("xl").value=request.form("xl")
rs("class").value=request.form("class")
rs("school").value=request.form("school")
rs("addr").value=request.form("add")
rs("tel").value=request.form("tel")
rs("career").value=request.form("career")
rs.Update()
Response.Write ("你已经成功注册")
rs.close()
conn.close()
set rs=nothing
set conn=nothing
%>

楼上的大峡谢谢了,但我发现这段代码似乎不是在一个页面中吧!
你说对吧!
这代码是我自己初次拼凑的,嘿嘿!
目的是把添如表格的信息添加到数据库中.
要不老兄帮我搞个范例吧!
下弟不胜感激!
[url=http://wpa.qq.com/msgrd?V=1&Uin=78446349&Site=紫竹苑&Menu=yes]有事儿您说话[/url]