לדף
ראשי
<%=rsValue.Fields("title")%>
<%if rsValue.Fields("title2")<>"" then Response.Write("
"&rsValue.Fields("title2")&"
") if rsValue.Fields("summary")<>"" then Response.Write(chr(13)&"
")
ktov(rsValue.Fields("summary"))
Response.Write("
")
Response.Write("") end if ktov(rsValue.Fields("text")) if rsValue.Fields("auther")<>"" then Response.Write("
מקור הערך: "&rsValue.Fields("auther")&"
")
set rsUser=Server.CreateObject("adodb.recordset")
sqlstr="select * from ency_value_user where status=1 and value_id="&killchars(Request("id1"))
'Response.Write("sqlstr="&sqlstr) 'Response.Write(sqlstr) rsUser.Open sqlstr ,con,3,3 if not rsUser.BOF then rsUser.MoveFirst Response.Write("
הערות לערך: ") do until rsUser.EOF Response.Write("
שם המעיר: ") Response.Write(rsUser.Fields("auther")) Response.Write("
הערה: ") ktov(rsUser.Fields("text")) if rsUser.Fields("source")<>"" then Response.Write("
מקור ההערה: ") Response.Write(rsUser.Fields("source")) end if if rsUser.Fields("http1")<>"" then Response.Write("
לעיון נוסף: ") Response.Write("") Response.Write(rsUser.Fields("http1_text")&"
") end if if rsUser.Fields("http2")<>"" then Response.Write("") Response.Write(rsUser.Fields("http2_text")&"
") end if Response.Write("
") rsUser.movenext loop end if rsUser.Close set rsUser = nothing %>
יש לך מה להוסיף או להעיר? &value_name='<%=rsValue.Fields("title")%>'>לחץ כאן
<% if rsValue.Fields("picture")<>"" then Response.Write("
") if rsValue.Fields("picture_text")<>"" then Response.Write(""&rsValue.Fields("picture_text")&"") set rsMore=Server.CreateObject("adodb.recordset") sqlstr="select * from ency_more where value_id="&killchars(Request("id1")) rsMore.Open sqlstr ,con,3,3 moreflag=0 if not rsMore.BOF then rsmore.MoveFirst Response.Write("
| ערכים קרובים | ") Response.Write("
| ")
moreflag=1
do until rsMore.EOF
Response.Write(""&rsMore.Fields("more_name")&" ") rsMore.movenext loop ' Response.Write(" |
| ערכים קרובים | ") Response.Write("
| ")
moreflag=1
end if
do until rsMore.EOF
Response.Write(""&rsMore.Fields("value_name")&" ") rsMore.movenext loop end if if moreflag=1 then Response.Write(" |
<% set rsSite=Server.CreateObject("adodb.recordset") sqlstr="select * from ency_site_search where value_id="&killchars(Request("id1")) rsSite.Open sqlstr ,con,3,3 if not rsSite.BOF then rsSite.MoveFirst Response.Write("
| נושאים קרובים באתר דעת | ") Response.Write("
| ")
do until rsSite.EOF
Response.Write(""&rsSite.Fields("search_text")&" ") rsSite.movenext loop Response.Write(" | ")
Response.Write("
| ספרים בטקסט מלא | ") Response.Write("
| ")
if not rsBook.BOF then
rsBook.MoveFirst
do until rsBook.EOF
Response.Write(""&rsBook.Fields("title1")&" ") rsBook.movenext loop rsBook.Close end if if not rsBook2.BOF then rsBook2.MoveFirst do until rsBook2.EOF Response.Write(""&rsBook2.Fields("book_title")&" ") rsBook2.movenext loop rsBook2.Close end if ' sqlstr="select * from book_ency_title where ency_id="&killchars(Request("id1")) ' rsBook.Open sqlstr ,con,3,3 ' do until rsBook.EOF ' Response.Write(""&rsBook.Fields("book_title")&" ") ' rsBook.movenext ' loop Response.Write(" | ")
Response.Write("