Classic ASP error '800a01ad' ActiveX component can't create object

问题

we have a system that wasnt designed by us, and part of that system is a classic ASP portal. The portal is currently running with no issues on one of out servers.

We want to do some development work on the portal, so we want to put it on TFS, and than work on it locally. The problem no matter what I tried we cant make it run locally. this is what we tried:

import the IIS setting from the working server
register whatever dll we can think of
Pool is running with system network credentials
pool have 32bit enabled
running it using VS2012
The log files don't seem to have anything useful

The error:

CAMSSession error '800a01ad'

ActiveX component can't create object

/StudentTest/inc/TRSSession.asp, line 17

How can I detect what is it that we are missing? I am assuming it is a dll. We know that it is not a code issue because the website is running okay on the server.

The lines that causes the error:

TRSSession.Acquire GUID, RemoteIP

in:

    Dim TRSSession
    Dim GUID
    Dim RemoteIP

GUID = CStr(Request.Cookies("TRSSession"))
RemoteIP = Request.ServerVariables("REMOTE_ADDR")

If Not IsObject(Session("TRSSession")) Then
    Set TRSSession = Server.CreateObject("CAMSSession.TRSSession")
    Call TRSSession.Constructor(Application.Value("strSvrName"), Application.Value("strDBName"))
    TRSSession.PortalServiceURI = Application.Value("PortalService")
    TRSSession.IP = RemoteIP
    TRSSession.AllowBatchMode = True
    Set Session("TRSSession") = TRSSession
    TRSSession.Acquire GUID, RemoteIP
Else
    Set TRSSession = Session("TRSSession")
End If

If GUID = "" Then
    If LCase(Request.ServerVariables("HTTPS")) = "on" Then
        Response.AddHeader "Set-Cookie", "TRSSession=" & CStr(TRSSession.GUID) & "; secure; HttpOnly"
    Else
        Response.AddHeader "Set-Cookie", "TRSSession=" & CStr(TRSSession.GUID) & "; HttpOnly"
    End If
End If

Dim TRSSessionF

If Request.QueryString("GUID") <> "" Then
    Set TRSSessionF = Server.CreateObject("CAMSSession.TRSSession")
    Call TRSSessionF.Constructor(Application.Value("strSvrName"), Application.Value("strDBName"))
    TRSSessionF.PortalServiceURI = Application.Value("PortalService")
    TRSSessionF.IP = RemoteIP
    TRSSessionF.Acquire Request.QueryString("GUID"), RemoteIP, True
    TRSSession("TermID") = TRSSessionF("TermID")
    TRSSession("TextTerm") = TRSSessionF("TextTerm")
    TRSSession("SROfferID") = TRSSessionF("SROfferID")
    TRSSession("CourseName") = TRSSessionF("CourseName")
    TRSSession("Course") = TRSSessionF("Course")
    TRSSession("FacultyID") = TRSSessionF("FacultyID")
    TRSSession("FPM") = "True"
    TRSSession("StudentName")= "<span style=""color:Red"">Faculty Preview Mode</span>"
End If

%>

来源：https://stackoverflow.com/questions/33126574/classic-asp-error-800a01ad-activex-component-cant-create-object

标签

vbscript

asp-classic

com

activex