<% if len(town2) > 0 then %> Click here for a printable version of this page.
Click here to download this data in Excel format.
Click here to download this data in comma-delimited format. <% else %> Click here for a printable version of this page.
Click here to download this data in Excel format.
Click here to download this data in comma-delimited format. <% end if %>

<% SQL="SELECT * FROM FormatedTableSmallTowns WHERE Municipality='" & Replace(town,"'","''") & "'" set rs = server.CreateObject("ADODB.recordset") rs.Open SQL,db,adOpenForwardOnly 'end generate variable names if len(town2) > 0 then SQL="SELECT * FROM FormatedTableSmallTowns WHERE municipality='" & Replace(town2,"'","''") & "'" set rs2 = server.CreateObject("ADODB.recordset") rs2.Open SQL,db,adOpenForwardOnly end if %>

<% response.write("Municipality ") if len(town2) > 0 then response.write("Profiles for ") else response.write("Profile for ") end if response.write(town) if len(town2) > 0 then response.write(" and ") response.write(town2) end if %>

<% variableType="" varNum=1 While varNum < 6 if varNum = 1 then variableType="Demographic" variableFull="Population" end if if varNum = 2 then variableType="IncomeandPoverty" variableFull="Income and Poverty" end if if varNum = 3 then variableType="Housing" variableFull="Housing" end if 'if varNum = 4 then ' variableType="Health" ' variableFull="Health" 'end if if varNum = 4 then variableType="Education" variableFull="Education" end if 'if varNum = 6 then ' variableType="LaborandEmployment" ' variableFull="Labor Force and Employment" 'end if 'if varNum = 7 then ' variableType="Agriculture" ' variableFull="Agriculture and Natural Resources" 'end if if varNum = 5 then variableType="CommunityHealth" variableFull="Other" end if SQL1="SELECT * FROM MetaDataSmallTowns WHERE VariableType='" &variableType& "' AND smalltowns='1' AND Visible='1' AND Indicator='1' ORDER BY 'ORDER'" set rsMeta = server.CreateObject("ADODB.recordset") rsMeta.Open SQL1,db,adOpenForwardOnly %> <% if len(town2) > 0 then %> <% response.write("") response.write("") else %> <%end if%> <% currentVar = "" While Not rsMeta.EOF response.write("") response.write("") currentVar = rsMeta.Fields("Variable") response.write("") if len(town2) > 0 then response.write("") end if response.write("") rsMeta.MoveNext Wend %> <% if len(town2) > 0 then %> <% else %> <%end if %> <% varNum = varNum + 1 Wend ' NOW FOR COUNTY AND SQL1="SELECT * FROM FormatedTableSmallTowns where Municipality = '" & Replace(town,"'","''") & "'" set rs = server.CreateObject("ADODB.recordset") rs.Open SQL1,db,adOpenForwardOnly if len(town2) > 0 then SQL1="SELECT * FROM FormatedTableSmallTowns where Municipality = '" & Replace(town2,"'","''")& "'" set rs2 = server.CreateObject("ADODB.recordset") rs2.Open SQL1,db,adOpenForwardOnly end if %> <% response.write("") response.write("") response.write("") if len(town2) > 0 then response.write("") end if response.write("") %>

<%= variableFull %>	" & Town & "	" & town2 & "	<%= variableFull %>
" &rsMeta.Fields("FullName")& "	" &rs.Fields(currentVar)& "	" &rs2.Fields(currentVar)& "

County	" & rs.Fields("CountyofTown") & "	" & rs2.Fields("CountyofTown") & "

<% rs.close if len(town2) > 0 then rs2.close end if %>

Updated on January 22, 2008
Click here to view definitions and sources