.gif" width=600 >

<% 'Response.Write("sub1="&sub1) set rs=Server.CreateObject("adodb.recordset") if sub1=0 then rs.Open "select * from book order by name",con,3,3 if sub1=998 then rs.Open "select * from book_auther_name order by [date] desc",con,3,3 if sub1=999 then rs.Open "select * from book_auther_name order by auther,auther1,auther2,name",con,3,3 if sub1>0 and sub1<998 then rsZmani.Open "select * from book_name_sub where sub_id="&killchars(Request("sub")),con,3,3 zmani="(0" if not rsZmani.EOF then rsZmani.MoveFirst do until rsZmani.EOF zmani=zmani&","&rsZmani.Fields("book_id") rsZmani.MoveNext loop end if zmani=zmani+")" rs.Open "select * from book where id in "&zmani&" order by name",con,3,3 rsZmani.Close end if if sub1>0 and sub1<998 then rsZmani.Open "select name from book_sub where id="&killchars(Request("sub")),con,3,3 rsZmani.MoveFirst Response.Write("