Businesses

<% For ci = 0 To UBound(cols) colKey = cols(ci)(0) : colLabel = cols(ci)(1) nextDir = "asc" : arrow = "" If (sort = colKey) Or (sort = "" And colKey = "name") Then If dir = "asc" Then nextDir = "desc" : arrow = " " Else nextDir = "asc" : arrow = " " End If %> <% Next %> <% Dim ri, r, due For ri = 0 To rows.Count - 1 Set r = rows(ri) %> <% Next %> <% If rows.Count = 0 Then %> <% End If %>

<%= colLabel %><%= arrow %>	Contact
"><%= H(r("name")) %> <% If r("is_customer") = 1 Then %>Customer<% End If %> <% If Len(r("contact_name") & "") > 0 Then %> <%= H(r("contact_name")) %> <% End If %>	<%= H(r("industry_name")) %>	<%= H(r("city")) %><% If Len(r("city") & "") > 0 And Len(r("state") & "") > 0 Then Response.Write ", " %><%= H(r("state")) %>	"><%= Businesses_StatusLabel(r("status")) %>	<%= Date_Fmt(r("last_contacted_at")) %>	"><%= Date_Fmt(r("next_action_date")) %>	<% If Len(r("phone") & "") > 0 Then %> " class="text-decoration-none"><%= H(r("phone")) %> <% End If %> <% If Len(r("email") & "") > 0 Then %> " class="text-decoration-none"><%= H(r("email")) %> <% End If %>
Nothing to show. Try different filters, or import a list.