| כ-1000 דפי עבודה, מבחנים ומערכי שיעור בפורמט word ממויינים לפי מקצועות, נושאים, כיתות יעד ומחברים |
 
|
|||||||||||||||||
| |
היפוך עברית | |
הפוך לדף הבית | |
אודות האתר | |
צור קשר | |
ספר אורחים | |
חדש באתר | |
פורומים | |
דף הבית |  |
|
|
אזרחות
|
|
חדש באתר - מחודשים קודמים <% set rs=Server.CreateObject("adodb.recordset") rs.Open "select * from indx_new order by date2 desc, id ",con,3,3 if rs.EOF=false then rs.MoveFirst datenow=rs.Fields("date2") flag1=false linecount=1 do until rs.EOF or linecount>53 if rs.Fields("mafrid")=1 then linecount=linecount+3 else linecount=linecount+1 end if rs.MoveNext loop do until rs.EOF if rs.Fields("mafrid")=1 then Response.Write("") linecount=linecount+3 else linecount=linecount+1 if datenow<>rs.Fields("date2") then Response.Write(" ") datenow=rs.Fields("date2") flag1=false end if 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("") Response.Write(rs.Fields("text1")) if rs.Fields("mudgash") then Response.Write("") if rs.Fields("url")<>"" then Response.Write("") Response.Write(" ") end if rs.MoveNext loop %> <% rs.close set rs=nothing Con.Close set con=nothing %>
|