<%
L_Error_Text = "Error"
L_Warning_Text = "Warning"
L_InvalidArgs_Text = "To use discussions, please browse to the msoffice directory."
L_GeneralFailure_Text = "General Server Failure."
hrErr = Request.QueryString("HRLOW") + 0
If hrErr = 530 Then
szErr = L_InvalidArgs_Text
Else
If IsEmpty(Session("MiscApis")) Then
Set Session("MiscApis") = Server.CreateObject("OWS.MiscApis.1")
End if
szErr = Session("MiscApis").GetOwsError(hrErr)
End If
If Len(szErr) < 1 Then
szErr = L_GeneralFailure_Text
End If
lAction = Request.QueryString("ACT")
lType = Request.QueryString("TYPE")
If lType = 0 Then
szTitle = L_Error_Text
Else
szTitle = L_Warning_Text
End If
%>
Office Server Extensions <%=szTitle%>
Error Number: <%=hrErr%>
Description: <%=szErr%>
Press the Back button on your browser to return.