לדף
ראשי
<%=rsMaamar.Fields("title1")%>
<%if rsMaamar.Fields("title2")<>"" then Response.Write(""&rsMaamar.Fields("title2")&"
")
if rsMaamar.Fields("auther")<>"" then Response.Write(""&rsMaamar.Fields("auther")&"
")
if rsMaamar.Fields("gilayon_id")<>"" then
set rsGilayon=Server.CreateObject("adodb.recordset")
sqlstr="select * from mim_gilayon where id="&rsMaamar.Fields("gilayon_id")
'Response.Write("sqlstr="&sqlstr)
rsGilayon.Open sqlstr ,con,3,3
rsGilayon.MoveFirst
Response.Write(""&rsGilayon.Fields("gilayon")&"
")
rsGilayon.close
set rsGilayon=nothing
end if
if rsMaamar.Fields("summary")<>"" then
Response.Write(chr(13)&"")
ktov(rsMaamar.Fields("summary"))
Response.Write("
")
end if
Response.Write("") ktov(rsMaamar.Fields("maamar")) if rsMaamar.Fields("mpicture")<>"" then Response.Write(chr(13)&"
")
ktov(rsMaamar.Fields("mpicture_text"))
Response.Write("
")
end if
if rsMaamar.Fields("albom")=true then
set rsAlbom=Server.CreateObject("adodb.recordset")
sqlstr="select * from mim_albom where maamar_id="&rsMaamar.Fields("id")&" order by line_num,pic_num"
'Response.Write("sqlstr="&sqlstr)
rsAlbom.Open sqlstr ,con,3,3
rsAlbom.MoveFirst
Response.Write("| ") else Response.Write(" | ")
Response.Write(" "&rsAlbom.Fields("pic_text")&" ")
Response.Write(" | ")
rsAlbom.MoveNext
loop
Response.Write("|
<% if rsMaamar.Fields("picture")<>"" then Response.Write("
") if rsMaamar.Fields("picture_text")<>"" then Response.Write("
"&rsMaamar.Fields("picture_text")&"
") if rsMaamar.Fields("side_text")<>"" then Response.Write("
")
ktov(rsMaamar.Fields("side_text"))
Response.Write("
")
end if
set rsE=Server.CreateObject("adodb.recordset")
if rsMaamar.Fields("ency1")<>0 then
rsE.Open "select title from ency_value1 where id="&rsMaamar.Fields("ency1") ,con,3,3
rsE.MoveFirst
Response.Write(""&" ערכים קשורים באנציקלופדיה דעת: ") Response.Write("") Response.Write(rsE.Fields(0)) Response.Write("") rsE.Close end if if rsMaamar.Fields("ency2")<>0 then rsE.Open "select title from ency_value1 where id="&rsMaamar.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 rsMaamar.Fields("book1")<>0 then bookflag=true rsE.Open "select name,url from book where id="&rsMaamar.Fields("book1") ,con,3,3 rsE.MoveFirst Response.Write("
"&" עיין גם בספר "&rsE.fields("name")&"") Response.Write("") rsE.Close end if if rsMaamar.Fields("book2")<>0 then rsE.Open "select name,url from book where id="&rsMaamar.Fields("book2") ,con,3,3 rsE.MoveFirst Response.Write(" וכן בספר ") Response.Write(""&rsE.fields("name")&"") rsE.Close end if set rsE=nothing %>