Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object

D:\ADMINWEB\DOMAINREDIRECT\..\const.asp, line 46