|
 כל הגיליונות לפי נושאים
<%
set rsG=Server.CreateObject("adodb.recordset")
rsG.Open "select * from mim_gilayon where ktav_et=1 and active=1 order by id desc" ,con,3,3
rsG.MoveFirst
'num1=1
do until rsG.EOF
Response.Write("")
Response.Write(mid(rsG.Fields("gilayon"),12,100)&" ")
'Response.Write(rsG.Fields("gilayon")&"")
rsG.MoveNext
'num1=num1+1
'if num1=5 then
' Response.Write(" | ")
set rs=Server.CreateObject("adodb.recordset")
rs.Open "select * from mim_category order by category" ,con,3,3
rs.MoveFirst
num1=0
do until rs.EOF
Response.Write(" ")
Response.Write(rs.Fields("category")&" ")
rs.MoveNext
num1=num1+1
if num1=11 then
Response.Write(" | 
