<%@ 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_Error_WebPnPDl_Disabled_Text = "Downloading print drivers over HTTP was disabled by policy, please contact your administrator"
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
If iCode = 1260 Then ' 1260 is for the ERROR_ACCESS_DISABLED_BY_POLICY constant.
strError = L_Error_WebPnPDl_Disabled_Text
Else
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
End If
Else
strError = L_UnknownErr_Message
End If
Response.Write (Write (strError))
%>
<%=END_FONT%>