Home Living Doing Business Visiting Schools Library
" & vbCrLf Rs.MoveNext bFirst = False Loop End If Rs.Close Set Rs = Nothing End Sub %>
<% Sub CreateTopMenu(PageID,sMenuName) Dim Rs, MenuID, bFirst Set Rs = Server.CreateObject("ADODB.Recordset") Set Rs = Conn.Execute("Select ID From TblPages Where isHidden = 0 And isActive = 1 And PageName = '" & sMenuName & "' And ParentID = " & PageID) If Not Rs.EOF Then MenuID = Rs("ID").Value Rs.Close bFirst = True Set Rs = Conn.Execute("Select PageName,Link,Target,Extra From TblPages Where isActive = 1 And ParentID = " & MenuID & " Order By SortOrder") Response.Write " " Do While Not Rs.EOF If bFirst Then Response.Write " " Else Response.Write " " End If Response.Write "" & Rs("PageName").Value & "
News
Children's Festival in the Park
5/25/2004  Children's Festival in the Park
 
Children's Festival 
    in the Park       
  

    Free Family Fun !!                         June 12, 2004 
                         Henderson Family Park
                                  Hwy 167N

    Come join us for all the fun starting at 3 PM with a
    concert by local artist, Sean Nelson, followed by
    fireworks at 8:45 PM.

Back