en Call DoAction (strAction, objQueue, Request ("jobid"), Request ("StartId"), Request ("EndId")) End If strClient = Request("Client") Call SetPrinterVariables (objHelper, strPrinter) objHelper.Close strView = SetView (strClient, strPrinter, Request ("View"), Request ("StartId"), Request ("EndId")) Response.Expires = 0 %> > <% Dim strTitle Dim strLeftPaneUrl Dim strConnect const L_Title_Text = "%1 on %2" const L_FramesWarning_Text = "This web page uses frames, but your browser doesn't support them." strTitle = RepString2(L_Title_Text, strCleanString( GetFriendlyName (objQueue.PrinterName, session(COMPUTER))), session(LOCAL_SERVER) ) If bEnableConnect Then strConnect = "1" Else strConnect = "0" End If strLeftPaneUrl = "ipp_0005.asp?eprinter=" & strEncodedPrinter & VIEW_EQUALS & strView & ATCONNECT & strConnect & ATURLPRINTER & strURLPrinter strLeftPaneUrl = strLeftPaneUrl & ATASP1 & strASP1 & ATPAGE & CStr(Int(Rnd*10000)) %> <% =Write (strTitle) %> <body> <p><%=Write(L_FramesWarning_Text)%></p> </body>