I had created my original websites with FrontPage. I used their shared borders and navigation structure.
The procedure below will convert the old FrontPage child navigation nodes into a string varaiable containing HTML links. The string can then be pasted wherever needed onto your new page.
Set objGen1 = Application.ActiveWeb. _
AllNavigationNodes.Item(intNodeNumber)
For i = 0 To objGen1.Children.Count - 1
GetChildLinks = GetChildLinks & _
"<p><a href=" & _
"""" & objGen1.Children.Item(i).File.Name & """" & _
">" & objGen1.Children.Item(i).Label & "</a></p>" & _
vbCrLf
Next i
You have to get the intNodeNumber of the parent node. before running the procedure.
Typical Output is shown below. I wrapped the text and inserted line breaks to the output to make it easier to read.
<p><a href="cooperstown_1882.htm"> Cooperstown 1882</a></p> <p><a href="an_early_day_view_of_cooperstown.htm"> An Early Day View of Cooperstown</a></p> <p><a href="bicycle_champion.htm"> Bicycle Champion</a></p> <p><a href="cooperstown's_first_business_men.htm"> Cooperstown's First Business Men</a></p> <p><a href="griggs_county2.htm"> Griggs County</a></p> <p><a href="early_county_settlers.htm"> Early County Settlers</a></p>
