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