User cache %CSP.Page 1 code lbErrTypes cache ",$LB("wv@vanhoecke.be"),"CSP - Error - "_$ZDT($H,4),"§DFL_HTML§",,1) Set %cspEHandler("PageLoadError","ACTIONS","ErrPage")=$LB("","OnPageVH") ;Set %cspEHandler("PageLoadError","ACTIONS")=$LB("Redir") ;Set %cspEHandler("PageLoadError","ACTIONS","Redir")=$LB("http://www.google.be") Set %cspEHandler("PreHTTPTimeOut","ACTIONS")=$LB("LogDB","xEmail","ErrPage") Set %cspEHandler("PreHTTPTimeOut","ACTIONS","LogDB")=$LB("DFL","TEST Err CSP",$LB("CustomLogError",,1)) Set %cspEHandler("PreHTTPTimeOut","ACTIONS","ErrPage")=$LB("","OnPageVH") Set %cspEHandler("HyperEventError","ERRORS",0)=$LB("*") Set %cspEHandler("HyperEventError","ERRORS",0,"ACTIONS")=$LB("LogDB","JSAlert","xRedir") Set %cspEHandler("HyperEventError","ERRORS",0,"ACTIONS","LogDB")=$LB("DFL","TEST Err CSP",$LB("CustomLogError",,1)) Set %cspEHandler("HyperEventError","ERRORS",0,"ACTIONS","JSAlert")=$LB("Error! "_$C(13,10)_"You will be redirected to another page.") Set %cspEHandler("HyperEventError","ERRORS",0,"ACTIONS","Redir")=$LB("http://192.168.1.67/VHISIE/TBX/Main.csp") Quit ]]> 1 code arErrInfo cache 1 code %Status 1 code %Boolean " Write !,(..HyperEventBody()) Write !,$c(9) Write "
" Write !,$c(9)_"",! Write " "_$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"
",! Write $c(9,9,9,9)_"

Test page for error catching Private

",! Write $c(9,9,9,9)_"

" Write "" Write " ",! Write $c(9,9,9,9)_"  " Write "" Write "  " Write "" Write "x" Write "" Write "

",! Write $c(9,9,9)_"
",! Write $c(9,9,9,9) Write "Renew Session"" timeoutcode='OnAppTimeOut();' document=""winLogout=window.open(); winLogout.location.href"" location=""about:blank"" style=""clsTmrSkeleton"">" Write !,"
",! Write " ",! Write "
",! Write "" Write !,$c(9,9,9)_"
",! Write $c(9) Write ..InsertHiddenFields(""),! Write "
" Write !,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,$c(9)_"Private Test for Errors",! Write !,$c(9) ;Set TestVar=UnknownVar Write !,!,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,$c(9) Write "" Write !,(..HyperEventHead()) Write !,"" ]]> 1 code %Boolean " Write !,!,!,! Set %session.AppTimeout = 25 Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 code TestData cache %String c:\cachesys\csp\admin1\Test4ErrorsPrivate.csp /csp/admin1/Test4ErrorsPrivate.csp 0 59885,45217 1