Cacher is the code snippet organizer for pro developers

'***************************************************************************
'*** Name   : GetScriptExecutionName
'*** Purpose: Get the name of the runtime environment
'*** Inputs : lMode (the ID of the runtime environment)
'*** Outputs: 
'***
'*** Return : String
'**************************************************************************
Public Function GetScriptExecutionName(lMode As Long) As String
 
   Select Case lMode
   Case 0
      GetScriptExecutionName = "Unknown"
   Case 1
      GetScriptExecutionName = "Server"
   Case 2
      GetScriptExecutionName = "Validation"
   Case 3
      GetScriptExecutionName = "Server Design"
   Case 4
      GetScriptExecutionName = "Validation Design"
   Case 5
      GetScriptExecutionName = "Verification"
   Case 7
      GetScriptExecutionName = "Document Review"
   End Select
 
End Function