I have a problem on Beg. e-commerce VB, ASP, SQL7 & MTS page 143 when i try to test the work, I already
Input values into the database but the names do not appear in the parent listbox and there is no Add Department Button.

Microsoft VBScript runtime error '800a01a8'
Object required: '[object]'
/ANGlobal_Local/site.asp, line 44

Line 44: Set query = Visit.Catalog.Getalldepartments

I am using Windows 2k and SQL7 Server?
Any help would be very much appreciated, thank you

How about posting your code?

Pffff; this is just a little bit too much to digest.

Can you provide some background? That is, explain the general idea behind the pages? Who calls what, what goes where, what kind of DLL you have and whether you registered it or not. Is this your code, or is this directly from a book? If it modified, what did you modify? Did it work before?

I don't think I have the time (nor the desire) to wade through all this and try to find out what is going on.....

Cheers,

Imar



---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

I have registered commerce.dll OK! It’s a ActivX DLL.
For Internet Guest Account (AC1420\IUSR_AD) and Everyone have been assigned Full Control permission.
References-Commerce.vbp: MSADO 2.8 Library

I run OLEVew and object commerce.visit contains all methods.

Errors:

When I tried testing the work I got this errors
1.
Microsoft VBScript runtime error '800a01a8'
Object required: '[object]'
/Global_Local/site.asp, line 50

Line 44: Set query = Visit.Catalog.GetAllDepartments

2.
Microsoft VBScript runtime error '800a01a8'
Object required: '[object]'
/Global_Local/dept.asp, line 16

Line 16: Set Department = Visit.Catalog.GetDepartment(Request("id"))

And I already Input values into the database but the names do not appear in the parent listbox and there is no Add Department Button.

Visit.catalog:

Public Property Get catalog() As catalog
If m_catalog Is Nothing Then
Set m_catalog = New catalog
m_catalog.configure Me
End If

Catalog.GetAllDepartments:

Public Function GetAllDepartments(Optional ByVal AsKeyset As Boolean = False) _
                                  As Recordset
    Set GetAllDepartments = QueryDepartments(, , AsKeyset)
End Function

End Property

Catalog.GetAllDepartment:

Public Function GetDepartment(ByVal DepartmentID As Long, _
                              Optional ByVal AsKeyset As Boolean = False) _
                              As Recordset
   Set GetDepartment = QueryDepartments("DepartmentID=" & DepartmentID, , _
                                        AsKeyset)
End Function

I am using Windows 2k and SQL7 Server.

Thanks in advance.

You have to help us help you. Not everyone has the book (including me), so I have no idea what this is all about. You're not really describing the problem; you're merely repeating parts of the code.

Let's try this again. Who calls what, what goes where, what kind of DLL do you have?
What is it supposed to do?

More importantly, who is Visit.Catalog?
You use it methods a couple of time (Visit.Catalog.GetDepartment(Request("id")), Visit.Catalog.Getalldepartments, etc) but the object is never created. Where is Visit.Catalog created?

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

I discovered the error shortly after posting the message. There was a
problem in the Catalog property Get. It is working great now.

 Thanks for getting back to me so quickly.