דעת - חדש באתר

<%@ Language=VBScript %> <% set rs=Server.CreateObject("adodb.recordset") rs.Open "select TOP(4) id, name, url, date, auther, auther1, auther2, mahadir_id, itsuv_id, more_names from book_auther_name order by date desc, id ",con,3,3 %> דעת - חדש באתר

<% if rs.EOF=false then rs.MoveFirst 'flag1=false for i=1 to 4 'if flag1 then Response.Write("") 'Response.Write(rs.Fields("date2")) 'if flag1 then Response.Write("") 'flag1=true 'Response.Write(" ") if rs.Fields("url")<>"" then Response.Write("
• ") Response.Write(""&rs.Fields("name")&"") if rs.Fields("auther")<>"" then Response.Write(" / "&rs.Fields("auther")) 'if rs.Fields("hamlatza_text")<>"" then Response.Write("
"&rs.Fields("hamlatza_text")) Response.Write("") 'end if if rs.EOF=false then rs.MoveNext next %>

<% rs.close set rs=nothing Con.Close set con=nothing %>