[AccessD] OT: FrontPage Websites

...sigh ...shakes head ...Asp and Front Page are dead ...long replaced by 
Asp.Net and Visual Studio Web Designer Express Version 8, both of which are 
free, easier to use, and incredibly more capable.

William

----- Original Message ----- 
From: "Drew Wutka" <DWUTKA at marlow.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Friday, December 14, 2007 1:00 PM
Subject: Re: [AccessD] OT: FrontPage Websites


> 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
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com