<%@ Language=VBScript %>
<%
set rs1=Server.CreateObject("adodb.recordset")
sqlstr="select id from daf_masehet where book_id="&killchars(Request("mik"))
'Response.Write(sqlstr)
rs1.Open sqlstr,con,3,3
rs1.MoveFirst
sqlrs3="select * from daf_daf where masehet_id=0"
do until rs1.EOF
sqlrs3=sqlrs3&" or masehet_id="&rs1.Fields("id")
rs1.MoveNext
loop
sqlrs3=sqlrs3&" order by masehet_id, name"
rs1.Close
set rs1=nothing
'Response.Write(sqlrs3)
set rs2=Server.CreateObject("adodb.recordset")
rs2.Open "select * from daf_masehet where book_id="&killchars(Request("mik"))&" order by name",con,3,3
set rs3=Server.CreateObject("adodb.recordset")
rs3.Open sqlrs3,con,3,3
set rszmani=Server.CreateObject("adodb.recordset")
rszmani.Open "select distinct auther from daf_perush where mik_id="&killchars(Request("mik"))&" or mik_id2="&killchars(Request("mik")),con,3,3
set rsMik=Server.CreateObject("adodb.recordset")
rsMik.Open "select name from daf_book where id="&killchars(Request("mik"))&" order by name",con,3,3
rszmani.MoveFirst
sqlrs5="select * from daf_auther where id=0"
do until rszmani.EOF
sqlrs5=sqlrs5&" or id="&rszmani.Fields("auther")
rszmani.MoveNext
loop
rszmani.Close
rszmani.Open "select distinct auther2 from daf_perush where mik_id="&killchars(Request("mik")),con,3,3
rszmani.MoveFirst
do until rszmani.EOF
sqlrs5=sqlrs5&" or id="&rszmani.Fields("auther2")
rszmani.MoveNext
loop
sqlrs5=sqlrs5&" order by name"
rszmani.Close
set rszmani=nothing
set rs4=Server.CreateObject("adodb.recordset")
rs4.Open "select * from daf_class",con,3,3
set rs5=Server.CreateObject("adodb.recordset")
rs5.Open sqlrs5,con,3,3%>
דפי עבודה לתלמיד
<%
dim masId
rs3.movefirst
masId=rs3.Fields("masehet_id")
Response.Write("
