Prospecting/app/views/Businesses/show.asp

<%
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 %>

<nav aria-label="breadcrumb">
  <ol class="breadcrumb small mb-2">
    <li class="breadcrumb-item"><a href="/businesses">Businesses</a></li>
    <li class="breadcrumb-item active" aria-current="page"><%= H(b("name")) %></li>
  </ol>
</nav>

<div class="d-flex flex-wrap align-items-center gap-2 mb-3">
  <h1 class="h3 mb-0"><%= H(b("name")) %></h1>
  <span class="badge <%= Businesses_StatusClass(b("status")) %>"><%= Businesses_StatusLabel(b("status")) %></span>
  <% If isCustomer Then %><span class="badge text-bg-success">Customer</span><% End If %>
  <% If Len(b("industry_name") & "") > 0 Then %><span class="badge text-bg-light border"><%= H(b("industry_name")) %></span><% End If %>
</div>

<% If isRemoved Then %>
<div class="alert alert-dark d-flex justify-content-between align-items-center">
  <div>
    <strong>Removed</strong><% 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 %>
  </div>
  <form method="post" action="/businesses/<%= bid %>/restore" class="mb-0">
    <input type="hidden" name="csrf" value="<%= H(csrf) %>" />
    <button type="submit" class="btn btn-sm btn-outline-dark">Restore to list</button>
  </form>
</div>
<% ElseIf Not IsNull(b("next_action_date")) Then %>
<div class="alert <% If nextDue Then Response.Write "alert-warning" Else Response.Write "alert-info" %> py-2">
  <i class="bi bi-calendar-event"></i> Next contact: <strong><%= Date_Fmt(b("next_action_date")) %></strong><% If nextDue Then Response.Write " &mdash; due" %>
</div>
<% End If %>

<div class="row g-3">
  <!-- LEFT: log a touch + history -->
  <div class="col-lg-7">
    <% If Not isRemoved Then %>
    <div class="card shadow-sm mb-3">
      <div class="card-body">
        <h2 class="h5 mb-3">Log a contact</h2>
        <form method="post" action="/businesses/<%= bid %>/log" id="logForm">
          <input type="hidden" name="csrf" value="<%= H(csrf) %>" />

          <div class="mb-3">
            <div class="btn-group" role="group" aria-label="How">
              <% For Each mth In Businesses_Methods() %>
              <input type="radio" class="btn-check" name="method" id="m_<%= mth(0) %>" value="<%= mth(0) %>" autocomplete="off"<% If mth(0) = "call" Then Response.Write " checked" %> />
              <label class="btn btn-outline-primary btn-sm" for="m_<%= mth(0) %>"><%= H(mth(1)) %></label>
              <% Next %>
            </div>
          </div>

          <div class="row g-2 mb-2">
            <div class="col-md-5">
              <label for="outcome" class="form-label small mb-1">Outcome</label>
              <select class="form-select form-select-sm" id="outcome" name="outcome">
                <option value="">&mdash;</option>
                <% For Each oc In Businesses_Outcomes() %>
                <option value="<%= oc(0) %>"><%= H(oc(1)) %></option>
                <% Next %>
              </select>
            </div>
            <div class="col-6 col-md-3">
              <label for="contacted_at" class="form-label small mb-1">Date</label>
              <input type="date" class="form-control form-control-sm" id="contacted_at" name="contacted_at" value="<%= today %>" max="<%= Date_Iso(Date + 1) %>" />
            </div>
            <div class="col-6 col-md-4">
              <label for="follow_up_date" class="form-label small mb-1">Contact again on</label>
              <input type="date" class="form-control form-control-sm" id="follow_up_date" name="follow_up_date" value="" />
            </div>
          </div>

          <div class="mb-2 small">
            <span class="text-muted">Quick:</span>
            <button type="button" class="btn btn-link btn-sm p-0 me-2" data-days="3">3 days</button>
            <button type="button" class="btn btn-link btn-sm p-0 me-2" data-days="7">1 week</button>
            <button type="button" class="btn btn-link btn-sm p-0 me-2" data-days="14">2 weeks</button>
            <button type="button" class="btn btn-link btn-sm p-0 me-2" data-days="30">1 month</button>
            <button type="button" class="btn btn-link btn-sm p-0 text-secondary" data-days="0">clear</button>
          </div>

          <div class="mb-3">
            <label for="log_notes" class="form-label small mb-1">Notes</label>
            <textarea class="form-control form-control-sm" id="log_notes" name="notes" rows="3" maxlength="10000"></textarea>
          </div>

          <button type="submit" class="btn btn-primary btn-sm"><i class="bi bi-check2"></i> Save contact</button>
          <span class="text-muted small ms-2" id="removeHint" hidden>This will remove the business from the list (the notes are kept as the reason).</span>
        </form>
      </div>
    </div>
    <% End If %>

    <div class="card shadow-sm mb-3">
      <div class="card-body">
        <h2 class="h5 mb-3">History <span class="text-muted fs-6">(<%= interactions.Count %>)</span></h2>
        <% If interactions.Count = 0 Then %>
        <p class="text-muted mb-0">No contact logged yet.</p>
        <% Else %>
        <ul class="list-unstyled mb-0">
          <% For ix = 0 To interactions.Count - 1
               Set it = interactions(ix) %>
          <li class="border-start border-3 ps-3 pb-3">
            <div class="d-flex flex-wrap gap-2 align-items-center">
              <strong><%= Date_Fmt(it("contacted_at")) %></strong>
              <span class="badge text-bg-primary"><%= H(Businesses_Label(Businesses_Methods(), it("method"))) %></span>
              <% If Len(it("outcome") & "") > 0 Then %><span class="badge text-bg-light border"><%= H(Businesses_Label(Businesses_Outcomes(), it("outcome"))) %></span><% End If %>
              <% If Not IsNull(it("follow_up_date")) Then %><span class="small text-muted"><i class="bi bi-arrow-return-right"></i> again on <%= Date_Fmt(it("follow_up_date")) %></span><% End If %>
            </div>
            <% If Len(it("notes") & "") > 0 Then %><div class="mt-1"><%= Html_Nl2Br(it("notes")) %></div><% End If %>
          </li>
          <% Next %>
        </ul>
        <% End If %>
      </div>
    </div>
  </div>

  <!-- RIGHT: details -->
  <div class="col-lg-5">
    <div class="card shadow-sm mb-3">
      <div class="card-body">
        <h2 class="h5 mb-3">Details</h2>

        <div class="mb-3 small">
          <% If Len(b("phone") & "") > 0 Then %><div><i class="bi bi-telephone"></i> <a href="tel:<%= H(b("phone")) %>"><%= H(b("phone")) %></a></div><% End If %>
          <% If Len(b("email") & "") > 0 Then %><div><i class="bi bi-envelope"></i> <a href="mailto:<%= H(b("email")) %>"><%= H(b("email")) %></a></div><% End If %>
          <% If Len(b("website") & "") > 0 Then %><div><i class="bi bi-globe"></i> <a href="<% If LCase(Left(b("website"), 4)) = "http" Then Response.Write H(b("website")) Else Response.Write "https://" & H(b("website")) %>" target="_blank" rel="noopener noreferrer"><%= H(b("website")) %></a></div><% End If %>
          <% If Len(b("address1") & "") > 0 Or Len(b("city") & "") > 0 Then %><div><i class="bi bi-geo-alt"></i> <%= 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")) %>&nbsp;<%= H(b("zip")) %></div><% End If %>
        </div>

        <% If Not dup Is Nothing Then %>
        <div class="alert alert-warning small">
          <i class="bi bi-exclamation-triangle"></i>
          Nothing was saved yet. The <%= dup("matched") %> you entered is already used by
          <a href="/businesses/<%= dup("id") %>" target="_blank" rel="noopener"><%= H(dup("name")) %></a>.
          Fix it, or press <strong>Save anyway</strong> to keep both.
        </div>
        <% End If %>

        <form method="post" action="/businesses/<%= bid %>/update">
          <input type="hidden" name="csrf" value="<%= H(csrf) %>" />
          <% If Not dup Is Nothing Then %><input type="hidden" name="allow_duplicate" value="1" /><% End If %>

          <div class="mb-2">
            <label class="form-label small mb-1" for="f_name">Business name</label>
            <input type="text" class="form-control form-control-sm" id="f_name" name="name" value="<%= H(fv("name")) %>" maxlength="255" required />
          </div>
          <div class="mb-2">
            <label class="form-label small mb-1" for="f_contact">Contact</label>
            <input type="text" class="form-control form-control-sm" id="f_contact" name="contact_name" value="<%= H(fv("contact_name")) %>" maxlength="150" />
          </div>
          <div class="row g-2 mb-2">
            <div class="col-6">
              <label class="form-label small mb-1" for="f_phone">Phone</label>
              <input type="text" class="form-control form-control-sm" id="f_phone" name="phone" value="<%= H(fv("phone")) %>" maxlength="40" />
            </div>
            <div class="col-6">
              <label class="form-label small mb-1" for="f_email">Email</label>
              <input type="text" class="form-control form-control-sm" id="f_email" name="email" value="<%= H(fv("email")) %>" maxlength="255" />
            </div>
          </div>
          <div class="mb-2">
            <label class="form-label small mb-1" for="f_web">Website</label>
            <input type="text" class="form-control form-control-sm" id="f_web" name="website" value="<%= H(fv("website")) %>" maxlength="255" />
          </div>
          <div class="mb-2">
            <label class="form-label small mb-1" for="f_addr">Address</label>
            <input type="text" class="form-control form-control-sm" id="f_addr" name="address1" value="<%= H(fv("address1")) %>" maxlength="255" />
          </div>
          <div class="row g-2 mb-2">
            <div class="col-5"><label class="form-label small mb-1" for="f_city">City</label><input type="text" class="form-control form-control-sm" id="f_city" name="city" value="<%= H(fv("city")) %>" maxlength="100" /></div>
            <div class="col-3"><label class="form-label small mb-1" for="f_state">State</label><input type="text" class="form-control form-control-sm" id="f_state" name="state" value="<%= H(fv("state")) %>" maxlength="50" /></div>
            <div class="col-4"><label class="form-label small mb-1" for="f_zip">Zip</label><input type="text" class="form-control form-control-sm" id="f_zip" name="zip" value="<%= H(fv("zip")) %>" maxlength="20" /></div>
          </div>
          <div class="row g-2 mb-2">
            <div class="col-6">
              <label class="form-label small mb-1" for="f_ind">Industry</label>
              <select class="form-select form-select-sm" id="f_ind" name="industry_id">
                <option value="">(none)</option>
                <% For Each indKey2 In industries.Keys %>
                <option value="<%= indKey2 %>"<% If CStr(fv("industry_id") & "") = indKey2 Then Response.Write " selected" %>><%= H(industries(indKey2)) %></option>
                <% Next %>
              </select>
            </div>
            <div class="col-6">
              <label class="form-label small mb-1" for="f_indnew">&hellip;or add new</label>
              <input type="text" class="form-control form-control-sm" id="f_indnew" name="industry_new" maxlength="100" value="<% If fv.Exists("_industry_new") Then Response.Write H(fv("_industry_new")) %>" />
            </div>
          </div>
          <div class="row g-2 mb-2 align-items-end">
            <div class="col-6">
              <div class="form-check">
                <input class="form-check-input" type="checkbox" id="f_cust" name="is_customer" value="1"<% If fv("is_customer") & "" = "1" Then Response.Write " checked" %> />
                <label class="form-check-label small" for="f_cust">Previous customer</label>
              </div>
            </div>
            <div class="col-6">
              <label class="form-label small mb-1" for="f_first">First order</label>
              <input type="date" class="form-control form-control-sm" id="f_first" name="first_order_date" value="<%= Date_Iso(fv("first_order_date")) %>" />
            </div>
          </div>
          <div class="mb-3">
            <label class="form-label small mb-1" for="f_notes">Notes <span class="text-muted">(other people, anything else)</span></label>
            <textarea class="form-control form-control-sm" id="f_notes" name="notes" rows="4" maxlength="10000"><%= H(fv("notes")) %></textarea>
          </div>
          <button type="submit" class="btn <% If dup Is Nothing Then Response.Write "btn-outline-primary" Else Response.Write "btn-warning" %> btn-sm"><% If dup Is Nothing Then Response.Write "Save details" Else Response.Write "Save anyway" %></button>
        </form>
      </div>
    </div>

    <% If Not isRemoved Then %>
    <div class="card border-danger-subtle shadow-sm mb-3">
      <div class="card-body">
        <h2 class="h6 text-danger">Remove from list</h2>
        <form method="post" action="/businesses/<%= bid %>/remove" class="d-flex gap-2">
          <input type="hidden" name="csrf" value="<%= H(csrf) %>" />
          <input type="text" class="form-control form-control-sm" name="reason" placeholder="Reason (optional)" maxlength="255" />
          <button type="submit" class="btn btn-outline-danger btn-sm text-nowrap">Remove</button>
        </form>
        <div class="form-text">Removed businesses are hidden from the list and won't be re-added by an import. You can restore them.</div>
      </div>
    </div>
    <% End If %>

    <p class="text-muted small">
      Added <%= Date_Fmt(b("created_at")) %><% If Not IsNull(b("import_batch_id")) Then Response.Write " &middot; import batch #" & b("import_batch_id") %>
      <% If Len(b("source") & "") > 0 Then %>&middot; <%= H(b("source")) %><% End If %>
    </p>
  </div>
</div>

<script>
  (function () {
    var fu = document.getElementById('follow_up_date');
    document.querySelectorAll('[data-days]').forEach(function (btn) {
      btn.addEventListener('click', function () {
        var n = parseInt(btn.getAttribute('data-days'), 10);
        if (!fu) return;
        if (n === 0) { fu.value = ''; return; }
        var d = new Date(); d.setDate(d.getDate() + n);
        var m = ('0' + (d.getMonth() + 1)).slice(-2), day = ('0' + d.getDate()).slice(-2);
        fu.value = d.getFullYear() + '-' + m + '-' + day;
      });
    });
    var oc = document.getElementById('outcome'), hint = document.getElementById('removeHint');
    if (oc && hint) oc.addEventListener('change', function () { hint.hidden = (oc.value !== 'remove'); });
  })();
</script>