MTS COM object Error On ASP page

jasonkslim · Jul 13, 2000

Hi ALL; I have an COm object run on MTS/NT4 with IIS4 running. When i call this COM object from my ASP page, it's prompt me this error message :- (Please HELP /Advise as i have met my project deadline !!

) ComProject error '800a000d' Type mismatch /remisier/Csecurity1.asp, line 114 My ComProject VB Code: 'Implements ObjectControl ' Compile Error : Object Module needs to implement 'CanBePooled' for interface 'ObjectControl' ' Failed to compile 'Implement ObjectControl' code statement and showing above mention message! 'Private objOContext   Private Function getremisiercode(ByVal staff As Variant, ByVal newpassword As Variant) As Variant     On Error GoTo ErrCheck       Dim objOContext As ObjectContext     Set objOContext = GetObjectContext()       Dim sqltxt As String     sqltxt = "Select remisiercode from employee where staffid='" & staff & "'"     sqltxt = sqltxt & " and password='" & newpassword & "'"       Dim conn1 As ADODB.Connection     Dim rs1 As ADODB.Recordset     Set conn1 = objOContext.CreateInstance("ADODB.Connection&quot

Set rs1 = objOContext.CreateInstance("ADODB.Recordset&quot

conn1.Open "DRIVER=SQL Server;SERVER=SQL7;DATABASE=mbos_v109;UID=webuser;PASSWORD=webuser "       Set rs1 = conn1.Execute(sqltxt)       If rs1.EOF Then         getremisiercode = ""     Else         getremisiercode = rs1.Fields("remisiercode&quot

End If     objOContext.SetComplete     conn1.Close     rs1.Close     Set conn1 = Nothing     Set rs1 = Nothing     Set objOContext = Nothing       ErrCheck:     GetObjectContext.SetAbort     Err.Raise Err.Number, Err.Source, Err.Description End Function My ASP Page Code: <%@ Language=VBScript transaction=Supported %> <%dim remisiercode Set loginid = Server.CreateObject("Comproject.ComMain&quot

set remisiercode = loginid.getremisiercode(staff,newpassword) %> THANKS IN ADVANCE THANKS & Regards Jason

palbano · Jul 14, 2000

> set remisiercode = loginid.getremisiercode(staff,newpassword) %> Where are 'staff' and 'newpassword' coming from? -pete

limks · Jul 16, 2000

Hi Palbano ; FYI. dim staff dim  newpassword staff = request.form("staffno&quot

newpassword = request.form ("npassword&quot

TIA TQ Jason

palbano · Jul 17, 2000

Dear Jason, I'm not much good with VB or VBScript, but it is possible that this line: set remisiercode = loginid.getremisiercode(staff,newpassword) fails because you don't 'Set' a variant type or you don't 'Dim' a variant type in ASP. Try both and see if one works. Good luck -pete

martine · Jul 18, 2000

MTS automatically creates a context... You dont have to use (or should Not I think) objOContext.CreateInstance("ADODB.Connection&quot

just create it like Public Sub DoStuff()    On Error Goto ErrHandler     Dim oConn As ADODB.Connection Dim oCmd As ADODB.Command     Dim oRS As ADODB.Recordset Set oConn = New ADODB.Connection     oConn.Open sConnectionString     'Here we specify cursor locations to adUseClient (3)     'because we will be reusing the connection afterwards Set oCmd = New ADODB.Command     Set oCmd.ActiveConnection = oConn oCmd.CommandText = "SELECT * FROM Authors"    oCmd.CommandType = adCmdText Set oRS= oCmd.Execute    '...Operate on Recordset...     '...and we won't be needing it anymore so let's clean   oRS.Close     Set oRS = Nothing    Set oCmd = Nothing     oConn.Execute "INSERT INTO Jobs (job_desc, min_lvl, max_lvl) values (    'edjez',25,100 )" oConn.Close    Set oConn = Nothing    GetObjectContext.SetComplete    Exit Sub   ErrHandler:    GetObjectContext.SetAbort     Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile,    Err.HelpContext End Sub

limks · Jul 18, 2000

hi MartinE; I wish using your method but i dunno how to pass back the recordset to use in ASP page. How do we pass the recordset result back to ASP ? Thanks In Advance ps: Palbano ! thanks for your advise !!! regards Jason

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

MTS COM object Error On ASP page

jasonkslim

IS-IT--Management

palbano

Programmer

limks

IS-IT--Management

palbano

Programmer

martine

Technical User

limks

IS-IT--Management

Similar threads

Part and Inventory Search

Sponsor