代码找错~~~求帮忙找一下错误~~

Question

以下代码有错请说明错误
1<%
Dim conn
set conn=server.CreateObject("ADODB.Connection")
sql="driver={sql Server};server=(local);UID=sa;pwd=sa;database=" "
%>
2
<%
set rs=server.CreateObject("Adodb.recordset")
sql=" "
rs.open sql,conn,1,3
%>

Answer 1

---上边写的有问题补充
1<%
Dim conn,connStr
set conn=server.CreateObject("ADODB.Connection")
connStr="Provider={SqlOleDB};server=(local);UID=sa;pwd=sa;database="数据库名 "
conn.open connStr
%>
2
<%
set rs=server.CreateObject("Adodb.recordset")
sql=" "   
rs.open sql,conn,1,3
%>

Answer 2

数据库名称没有写。
sql="" 也没有赋值？