|
|
<%=rs.Fields("title1")%>
הקבצים בפורמט PDF
<%
set rsZmani=Server.CreateObject("adodb.recordset")
rsZmani.Open "select * from book where url like '%vl/tohen.asp?id="&killchars(request("id"))&"'" ,con,3,3
if rsZmani.eof=false then
rsZmani.Movefirst
bookIndex=rsZmani.fields("id")
else
bookIndex=0
end if
rsZmani.close
set rsE=Server.CreateObject("adodb.recordset")
rsE.Open "select title from ency_value1 where id="&rs.Fields("ency1") ,con,3,3
if rs.Fields("ency1")<>0 then
rsE.MoveFirst
Response.Write("במידה והקבצים לא נפתחים, יש להתקין תוכנת acrobat reader. לחץ כאן כדי להתקין את התוכנה פתיחת הקובץ עשויה להמשך כדקה, נא להמתין בסבלנות "&" לפרטים נוספים, עיין באנציקלופדיה דעת בערך ") Response.Write("") Response.Write(rsE.Fields(0)) Response.Write("") end if rsE.Close if rs.Fields("ency2")<>0 then rsE.Open "select title from ency_value1 where id="&rs.Fields("ency2") ,con,3,3 rsE.MoveFirst Response.Write(" וכן בערך ") Response.Write("") Response.Write(rsE.Fields(0)) Response.Write("") rsE.Close end if bookflalg=false if rs.Fields("book1")<>0 then bookflag=true rsE.Open "select name,url from book where id="&rs.Fields("book1") ,con,3,3 rsE.MoveFirst Response.Write(" "&" עיין גם בספר "&rsE.fields("name")&"") Response.Write("") rsE.Close end if if rs.Fields("book2")<>0 then rsE.Open "select name,url from book where id="&rs.Fields("book2") ,con,3,3 rsE.MoveFirst Response.Write(" וכן בספר ") Response.Write(""&rsE.fields("name")&"") rsE.Close end if sqlstr="select id,title1 from pdf_main where book1="&bookIndex&" or book2="&bookIndex 'Response.Write(" sqlstr="&sqlstr) rsE.Open sqlstr,con,3,3 if rsE.eof=false then rsE.MoveFirst do until rsE.EOF if bookflag=false then Response.Write(" "&" עיין גם בספר "&rsE.fields("title1")&"") bookflag=true else Response.Write(" וכן בספר ") Response.Write(""&rsE.fields("title1")&"") end if rsE.movenext loop set rsE=nothing %>
<%
if rs.Fields("tohen")=true then
Response.Write("
")
Response.Write(" ")
end if
if rs.Fields("tohen")=false then Response.Write("תוכן הספר") Response.Write(" ")
do until rs2.EOF
if rs2.Fields("koteret")<>"" then
if rs2.Fields("koteret_url")<>"" then Response.Write("")
Response.Write(" ")
rs2.MoveNext
loop
Response.Write("") ktov(rs2.Fields("koteret")) Response.Write("") if rs2.Fields("koteret_url")<>"" then Response.Write("") if rs2.Fields("koteret_free_text")<>"" then Response.Write(" "&rs2.Fields("koteret_free_text")&"") end if if rs2.Fields("filenum")<>"" then Response.Write("  ")
Response.Write("")
if rs2.Fields("file_type")=2 then Response.write(".doc>")
if rs2.Fields("file_type")=3 then Response.write(".docx>")
Response.Write(rs2.Fields("href_text"))
Response.Write("")
end if
if rs2.Fields("free_text")<>"" then
Response.Write("
 ") rsZmani.Open "select * from book_ency_title where book_id="&bookIndex ,con,3,3 if rsZmani.eof=false then rsZmani.Movefirst do until rsZmani.EOF Response.Write(" "&"הספר מוזכר באנציקלופדיה דעת גם בערך/ים: ")
Response.Write(" ")
response.write(rsZmani.Fields("ency_title"))
Response.Write(" ")
rsZmani.MoveNext
loop
end if
rsZmani.close
sqlstr="SELECT book_name_sub.sub_id, book_name_sub.book_id, book_sub.name FROM book_sub INNER JOIN book_name_sub ON book_sub.id = book_name_sub.sub_id and book_name_sub.book_id="&bookIndex
rsZmani.Open sqlstr ,con,3,3
if rsZmani.eof=false then
rsZmani.Movefirst
Response.Write("רשימת ספרים בספריה וירטואלית, בתחום: ")
do until rsZmani.EOF
Response.Write("")
response.write(rsZmani.Fields("name"))
Response.Write(" ")
rsZmani.MoveNext
loop
Response.Write(" ")
end if
rsZmani.close
%>
<%
rs2.Close
if rs.Fields("back1")<>0 then
rs2.Open "select * from pdf_back where id="&rs.Fields("back1") ,con,3,3
Response.Write("
|
