<%@ Language=VBScript %> <% on error resume next dim flag flag=false sqlstr="select name, perush, mid_title, auther,auther2 from daf_perush where " if Request("text1")="" then sqlstr=sqlstr&"(mik_id="&killchars(Request("text0")) &" or mik_id2="&Request("text0")&")" else if Request("text2")="" then sqlstr=sqlstr&"(sub_id="&killchars(Request("text1"))&" or sub_id2="&Request("text1")&")" else sqlstr=sqlstr&"(daf_id="&killchars(Request("text2"))&" or daf_id2="&killchars(Request("text2"))&")" end if end if if Request("selectclass")<>0 then sqlstr=sqlstr&" and (class_id=15 or class_id="&killchars(Request("selectclass"))&" or class_id2="&killchars(Request("selectclass"))&")" if Request("selectauther")<>0 then sqlstr=sqlstr&" and (auther="&killchars(Request("selectauther"))&" or auther2="&killchars(Request("selectauther"))&")" 'Response.Write(""&sqlstr&"") if Request("selectd1")<>0 then sqlstr=sqlstr&" and (sub_id="&killchars(Request("selectd1"))&" or sub_id2="&killchars(Request("selectd1"))&")" 'Response.Write(""&sqlstr&"") if Request("selectauther")<>0 then sqlstr=sqlstr&" and (auther="&killchars(Request("selectauther"))&" or auther2="&killchars(Request("selectauther"))&")" 'Response.Write(""&sqlstr&"") sqlstr=sqlstr&" order by name" set rs=Server.CreateObject("adodb.recordset") 'sqlstr="select name,id,mid_title from perush where daf_id="&Request("text2") 'Response.Write("
sqlstr="&sqlstr) rs.Open sqlstr,con,3,3 %> דפי לימוד


<% if rs.BOF and rs.EOF then Response.Write("
"&"אין קבצים העונים על הנתונים שביקשת"&"
") else rs.movefirst set rsA=Server.CreateObject("adodb.recordset") do until rs.EOF Response.Write("") rsA.Open "select name from daf_auther where id="&rs.Fields("auther")&" or id="&rs.Fields("auther2"),con,3,3 rsA.MoveFirst Response.Write(rs.fields("name")&" / "&rsA.fields("name")) rsA.MoveNext if rsA.EOF=False then response.Write(", "&rsA.fields("name")) rsA.Close Response.Write("
") rs.MoveNext loop end if rs.Close set rs=nothing set rsA=nothing con.Close set con=nothing %>