|
|
| version 1.48, 2004/06/18 15:55:47 | version 1.63, 2004/09/01 09:16:58 |
|---|---|
| Line 1 | Line 1 |
| ^connect[oracle://mts_imprimatur2:imp2@mts]{ | $s[^mail:send[ |
| # ^void:sql{create table paf(a clob)} | $.from[paf@design.ru] |
| # ^void:sql{insert into paf (a) values (/**a**/'a')} | $.to[paf@design.ru] |
| # ^void:sql{insert into paf (a) values (:unk)} | $.html{ |
| ^void:sql{delete from pif} | <b>ok</b> |
| ^void:sql{call paf(:a)}[ | } |
| $.bind[ | $.file[ |
| $.a[2] | $.xxxx[vvv] |
| ] | $.from[bug] |
| $.value[^file::load[binary;_bug.html]] | |
| ] | ] |
| ^int:sql{select count(*) from pif} | ]] |
| "^string:sql{select a from pif}" | ^s.save[a.eml] |
| OK | |
| # ^string:sql{select a from paf} | |
| OK | |
| } | |