<%@ CODEPAGE=65001 %>
<%
'------------------------------------------------------------
'
' Microsoft Internet Printing Project
'
' Copyright (c) Microsoft Corporation. All rights reserved.
'
'------------------------------------------------------------
Option Explicit
%>
<%
Response.Expires = 0
Dim strTitlePrintError_Text, strError_WebPnPDownload_Disabled, strUnknownErr_Message
strTitlePrintError_Text = OleCvt.ASPString(IDS_ASP_INET_ERROR)
strError_WebPnPDownload_Disabled = OleCvt.ASPString(IDS_ASP_DOWNLOAD_DISABLED)
strUnknownErr_Message = OleCvt.ASPString(IDS_ASP_UNKNOWN_ERROR)
%>
>
<% =Write(strTitlePrintError_Text) %>
<%=Write(CLIENT_FONT)%>
<%
Dim strPrtFail_Text
strPrtFail_Text = "
" & OleCvt.ASPString(IDS_ASP_PRINTER_INSTALL_FAILED) & "
"
%>
<%=Write(strPrtFail_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 = strError_WebPnPDownload_Disabled
Else
Dim objPrinter
Set objPrinter = Server.CreateObject (PROGID_HELPER)
On Error Resume Next
Err.Clear
strError = objPrinter.ErrorDscp (iCode)
If Err.Number <> 0 Then
strError = OleCvt.ASPString1(IDS_ASP_ERROR_CODE_2, Hex (iCode))
End If
End If
Else
strError = strUnknownErr_Message
End If
Response.Write (Write (strError))
%>
<%=END_FONT%>