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 & "
Russell Uhrig

 

 

Russell Uhrig

Recreation Specialist

 

 

 

 

 

 

 Years in recreation:

Years with the City of Enterprise:

Back to Listing