天天爱你** SQL版主机上调试

天天爱你** SQL版主机上调试有谁调试成功了！

<%
Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="222.73.44.***"
StrUid="a0103161327"
StrSaPwd="88847940"
StrDbName="a0103161327"

StrDSN = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & StrUid & ";PWD=" & StrSaPwd & ";Initial Catalog=" & StrDbName & ";Data Source=."
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open StrDSN
If Err Then
                err.Clear
                Set Conn = Nothing
                Response.Write "This Connection is Error!"
                Response.End
        End If
Sub RsClose()
   Rs.Close
   Set Rs=Nothing
End Sub

这个我连接的对吗

报什么错了？

是不是数据库没有配置好啊？

这个我以前下载过，按照说明设置，运行一切正常啊