我事先是如下写法
<% dim mydate
    dim cnnb
 mydata = "zbroad2009"
    cnnStr = "Provider=SQLOLEDB.1; User ID=sa;pwd=111111;  Data Source=server02; Initial Catalog=" & mydata
    Set cnnb = New ADODB.Connection
    cnnb.ConnectionString = cnnStr
    cnnb.Open
    %>
但是运行错误，请高人指点，该如何写连接的代码，非常感谢

看置顶贴

set conn=server.createobject("adodb.connection")
conn.open "provider=sqloledb;data source=服务器;User ID=用户名;pwd=密码;Initial Catalog=数据库名"

DSN方式的：
Set conn = Server.CreateObject("ADODB.connection")
conn.Open "DSN=数据源名;UID=数据库用户名;PWD=密码;DATABASE=数据库名"