User cache %CSP.Page,cspBasis.GAProdTBox 1 code lbErrTypes cache 1 code %Status 1 code %Boolean " Write !,$c(9) If '((Flow="REF") || (Flow="SUBMIT")) Goto %csp00001 ;{ Write !,$c(9,9) If '((LoginState="NO") || (LoginState="OK")) Goto %csp00002 ;{ Write !,$c(9,9,9)_"

Deze URL wordt verwerkt ...

",! Write $c(9,9) Goto %csp00003 ;} %csp00002 If '(($E(LoginState,1,3)="ASK")) Goto %csp00004 ;{ Write !,$c(9,9,9) Set msgLogin=$S(LoginState="ASK_AGAIN":..WebTextValue("Foutief paswoord",Taal,"L")_". "_..WebTextValue("Probeer opnieuw",Taal,"L"), 1:..WebTextValue("Geef paswoord",Taal,"L")) Write !,$c(9,9,9) Write "
" Write !,$c(9,9,9) Write "
" Write !,..InsertHiddenFields("Access.csp"),! Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9) Write "" Write !,$c(9,9,9,9)_"",! Write $c(9,9,9)_" "_$c(9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9)_" "_$c(9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"
",! Write $c(9,9,9,9,9,9,9) Write "
" Write "Login" Write "
" Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9,9)_(msgLogin)_":
",! Write $c(9,9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9,9)_"
",! Write $c(9,9,9) Write "
" Write !,$c(9,9) Write "" Write !,$c(9,9,9) Write "
" Write !,"" Write !,$c(9,9,9)_"

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

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

",! Write $c(9,9,9),! Write $c(9,9) Goto %csp00003 ;} %csp00004 If '((LoginState="CONSTRUCTION")) Goto %csp00005 ;{ Write !,$c(9,9,9)_"",! Write $c(9,9)_" "_$c(9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9)_" "_$c(9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9)_" "_$c(9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"
",! Write $c(9,9,9,9,9,9) Do ..Include("Header.csp") Write !,$c(9,9,9,9,9)_"
" Write "" Write "
",! Write $c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9)_"Berekenen van TANDEMBOX is momenteel niet mogelijk. Gelieve later nog eens te proberen.
",! Write $c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9)_"Calculation n'est pas possible a ce moment. Veuillez essayer plus tard svp.
",! Write $c(9,9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9)_"Calculation is not possible at this moment. Please try again later.
",! Write $c(9,9,9,9,9)_"
",! Write $c(9,9) Goto %csp00003 ;} %csp00005 If '((LoginState="TRY_LATER")) Goto %csp00006 ;{ Write !,$c(9,9,9)_"Unable to login. Try again later. You are not allowed to access this data. Contact administrator.",! Write $c(9,9) Goto %csp00003 ;} %csp00006 ;{ Write !,$c(9,9,9)_"Unknown status to log in. It may be possible that the URL is invalid.",! Write $c(9,9) %csp00003 ;} Write !,$c(9,9),! Write $c(9) Goto %csp00007 ;} %csp00001 ;{ Write !,$c(9,9)_"This is not a valid URL.",! Write $c(9) %csp00007 ;} Write !,$c(9),! Write $c(9) Set %response.TraceDump=($G(%request.Data("DBG",1))'="" && $G(%request.Data("DBG",1))'="0") Write !,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,$c(9)_"TBox Decode URL",! Write $c(9) Write "" Write !,$c(9) Write "" Write !,"" ]]> 1 code %Boolean " Write !,!,!,! Do ..Include("PRGACNTs.INC") Write ! Set %session.AppTimeout = 905 // Session Data is set in the OnPreHTTP-method Write !,!,!,!,!,! Do ..OnPageHEAD() Write ! Do ..OnPageBODY() Write !,"" ]]> 1 code cache %Boolean c:\cachesys\csp\vhisie\TBX\Access.csp /vhisie/TBX/Access.csp 0 61409,65144 0