|
<%
Response.Write(" ")
Response.Write("כל הערכים ")
Response.Write(" ")
Response.Write("ערכים חדשים ")
set rs=Server.CreateObject("adodb.recordset")
rs.Open "select * from ency_categories order by name" ,con,3,3
rs.MoveFirst
num1=2
do until rs.EOF
Response.Write(" ")
Response.Write(rs.Fields("name")&" ")
rs.MoveNext
num1=num1+1
if num1=9 then
Response.Write(" |