<%@ CODEPAGE=65001 %>
<%
'------------------------------------------------------------
'
' Microsoft Internet Printing Project
'
' Copyright (c) Microsoft Corporation. All rights reserved.
'
'------------------------------------------------------------
Option Explicit
%>
<%
Response.Expires = 0
Const L_TitlePrintError_Text = "Internet Printing Error"
Const L_UnknownErr_Message = "An unknown error happened, please contact your administrator"
%>
>
<% =Write(L_TitlePrintError_Text) %>
<%=Write(CLIENT_FONT)%>
<%Const L_PrtFail_Text = "
Printer Installation Failed
"%>
<%=Write(L_PrtFail_Text)%>
<%
Dim iCode
Dim strError
iCode = Request("code")
If iCode <> "" Or iCode <>"0" Then
Dim objPrinter
Set objPrinter = Server.CreateObject (PROGID_HELPER)
On Error Resume Next
Err.Clear
strError = objPrinter.ErrorDscp (iCode)
If Err.Number <> 0 Then
Const L_ErrMsg_Text = "Error Code = %1"
strError = RepString1(L_ErrMsg_Text,Hex (iCode))
End If
Else
strError = L_UnknownErr_Message
End If
Response.Write (Write (strError))
%>
<%=END_FONT%>