Local and County Party
Web Site Directory

This page is the place to find local and county party web sites. 
We hope that you find what you need. 
If  your local party site is not listed, please Submit it to us here.

<%sub query2listm(myquery,myname,myDSN) 'dim conntemp, rstemp set conntemp=server.createobject("adodb.connection") conntemp.open myDSN 'set rstemp=conntemp.execute(myquery) set rstemp = server.CreateObject("ADODB.Recordset") rstemp.Open myquery,conntemp %> All Offices <% do while not rstemp.eof thisfield=trim(RStemp(0)) if isnull(thisfield) or thisfield="" then ' ignore else response.write "" & thisfield & "" end if rstemp.movenext loop %> <%rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing end sub%> <%sub query3listm(myquery,myname,myDSN) dim conntemp, rstemp set conntemp=server.createobject("adodb.connection") conntemp.open myDSN set rstemp=conntemp.execute(myquery) %> All States <% do while not rstemp.eof thisfield=trim(RStemp(0)) if isnull(thisfield) or thisfield="" then ' ignore else response.write "" & thisfield & "" end if rstemp.movenext loop %> <%rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing end sub%>