<%@ Language=VBScript %> <% set rs=Server.CreateObject("adodb.recordset") rs.Open "select * from indx_hodaot order by date2 desc, id ",con,3,3 Sub ktov(x) zmani=x while InStr(1,zmani,chr(13))>0 zmani=left(zmani,InStr(1,zmani,chr(13))-1)&"
"&mid(zmani,InStr(1,zmani,chr(13))+1) wend x=zmani Response.Write(x)'(mystring) end Sub %> דעת - חדש באתר
<% if rs.EOF=false then rs.MoveFirst 'flag1=false do until rs.EOF '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("• ") if rs.Fields("mudgash") then Response.Write("") if rs.Fields("mafrid") then Response.Write("") ktov(rs.Fields("text1")) if rs.Fields("mafrid") then Response.Write("") if rs.Fields("mudgash") then Response.Write("") if rs.Fields("url")<>"" then Response.Write("
") 'end if rs.MoveNext loop %>
<% rs.close set rs=nothing Con.Close set con=nothing %>