|
|
| version 1.33, 2004/03/23 09:43:44 | version 1.69, 2004/10/07 09:23:44 |
|---|---|
| Line 1 | Line 1 |
| @main2[] | ^connect[oracle://iagency:pwd@oracle]{ |
| ^switch[2]{ | ^string:sql{select 2*2 from dual}<br> |
| ^case(1){one} | ^try{ |
| ^case[DEFAULT]{def} | ^string:sql{select 2*2x from dual} |
| }{ | |
| $exception.handled(1) | |
| exception($exception.comment) handled<br> | |
| } | |
| ^string:sql{select 2*2 from dual}<br> | |
| } | } |
| @get[] | |
| $result[ | |
| $._default{^math:random(10)} | |
| ] | |
| #end @getBasketData[] | |
| @main[] | |
| $h[^get[]] | |
| =$h.1= | |