Hi,

you forgot the "return" statement il OpenDB() function, you need to add this to
your function : set OpenDB = dbConn

Function OpenDB()
Set dbConn = Server.CreateObject("ADODB.Connection")
'dbConn.ConnectionTimeout = Application("dbConn_ConnectionTimeout")
'dbConn.CommandTimeout = Application("dbConn_CommandTimeout")
'dbConn.Open Application("dbConn_ConnectionString")

'**********************
Set OpenDB = dbConn
'**********************

End Function