asp连接数据库问题

下面是连接代码是在conn.asp页面中注意有些代码注释了,但是我在index.asp页面老师提示数据库连接出错.请高手看看,我是真不知道错在哪,我是新手不懂,很急在线等
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'Option Explicit
Response.Buffer = True
Dim Rs
Dim Conn,Db,sql



Dim ConnStr
'ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("./")&Db
ConnStr = "Provider=SQLOLEDB.1;Persist Security InFso=true;Data Source=192.168.0.74;Initial Catalog='dangan_cyn';User ID='sa';Password='';CONNect Timeout=30"
'Response.Write(connstr)
'Response.End()

On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查数据连接。"'注释，需要把这几个字翻译成英文。
Response.End
End If

Set Rs = Server.CreateObject("ADODB.RecordSet")
%>

http://baike.baidu.com/view/25773.htm