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
Council questions local cable company
6/4/2004  The Enterprise City Council invited Adelphia representatives to its June 1 meeting for explanation on a document that appeared to be a 41 cent increase for basic cable rates.
MORE
Back