A function to test database connections (original)

A problem that has plagued me before, how to determine the success of the database connection (such as SQL did not start, the database does not exist, etc.), the implementation of friendly error handling, but VBScript error handling mechanism is too bad, only on the error resume nex/go to, But often use ADO error traps after waiting for you will be the script timeout, this function will change this situation (the connection timeout can be controlled by the actual situation)
' Entry parameters: Connection string strconn
' Return value: Testconnection=true,false
Function testconnection (strconn)
On Error Resume Next
Set Conn=server.createobject ("Adodb.connection")
' Here set the connection timeout to 10 seconds
Conn. connectiontimeout=10
Conn. Open strconn
If Conn. Errors.Count = 0 Then
Testconnection = True
Conn.close
Else
Testconnection = False
End If
Set conn=nothing
End Function