<%=(SEO.Fields.Item("Title").Value)%>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim SEO__MMColParam SEO__MMColParam = "/index.asp" If (request.servervariables("URL") <> "") Then SEO__MMColParam = request.servervariables("URL") End If 'response.write(SEO__MMColParam) %> <% Dim SEO Dim SEO_cmd Dim SEO_numRows Set SEO_cmd = Server.CreateObject ("ADODB.Command") SEO_cmd.ActiveConnection = MM_TheWaterways_STRING SEO_cmd.CommandText = "SELECT * FROM SEO_Page_Info WHERE Webpage = ?" SEO_cmd.Prepared = true SEO_cmd.Parameters.Append SEO_cmd.CreateParameter("param1", 200, 1, 255, SEO__MMColParam) ' adVarChar Set SEO = SEO_cmd.Execute SEO_numRows = 0 %> <% Dim rsCSSMenu1 Dim rsCSSMenu1_cmd Dim rsCSSMenu1_numRows Set rsCSSMenu1_cmd = Server.CreateObject ("ADODB.Command") rsCSSMenu1_cmd.ActiveConnection = MM_Campbell_STRING rsCSSMenu1_cmd.CommandText = "SELECT * FROM menu_thewaterways ORDER BY label ASC" rsCSSMenu1_cmd.Prepared = true Set rsCSSMenu1 = rsCSSMenu1_cmd.Execute rsCSSMenu1_numRows = 0 %> <% 'Begin DynCSSMenu1 Set DynCSSMenu1 = new MX_Menu2 DynCSSMenu1.Init "DynCSSMenu1" DynCSSMenu1.setQuery rsCSSMenu1 DynCSSMenu1.setPK "sort" DynCSSMenu1.setFK "parent_id" DynCSSMenu1.setNameField "label" DynCSSMenu1.setTitleField "label" 'URL parameters DynCSSMenu1.setLinkField "webpage" DynCSSMenu1.setTargetField "" 'Layout DynCSSMenu1.highlightCurrent true DynCSSMenu1.setLevel 2 DynCSSMenu1.setLayout "expandable" DynCSSMenu1.setSkin "waterwaysproviders" DynCSSMenu1.setAnimation "" DynCSSMenu1.setImgReplace false 'End DynCSSMenu1 %> <%=(SEO.Fields.Item("Title").Value)%> "/> , <%=(SEO.Fields.Item("Alt_1").Value)%>, <%=(SEO.Fields.Item("Alt_2").Value)%>, <%=(SEO.Fields.Item("Alt_3").Value)%>, <%=(SEO.Fields.Item("Alt_4").Value)%>, <%=(SEO.Fields.Item("Alt_5").Value)%>, <%=(SEO.Fields.Item("Alt_6").Value)%>, <%=(SEO.Fields.Item("Alt_7").Value)%>, <%=(SEO.Fields.Item("Alt_8").Value)%>, <%=(SEO.Fields.Item("Alt_9").Value)%>, <%=(SEO.Fields.Item("Alt_10").Value)%>"/>

Website provided by Campbell Residential Services