Purple_Envelop_Order_Site/app/models/OrderDetailsLabels.asp

<%
'=======================================================================================================================
' Human-readable labels for the coded choice values written by continue.asp's SurveyJS
' model - falls back to the raw code for anything unrecognized rather than hiding it.
'=======================================================================================================================

Function LabelPrintOption(code)
    Select Case CStr(code & "")
        Case "AddressesAndPermit" : LabelPrintOption = "Addresses and state of Michigan permit"
        Case "PermitOnly"         : LabelPrintOption = "State of Michigan permit only"
        Case Else                 : LabelPrintOption = CStr(code & "")
    End Select
End Function

Function LabelPurpleBlueProvider(code)
    Select Case CStr(code & "")
        Case "ElectionSource" : LabelPurpleBlueProvider = "ElectionSource"
        Case "PSI"            : LabelPurpleBlueProvider = "PSI"
        Case "Spectrum"       : LabelPurpleBlueProvider = "Spectrum"
        Case "Other"          : LabelPurpleBlueProvider = "Other"
        Case Else             : LabelPurpleBlueProvider = CStr(code & "")
    End Select
End Function

Function LabelPermitOwnership(code)
    Select Case CStr(code & "")
        Case "KCIPermit" : LabelPermitOwnership = "KCI permit"
        Case "OwnPermit" : LabelPermitOwnership = "My organization's permit"
        Case Else        : LabelPermitOwnership = CStr(code & "")
    End Select
End Function

Function LabelEnvelopeStock(code)
    Select Case CStr(code & "")
        Case "KCIStock" : LabelEnvelopeStock = "KCI's stock"
        Case "OwnStock" : LabelEnvelopeStock = "My own stock"
        Case Else       : LabelEnvelopeStock = CStr(code & "")
    End Select
End Function

Function LabelPrintStyle(code)
    Select Case CStr(code & "")
        Case "ColorCoding" : LabelPrintStyle = "Color Coding"
        Case "BlackOnly"   : LabelPrintStyle = "Black Ink Only"
        Case Else          : LabelPrintStyle = CStr(code & "")
    End Select
End Function

Function LabelColorCodingBy(code)
    Select Case CStr(code & "")
        Case "Precinct" : LabelColorCodingBy = "Precinct"
        Case "Election" : LabelColorCodingBy = "Election"
        Case Else       : LabelColorCodingBy = CStr(code & "")
    End Select
End Function

Function LabelPostageOption(code)
    Select Case CStr(code & "")
        Case "FirstClass"      : LabelPostageOption = "Yes, at First Class Rate ($0.721/pc.)"
        Case "NonprofitRate"   : LabelPostageOption = "Yes, at Nonprofit Rate ($0.263/pc.)"
        Case "PresortStandard" : LabelPostageOption = "Yes, at Presort Standard Rate ($0.473/pc.)"
        Case "No"              : LabelPostageOption = "No"
        Case Else              : LabelPostageOption = CStr(code & "")
    End Select
End Function

Function LabelNonprofitStatus(code)
    Select Case CStr(code & "")
        Case "Yes"     : LabelNonprofitStatus = "Yes"
        Case "No"      : LabelNonprofitStatus = "No"
        Case "NotSure" : LabelNonprofitStatus = "I'm not sure"
        Case Else      : LabelNonprofitStatus = CStr(code & "")
    End Select
End Function
%>