<% Dim isRemoved, isCustomer, bid, mth, oc, ix, it, indKey2, nextDue If fv Is Nothing Then Set fv = b isRemoved = (b("status") & "" = "removed") isCustomer = (b("is_customer") & "" = "1") bid = CLng(id) nextDue = False If Not IsNull(b("next_action_date")) Then If IsDate(b("next_action_date")) Then nextDue = (CDate(b("next_action_date")) <= Date) End If %> <% Flash().ShowErrorsIfPresent : Flash().ShowSuccessIfPresent %>

<%= H(b("name")) %>

"><%= Businesses_StatusLabel(b("status")) %> <% If isCustomer Then %>Customer<% End If %> <% If Len(b("industry_name") & "") > 0 Then %><%= H(b("industry_name")) %><% End If %>
<% If isRemoved Then %>
Removed<% If Not IsNull(b("removed_at")) Then Response.Write " on " & Date_Fmt(b("removed_at")) %>. <% If Len(b("removed_reason") & "") > 0 Then %>Reason: <%= H(b("removed_reason")) %><% End If %>
<% ElseIf Not IsNull(b("next_action_date")) Then %>
py-2"> Next contact: <%= Date_Fmt(b("next_action_date")) %><% If nextDue Then Response.Write " — due" %>
<% End If %>
<% If Not isRemoved Then %>

Log a contact

<% For Each mth In Businesses_Methods() %> /> <% Next %>
Quick:
<% End If %>

History (<%= interactions.Count %>)

<% If interactions.Count = 0 Then %>

No contact logged yet.

<% Else %>
    <% For ix = 0 To interactions.Count - 1 Set it = interactions(ix) %>
  • <%= Date_Fmt(it("contacted_at")) %> <%= H(Businesses_Label(Businesses_Methods(), it("method"))) %> <% If Len(it("outcome") & "") > 0 Then %><%= H(Businesses_Label(Businesses_Outcomes(), it("outcome"))) %><% End If %> <% If Not IsNull(it("follow_up_date")) Then %> again on <%= Date_Fmt(it("follow_up_date")) %><% End If %>
    <% If Len(it("notes") & "") > 0 Then %>
    <%= Html_Nl2Br(it("notes")) %>
    <% End If %>
    • <% Next %>
<% End If %>

Details

<% If Len(b("phone") & "") > 0 Then %><% End If %> <% If Len(b("email") & "") > 0 Then %><% End If %> <% If Len(b("website") & "") > 0 Then %><% End If %> <% If Len(b("address1") & "") > 0 Or Len(b("city") & "") > 0 Then %>
<%= H(b("address1")) %><% If Len(b("address1") & "") > 0 And Len(b("city") & "") > 0 Then Response.Write ", " %><%= H(b("city")) %><% If Len(b("state") & "") > 0 Then Response.Write ", " & H(b("state")) %> <%= H(b("zip")) %>
<% End If %>
<% If Not dup Is Nothing Then %>
Nothing was saved yet. The <%= dup("matched") %> you entered is already used by " target="_blank" rel="noopener"><%= H(dup("name")) %>. Fix it, or press Save anyway to keep both.
<% End If %>
<% If Not dup Is Nothing Then %><% End If %>
" maxlength="255" required />
" maxlength="150" />
" maxlength="40" />
" maxlength="255" />
" maxlength="255" />
" maxlength="255" />
" maxlength="100" />
" maxlength="50" />
" maxlength="20" />
" />
/>
" />
<% If Not isRemoved Then %>

Remove from list

Removed businesses are hidden from the list and won't be re-added by an import. You can restore them.
<% End If %>

Added <%= Date_Fmt(b("created_at")) %><% If Not IsNull(b("import_batch_id")) Then Response.Write " · import batch #" & b("import_batch_id") %> <% If Len(b("source") & "") > 0 Then %>· <%= H(b("source")) %><% End If %>