Prospecting/app/lib/lib.BusinessHelpers.asp

<%
'=======================================================================================================================
' BUSINESS HELPERS: domain vocabulary (touch methods, outcomes, statuses) and list query-string building
'=======================================================================================================================

' Touch methods and outcomes: Array(key, label)
Function Businesses_Methods()
    Businesses_Methods = Array(Array("call", "Call"), Array("email", "Email"), Array("visit", "Visit"), Array("mail", "Mailed"))
End Function

Function Businesses_Outcomes()
    Businesses_Outcomes = Array( _
        Array("no_answer", "No answer"), _
        Array("left_voicemail", "Left voicemail"), _
        Array("spoke_with_someone", "Spoke with someone"), _
        Array("interested", "Interested"), _
        Array("follow_up_later", "Follow up later"), _
        Array("not_interested", "Not interested"), _
        Array("wrong_number", "Wrong number"), _
        Array("remove", "Remove from list") _
    )
End Function

' Label for a key in one of the Array(key, label) lists above (the key itself when unknown).
Function Businesses_Label(list, key)
    Dim item
    Businesses_Label = key & ""
    For Each item In list
        If item(0) = key Then Businesses_Label = item(1)
    Next
End Function

Function Businesses_IsKey(list, key)
    Dim item
    Businesses_IsKey = False
    For Each item In list
        If item(0) = key Then Businesses_IsKey = True
    Next
End Function

Function Businesses_StatusLabel(s)
    Select Case s
        Case "new":       Businesses_StatusLabel = "New"
        Case "contacted": Businesses_StatusLabel = "Contacted"
        Case "follow_up": Businesses_StatusLabel = "Follow-up"
        Case "removed":   Businesses_StatusLabel = "Removed"
        Case Else:        Businesses_StatusLabel = s & ""
    End Select
End Function

Function Businesses_StatusClass(s)
    Select Case s
        Case "new":       Businesses_StatusClass = "text-bg-secondary"
        Case "contacted": Businesses_StatusClass = "text-bg-info"
        Case "follow_up": Businesses_StatusClass = "text-bg-warning"
        Case "removed":   Businesses_StatusClass = "text-bg-dark"
        Case Else:        Businesses_StatusClass = "text-bg-light"
    End Select
End Function

' Splits pasted text like "a@x.com;b@y.com" (also commas, spaces, new lines) into addresses.
' Returns Dictionary("valid" -> Dictionary(lowercased email -> 1), "invalid" -> Dictionary(index -> text)).
Function BulkLog_ParseEmails(text)
    Dim re, parts, p, valid, invalid, result
    Set valid = CreateObject("Scripting.Dictionary")
    Set invalid = CreateObject("Scripting.Dictionary")
    Set re = New RegExp
    re.Pattern = "^[^@\s;,]+@[^@\s;,]+\.[^@\s;,]+$"
    parts = Split(Replace(Replace(Replace(Replace(text & "", vbCrLf, ";"), vbLf, ";"), ",", ";"), vbTab, ";"), ";")
    For Each p In parts
        p = LCase(Trim(Replace(p, " ", "")))
        If Len(p) > 0 And Len(p) <= 255 Then
            If re.Test(p) Then
                valid(p) = 1
            Else
                invalid.Add invalid.Count, Left(p, 80)
            End If
        End If
    Next
    Set result = CreateObject("Scripting.Dictionary")
    Set result("valid") = valid
    Set result("invalid") = invalid
    Set BulkLog_ParseEmails = result
End Function

' Query string for the list: current filters with optional page / sort overrides.
Function Businesses_QS(f, page, sort, dir)
    Dim k, s
    s = ""
    For Each k In Array("q", "industry", "area", "status", "show", "contacted", "phone")
        If f.Exists(k) Then
            If Len(f(k)) > 0 Then s = s & "&" & k & "=" & Server.URLEncode(f(k))
        End If
    Next
    If Len(sort) > 0 Then s = s & "&sort=" & Server.URLEncode(sort)
    If Len(dir) > 0 Then s = s & "&dir=" & Server.URLEncode(dir)
    If page > 1 Then s = s & "&page=" & page
    If Len(s) > 0 Then Businesses_QS = "?" & Mid(s, 2) Else Businesses_QS = ""
End Function
%>