--- parser3/src/www/htdocs/Attic/index.html	2001/07/26 16:16:57	1.247
+++ parser3/src/www/htdocs/Attic/index.html	2001/09/10 11:17:41	1.302
@@ -1,39 +1,11 @@
 @main[]
-^connect[odbc://dsn=voz7^;uid=voz^;pwd=pwd]{
-#    ^void::sql{insert into хрен (a) values (1)}
-	$id(^int:sql{select 5})
-	$id
+^testdom0[]
 
-	$пресса[^table::sql{select * from press where header='$form:h'}]
-	^пресса.menu{
-		$пресса.id, $пресса.date_row, $пресса.header, $пресса.short_text^rem{, $пресса.full_text}, $пресса.mode
-	}[<br>]
-}
-<hr>
-#$response:status[404]
-#$response:location[/inh.html]
-#<hr>
-$таблица[^table::set{a	b
-1	2
-11	22
-}]
-^$таблица.fields.a=$таблица.fields.a<br>
-^$таблица.a=$таблица.a<br>
-<hr>
-$n[z]
-=^n.match[sdf][]{123}=
-<hr>
-
-=$3=
-<hr>
-
-$строка[123]
-^строка.match[(.);g]{($match.1)}
-<hr>
-$a{
-	$b[1]
-}
-^$b=$b<br>
-^$a!$a<br>
-^$b=$b<br>
-<hr>
+@testdom0[]
+$dom[^dom::load[test.xml]]
+^dom.save[windows-1251;write.xml]
+^dom.string[windows-1251]
+$файл[^dom.file[windows-1251]]
+^файл.save[binary;writefile.xml]
+$response:body[$файл]
+OK
\ No newline at end of file