 לדף
ראשי
<% Response.Write(" ")
Response.Write(sub1)
Response.Write("")
%>
|
<%
if Request("id1")=0 then
if Request("gilayon")>0 then
sqlstr="select title1,auther,id,category_id,gilayon_id,seder from mim_maamar_auther where ktav_et=1 and gilayon_id="&Request("gilayon")&" order by seder,nose_id desc,auther_id,title1"
sqlstr2="select title1,auther,id,category_id2,gilayon_id,seder from mim_maamar_auther2 where ktav_et=1 and gilayon_id="&Request("gilayon")&" order by seder,nose_id desc,auther_id,title1"
else
sqlstr="select title1,auther,id,category_id,gilayon_id,seder from mim_maamar_auther where ktav_et=1 order by seder,nose_id desc,category_id,auther,title1"
sqlstr2="select title1,auther,id,category_id2,gilayon_id,seder from mim_maamar_auther2 where ktav_et=1 order by seder,nose_id desc,category_id2,auther,title1"
end if
rs2.Open sqlstr2, con,3,3
if rs2.EOF=false then rs2.MoveFirst
else
sqlstr="select title1,auther,id,category_id,category_id2,gilayon_id from mim_maamar where ktav_et=1 and (category_id="&Request("id1")&" or category_id2="&Request("id1")&") order by nose_id desc,title1"
end if
rs.Open sqlstr, con,3,3
num1=0
Response.Write("
"&rsZmani.Fields("category")&"") rsZmani.Close end if end if 'end if loop if Request("id1")=0 then do until rs2.EOF if rs2.Fields("seder")<>cat then cat=rs2.Fields("seder") end if sqlstr="select * from mim_category where ktav_et=1 and seder="&cat rsZmani.Open sqlstr,con,3,3 rsZmani.MoveFirst Response.Write(" "&rsZmani.Fields("category")&"") rsZmani.Close Response.Write(" "&rsZmani.Fields("category")&"") rsZmani.Close end if end if loop end if Response.Write(" |