Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
<%@ CODEPAGE=65001 %><%'------------------------------------------------------------'' Microsoft Internet Printing Project'' Copyright (c) Microsoft Corporation. All rights reserved.''------------------------------------------------------------ Option Explicit%><!-- #include file = "ipp_util.inc" --><% Response.Expires = 0 Const L_TitlePrintError_Text = "Internet Printing Error" Const L_UnknownErr_Message = "An unknown error happened, please contact your administrator"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html lang=<%=L_Language%>><head><Meta Http-equiv="Content-Type" Content="text/html; CHARSET=UTF-8"><title><% =Write(L_TitlePrintError_Text) %></title></head>
<body>
<%=Write(CLIENT_FONT)%><p><%Const L_PrtFail_Text = "<H2>Printer Installation Failed</H2>"%><%=Write(L_PrtFail_Text)%></p><font size=2><% 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))
%></font><%=END_FONT%>
</body></html>
|
