<%@ CODEPAGE=949 %> <% ' Replace the above line with your localized code page number '------------------------------------------------------------ ' ' Microsoft Internet Printing Project ' ' Copyright (c) Microsoft Corporation 1998 ' ' '------------------------------------------------------------ option explicit %> <% CheckSession Response.Expires = 0 Dim strPrinter, strLocal, strJobEta Dim objPrinter, objQueue Const L_OpenPrinter_Text = "ÇÁ¸°ÅÍ ¿­±â: %1" strPrinter = OleCvt.DecodeUnicodeName (request ("eprinter")) strLocal = session(LOCAL_SERVER) Set objQueue = GetObject("WinNT://" & session(COMPUTER) & "/" & strPrinter) Dim strTitle Const L_PrinterOn_Text = "%2ÀÇ %1" strTitle = LARGE_FONT_TAG & RepString2(L_PrinterOn_Text, GetFriendlyName (objQueue.PrinterName, session(COMPUTER) ), session(LOCAL_SERVER)) & END_FONT Set objPrinter = Server.CreateObject(PROGID_HELPER) On Error Resume Next objPrinter.open "\\" & session(COMPUTER) & "\" & strPrinter If Err Then Call ErrorHandler ( RepString1(L_OpenPrinter_Text, strPrinter) ) End If strJobEta = JobEtaInfo (objPrinter) objPrinter.Close %> <%=SetCodePage%>

<% =Write (strTitle) %> <% =Write(strJobEta) %>