tracking_kits/App/app.config.asp

<%
dim appCss, appJs, appBootStrapJs, jqueryJs, siteTitle, iconsCss, tabulatorCss, dev
Routes.Initialize "/App/"
siteTitle = "Mail Tracking Kits"
iconsCss = "https://cdn.jsdelivr.net/npm/bootstrap-icons@1.11.3/font/bootstrap-icons.min.css"
appCss = "https://cdn.jsdelivr.net/npm/bootstrap@5.0.2/dist/css/bootstrap.min.css"
tabulatorCss = "/dist/css/tabulator_bootstrap5.css"
appBootStrapJs = "https://cdn.jsdelivr.net/npm/bootstrap@5.0.2/dist/js/bootstrap.bundle.min.js' integrity='sha384-MrcW6ZMFYlzcLA8Nl+NtUVF0sA7MsXsP1UyJoMp4YLEuNSfAP+JcXn/tWtIaxVXM' crossorigin='anonymous"
jqueryJs = "https://cdnjs.cloudflare.com/ajax/libs/jquery/3.7.1/jquery.min.js' integrity='sha512-v2CJ7UaYy4JwqLDIrZUI/4hqeoQieOmAZNXBeQyjo21dadnwR+8ZaIJVT8EE2iyI61OV8e6M8PP2/4hpQINQ/g==' crossorigin='anonymous' referrerpolicy='no-referrer"
dev = true
dim ExportDirectory
select case dev
    case "local" 
        ExportDirectory = "D:\Development\Tracking_Kits\uploads"
    case true
        ExportDirectory = "D:\Development\Tracking_Kits\uploads"
    case else
        ExportDirectory ="\\kci-syn-cl01\PC Transfer\TrackingDataExport\"

end select

Function LoadChilkatSerial()
    dim fallbackSerial : fallbackSerial = "KENTCM.CB1022025_RGzBPM5J655e"
    LoadChilkatSerial = fallbackSerial

    On Error Resume Next
    dim fso : set fso = Server.CreateObject("Scripting.FileSystemObject")
    dim serialPath : serialPath = Request.ServerVariables("APPL_PHYSICAL_PATH") & "Tests\chillkat_serial"

    If Err.Number = 0 Then
        If fso.FileExists(serialPath) Then
            dim serialFile : set serialFile = fso.OpenTextFile(serialPath, 1, False)
            If Err.Number = 0 Then
                dim fileSerial : fileSerial = Trim(serialFile.ReadAll())
                serialFile.Close
                set serialFile = Nothing

                If Len(fileSerial) > 0 Then
                    LoadChilkatSerial = fileSerial
                End If
            Else
                Err.Clear
            End If
        End If
    Else
        Err.Clear
    End If

    set fso = Nothing
    On Error GoTo 0
End Function

'=======================================================================================================================
' Set Global Variables Here
'=======================================================================================================================
dim glob:set glob = Server.CreateObject("Chilkat_9_5_0.Global")
dim success:success = glob.UnlockBundle(LoadChilkatSerial())
If (success <> 1) Then
    put(glob.LastErrorText)
End If
%>