Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'createobject'

/include/opendb.asp, line 2