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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim SEO__MMColParam SEO__MMColParam = "/index.asp" If (JustFileName <> "") Then SEO__MMColParam = JustFileName End If %> <% Dim rsCSSMenu1 Dim rsCSSMenu1_cmd Dim rsCSSMenu1_numRows Set rsCSSMenu1_cmd = Server.CreateObject ("ADODB.Command") rsCSSMenu1_cmd.ActiveConnection = MM_CCommunity_DB_STRING rsCSSMenu1_cmd.CommandText = "SELECT * FROM menu_andover" 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 "ccleft" DynCSSMenu1.setAnimation "" DynCSSMenu1.setImgReplace false 'End DynCSSMenu1 %> <% Dim lsPath, arPath ' Obtain the virtual file path 'lsPath = Request.ServerVariables("SCRIPT_NAME") ' Split the path along the /s. This creates an ' one-dimensional array 'arPath = Split(lsPath, "/") ' The last item in the array contains the file name 'JustFileName =arPath(UBound(arPath,1)) 'response.write(justfilename) JustFileName =request.ServerVariables("URL") %> <% Dim SEO Dim SEO_cmd Dim SEO_numRows Set SEO_cmd = Server.CreateObject ("ADODB.Command") SEO_cmd.ActiveConnection = MM_CCommunity_DB_STRING SEO_cmd.CommandText = "SELECT * FROM SEO_Page_Info WHERE Webpage = ? and community='Andover'" 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 %> <%=(SEO.Fields.Item("Title").Value)%> for Andover "> , <%=(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)%>"> <% 'Make a transaction dispatcher instance Dim tNGs: Set tNGs = new tNG_dispatcher tNGs.Init "" %> <% ' Start trigger Dim formValidation: Set formValidation = new tNG_FormValidation formValidation.Init formValidation.addField "Phone_1", true, "text", "", "", "", "" formValidation.addField "Phone_2", true, "text", "", "", "", "" formValidation.addField "Phone_3", true, "text", "", "", "", "" formValidation.addField "email_address", true, "text", "email", "", "", "" tNGs.prepareValidation formValidation ' End trigger %> <% ' Make an insert transaction instance Dim ins_Master_signup: Set ins_Master_signup = new tNG_insert ins_Master_signup.init MM_CCommunity_DB_STRING tNGs.addTransaction ins_Master_signup ' Register triggers ins_Master_signup.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "KT_Insert1") ins_Master_signup.registerTrigger Array("BEFORE", "Trigger_Default_FormValidation", 10, formValidation) ins_Master_signup.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "sign_up_thank_you.asp") ' Add columns ins_Master_signup.setTable "Master_signup" ins_Master_signup.addColumn "Project_name", "STRING_TYPE", "POST", "Project_name", "Summer Survival" ins_Master_signup.addColumn "Text_field_1", "STRING_TYPE", "POST", "Text_field_1", "Andover" ins_Master_signup.addColumn "Phone_1", "STRING_TYPE", "POST", "Phone_1", "" ins_Master_signup.addColumn "Phone_2", "STRING_TYPE", "POST", "Phone_2", "" ins_Master_signup.addColumn "Phone_3", "STRING_TYPE", "POST", "Phone_3", "" ins_Master_signup.addColumn "email_address", "STRING_TYPE", "POST", "email_address", "" ins_Master_signup.addColumn "Date_submitted", "DATE_TYPE", "POST", "Date_submitted", "{now}" ins_Master_signup.addColumn "signup1", "CHECKBOX_1_0_TYPE", "POST", "signup1", "0" ins_Master_signup.addColumn "signup2", "CHECKBOX_1_0_TYPE", "POST", "signup2", "0" ins_Master_signup.addColumn "signup3", "CHECKBOX_1_0_TYPE", "POST", "signup3", "0" ins_Master_signup.addColumn "signup4", "CHECKBOX_1_0_TYPE", "POST", "signup4", "0" ins_Master_signup.addColumn "signup5", "CHECKBOX_1_0_TYPE", "POST", "signup5", "0" ins_Master_signup.setPrimaryKey "num", "NUMERIC_TYPE", "", "" %> <% 'Execute all the registered transactions tNGs.executeTransactions %> <% 'Get the transaction recordset Dim rsMaster_signup Dim rsMaster_signup_numRows Set rsMaster_signup = tNGs.getRecordset("Master_signup") rsMaster_signup_numRows = 0 %>

" width="155" height="112" border="0">

" width="615" height="74">

Hide All | Show All

<% 'Dynamic CSS Menu Response.write (DynCSSMenu1.render) %>

<% Response.Write tNGs.displayValidationRules()%>

We have a sign up this month for those residents interested in getting quotes. This is a FREE no-obligation quote.

RESIDENT BENEFIT: A service provider may afford to offer better pricing as the number of customers in the community grow. It also makes te community more relevant to the provider which should result in better service.

PROVIDER BENEFIT: The benefit of the sign up process is that the providers can quote multiple residents during one visit to the community.

Please indicate which items you would like quotes for. You can select as many as you would like. We need a contact name and number so the service providers can contact you. This will be the only information we provide to the service providers.

<% Response.Write tNGs.getErrorMsg() %>

Phone:	(" size="3" />) " size="3" />- " size="4" /> <%=(tNGs.displayFieldHint("Phone_1"))%> <%=(tNGs.displayFieldError("Master_signup", "Phone_1"))%> <%=(tNGs.displayFieldHint("Phone_2"))%> <%=(tNGs.displayFieldError("Master_signup", "Phone_2"))%><%=(tNGs.displayFieldHint("Phone_3"))%> <%=(tNGs.displayFieldError("Master_signup", "Phone_3"))%>
Email_address:	" size="32" /> <%=(tNGs.displayFieldHint("email_address"))%> <%=(tNGs.displayFieldError("Master_signup", "email_address"))%>
Pest Control :	type="checkbox" name="signup1" id="signup1" value="1" /> <%=(tNGs.displayFieldError("Master_signup", "signup1"))%>
Lawn & Ornamental	type="checkbox" name="signup2" id="signup2" value="1" /> <%=(tNGs.displayFieldError("Master_signup", "signup2"))%>

" /> " />

Patent Pending status awarded for unique business process

The names and/or logos of the listed communities belong to the repective communities. Inclusion does not imply specific endorsement of services offered by CCommunity.

<% SEO.Close() Set SEO = Nothing %> <% rsCSSMenu1.Close() Set rsCSSMenu1 = Nothing %>