%@ EnableSessionState=false %> <% ' ==================================================================================== ' Library: Global ' Project: LaCorp ' Programmers: Trevor Lohrbeer ' ' Description: Contains general functions ' ==================================================================================== ' ==================================================================================== ' GLOBAL VARIABLES ' ==================================================================================== ' ------------------------------- ' File Location Constants ' ------------------------------- Dim HomeDir HomeDir = Request.ServerVariables("APPL_PHYSICAL_PATH") ' ------------------------------- ' Database Connection String ' ------------------------------- Dim DBConnection ' DBConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & HomeDir & "\LaCorp.mdb" DBConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & HomeDir & "\data\LaCorp.mdb" ' ------------------------------- ' Database Constants ' ------------------------------- Const adOpenKeyset = 1 Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adCmdTable = 2 ' ------------------------------- ' Other Constants ' ------------------------------- ' 5/22/03 R.Pride - Increased number of rates from 10 to 15 ' 10/20/03 R.Pride - Increaded number of rates per group to 25 ' Const NUM_RATES_PER_RATEGROUP = 25 ' Number of rates that can be created per rate group ' ------------------------------- ' Global Variables ' ------------------------------- Dim ErrorMessage ErrorMessage = "" ' ==================================================================================== ' FORMATTING FUNCTIONS ' ==================================================================================== ' ------------------------------------------------------------------------------------ ' ConvertToHtml ' ' Converts a text field to HTML by converting all end-of-line delimiters to the ' appropriate HTML tags. ' Function ConvertToHtml(inText) inText = Replace(inText, VbCrLf & VbCrLf, "
")
inText = Replace(inText, VbCrLf, "
")
ConvertToHtml = inText
End Function
' ====================================================================================
' ERROR FUNCTIONS
' ====================================================================================
' ------------------------------------------------------------------------------------
' DisplayErrorMessage
'
' Output an error message as a bulleted list, if any error messages exist.
'
Sub DisplayErrorMessage()
If ErrorMessage <> "" Then
Response.Write "
"
Response.Write "The following errors occurred:"
Response.Write "
|
|
Services
| Rates | Join | What's
New | Staff Directory | What
is a Credit Union?
Links | Open Door | Financial | Privacy Policy | Home |