<%@ Language=VBScript %> ספריה וירטואלית

"> מיון לפי שם ספר
> מיון לפי שם המחבר
>מיון לפי נושא הספר
">ספרים אחרונים שהוכנסו
תנאי שימוש בספרייה
חזרה לעמוד הראשי

 

 

 

 

 

<% sub1=killchars(Request("sub")) set rsZmani=Server.CreateObject("adodb.recordset") 'if sub1=0 then Response.Write("מסודרים לפי א"ב של שם הספר") 'if sub1=998 then Response.Write("הספרים האחרונים שהוספו לאתר") 'if sub1=999 then Response.Write("מסודרים לפי א"ב של שם המחבר") 'if sub1>0 and sub1<998 then ' Response.Write(" בנושא ") ' rsZmani.Open "select name from book_sub where id="&killchars(Request("sub")),con,3,3 ' rsZmani.MoveFirst ' Response.Write(rsZmani.Fields("name")) ' rsZmani.Close 'end if %>

<% '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 rs.MoveFirst Response.Write("

") set rsZmani=nothing rs.Close set rs=nothing con.close set con=nothing %>