[AccessD] OT: FrontPage Websites

Drew Wutka DWUTKA at Marlow.com
Fri Dec 14 12:00:08 CST 2007


Ok, here's the first of the two classes in my SiteNav2006.dll.  There is
also a module, for my DBConnect function, which just sets the
ADODB.Connection argument to a new ADODB.Connection, set's it's provider
to Jet 4.0, then sets the extended proprerty for the workgroup file and
opens the secured database.

This is the Node Class:

Option Explicit
Public ID As Long
Public ParentID As Long
Public URL As String
Public Title As String
Public RootNode As Boolean
Dim MyNodes As Collection
Private Sub Class_Initialize()
Set MyNodes = New Collection
End Sub
Property Get ChildCount() As Long
ChildCount = MyNodes.Count
End Property
Friend Function AddChild(nd As Node)
MyNodes.Add nd
End Function
Property Get ChildNode(intPos As Long) As Node
Set ChildNode = MyNodes(intPos)
End Property
Public Function NewEnum() As IUnknown
Set NewEnum = MyNodes.[_NewEnum]
End Function

My next email will have the Nodes class.  The code is a little long, so
I'm crossing my fingers that it will post.  In the RetrieveNavigation
Function, I will put '''Customization Starts here for where this
function starts mixing the FP navigation with the product database for
our site, so that wouldn't have to be included in someone elses...but
I'm keeping it in there to show how you can tweak the navigation to
include custom dynamic pages.

Drew




More information about the AccessD mailing list