<%@ LANGUAGE=VBScript EnableSessionState=false LCID=1033 %> <% ' ------------------------------- PRE-PAGE ------------------------------------- Sub PrePage ' -------------------------- ' PrePage ' -------------------------- General_PrePage() ' -------------------------- ' Setup Page Variables ' -------------------------- Page.Title = "Neighborhoods" Page.HideToolbar = HIDE_TOOLBAR End Sub ' ------------------------------- POST-PAGE ------------------------------------ Sub PostPage General_PostPage() End Sub ' -------------------------------- OUTPUT -------------------------------------- Sub Output Dim Region, Regions Set Regions = GetList("city_regions") Response.Write("

" & bt_NormalText) For Each Region In Regions If (IsBlank(Trim(Region))) Then Response.Write("" & Regions(Region) & "
") Else %> <%= Regions(Region) %>
<% End If Next Response.Write(et_NormalText & "

") End Sub %>