 לדף
ראשי
<%if Request("id1")>0 then
Response.Write("ערכים בנושא")
Response.Write(" ")
Response.Write(subject1)
Response.Write("")
else
Response.Write("כל הערכים")
end if%>
<%if Request("id1")=0 then
Response.Write("")
Response.Write(" ")
Response.Write("| א | ")
Response.Write("ב | ")
Response.Write("ג | ")
Response.Write("ד | ")
Response.Write("ה | ")
Response.Write("ו | ")
Response.Write("ז | ")
Response.Write("ח | ")
Response.Write("ט | ")
Response.Write("י | ")
Response.Write("כ | ")
Response.Write("ל | ")
Response.Write("מ | ")
Response.Write("נ | ")
Response.Write("ס | ")
Response.Write("ע | ")
Response.Write("פ | ")
Response.Write("צ | ")
Response.Write("ק | ")
Response.Write("ר | ")
Response.Write("ש | ")
Response.Write("ת | ")
Response.Write(" ")
Response.Write(" ")
end if%>
|
|
<%
if Request("id1")>0 then
aaa="select name,value_id from category_value_name where category_id="&Request("id1")&"order by name"
rs.Open aaa, con,3,3
rsCount.open "select count(*) from category_value_name where category_id="&Request("id1"), con,3,3
else
if Request("ot")="" then
ot="א"
else
ot=Request("ot")
end if
sqlstr="select name,value_id from ency_exchange where name like '"&ot&"%' and is_name=1 order by name"
rs.Open sqlstr , con,3,3
sqlstr="select count(*) from ency_exchange where name like '"&ot&"%'"&" and is_name=1"
rsCount.open sqlstr, con,3,3
end if
cc=rsCount.Fields(0)
rsCount.Close
set rsCount=nothing
'Response.Write(cc)
num1=0
Response.Write(" | ")
Response.Write("")
end if
loop
Response.Write(" ")
rs.Close
set rs=Nothing
con.Close
set con=nothing
%>
|
|