<% Dim dncNotesVal, dncPrivateNotesVal dncNotesVal = "" dncPrivateNotesVal = "" If Not IsNull(HouseholdController.household.DoNotCallNotes) Then dncNotesVal = HouseholdController.household.DoNotCallNotes If Not IsNull(HouseholdController.household.DoNotCallPrivateNotes) Then dncPrivateNotesVal = HouseholdController.household.DoNotCallPrivateNotes %> <% Flash().ShowSuccessIfPresent %> <% Flash().ShowErrorsIfPresent %>

<%= Server.HTMLEncode(HouseholdController.household.Address) %>

Edit
ID
<%= HouseholdController.household.Id %>
Address
<%= Server.HTMLEncode(HouseholdController.household.Address) %>
Street Number
<%= HouseholdController.household.StreetNumber %>
Street Name
<%= Server.HTMLEncode(HouseholdController.household.StreetName & "") %>
Type
<% If HouseholdController.household.IsBusiness = 1 Then %> Business <% Else %> Residential <% End If %> <% If HouseholdController.household.DoNotCall = 1 Then %> Do Not Call <% End If %>
Do Not Call Date
<% If IsDate(HouseholdController.household.DoNotCallDate) Then %> <%= FormatDateTime(HouseholdController.household.DoNotCallDate, 2) %> <% Else %> Not set <% End If %>
Do Not Call Notes
<% If Trim(dncNotesVal) <> "" Then %> <%= Server.HTMLEncode(dncNotesVal) %> <% Else %> None <% End If %>
Private DNC Notes
<% If Trim(dncPrivateNotesVal) <> "" Then %> <%= Server.HTMLEncode(dncPrivateNotesVal) %> <% Else %> None <% End If %>
Territory
Territory <%= HouseholdController.household.TerritoryId %>
Latitude
<%= Server.HTMLEncode(HouseholdController.household.Latitude & "") %>
Longitude
<%= Server.HTMLEncode(HouseholdController.household.Longitude & "") %>
<% If HouseholdController.household.Latitude <> "" And HouseholdController.household.Longitude <> "" Then %>
<% End If %>
Householder Names
Add Name
<% Dim hnIter, hn Set hnIter = HouseholdController.householderNames.Iterator() If Not hnIter.HasNext() Then %>
No householder names recorded. Add one
<% Else %> <% Do While hnIter.HasNext() Set hn = hnIter.GetNext() %> <% Loop %>
Name Type Letter Status Actions
<%= Server.HTMLEncode(hn.Name & "") %> <% If HouseholdController.household.IsBusiness = 1 Then %> Business <% Else %> Residential <% End If %>
<% If hn.LetterReturned = 1 Then %> <% Else %> <% End If %>
Edit
<% End If %>
Back to List View Territory Households
<% If HouseholdController.household.Latitude <> "" And HouseholdController.household.Longitude <> "" Then %> <% Dim mapProvider, googleMapsKey, mapTilerKey, mapTilerStyle, mapTilerSdkJsUrl, mapTilerSdkCssUrl mapProvider = LCase(Trim(GetAppSetting("MapProvider") & "")) If mapProvider <> "maptiler" Then mapProvider = "google" googleMapsKey = Trim(GetAppSetting("GoogleMapsApiKey") & "") mapTilerKey = Trim(GetAppSetting("MapTilerApiKey") & "") mapTilerStyle = Trim(GetAppSetting("MapTilerStyle") & "") If mapTilerStyle = "" Or LCase(mapTilerStyle) = "nothing" Then mapTilerStyle = "streets-v2" mapTilerSdkJsUrl = Trim(GetAppSetting("MapTilerSdkJsUrl") & "") mapTilerSdkCssUrl = Trim(GetAppSetting("MapTilerSdkCssUrl") & "") If mapTilerSdkJsUrl = "" Or LCase(mapTilerSdkJsUrl) = "nothing" Then mapTilerSdkJsUrl = "https://cdn.maptiler.com/maptiler-sdk-js/v3.0.0/maptiler-sdk.umd.min.js" If mapTilerSdkCssUrl = "" Or LCase(mapTilerSdkCssUrl) = "nothing" Then mapTilerSdkCssUrl = "https://cdn.maptiler.com/maptiler-sdk-js/v3.0.0/maptiler-sdk.css" %> <% If mapProvider = "maptiler" Then %> <% Else %> <% End If %> <% End If %>