<%
' File: Session.Inc
' 
' Contains: Display Error function used by ASP files
'
' Copyright (c) Microsoft Corporation 1993-1998. All rights reserved.

Function displayError (strMessage, intMode, intAction)
  ' intMode = 0 - don't display <SCRIPT> tags
  ' intMode = 1 - display <SCRIPT> tags

  ' intAction = 0 - no Action
  ' intAction = 1 - history.back()

  Dim strNewMessage
  strNewMessage = ""

  If intMode = 1 Then
    strNewMessage = "<SCRIPT LANGUAGE='JavaScript'>"
  End If
  strNewMessage = strNewMessage & "alert(""" & strMessage
  If Err.Number <> 0 Then
    strNewMessage = strNewMessage & "\n\nError Number: " & CStr(Hex(Err.Number)) & "\nError Description: " & Err.Description
  End If
  strNewMessage = strNewMessage & """);"
  If intAction = 1 Then
    strNewMessage = strNewMessage & "history.back();"
  End If
  If intMode = 1 Then
    strNewMessage = strNewMessage & "</SCRIPT>"
  End If
  Response.Write strNewMessage
  Err.Clear
End Function

Function encodePath (strPath)
  encodePath = Replace(Replace(strPath, ":", "%3A"), " ", "%20")
End Function
%>