Figure 1

Figure 1 Printing with ExecWB
<html>
<head>
<script language="VBScript">
SUB Print()
    OLECMDID_PRINT = 6
    OLECMDEXECOPT_DONTPROMPTUSER = 2
    OLECMDEXECOPT_PROMPTUSER = 1
    'Bring focus to the document so that it will be what prints:
    document.body.focus()
    'Call the "Print" command. Since the Internet Explorer/DOM didn't add 
    'the "print()" method until 5.0
    on error resume next
    call IEWB.ExecWB (OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER)
    if err.number <> 0 then
        alert "Nothing Printed"
    end if
END SUB
</script>
</head>
<body>
<object id="IEWB" width=0 height=0 classid="clsid:8856F961-340A-11D0-
                                     A96B-00C04FD705A2"></object>
•••
Figure 2 isClientConnected
Response.Buffer = True 

URLtoGo = Request.QueryString("redir") 
stat = Response.isClientConnected 

IF stat = False Then 
        'PWS Doesn't seem to like Abandon, So Timeout the Session in 1 
        'Minute 
        'Session.TimeOut = 1 
        Session.Abandon 
        ' Flush the page so abandon can complete 
        Response.Flush 
        Response.End     
        
End IF