<%@ Language=VBScript %>
<%
Sub ktov2(x)
zmani=x
while InStr(1,zmani,chr(35))>0
Response.Write(left(zmani,InStr(1,zmani,chr(35))-1)&"'")
zmani=mid(zmani,InStr(1,zmani,chr(35))+1)
wend
Response.Write(zmani)
end Sub
set rsB=Server.CreateObject("adodb.recordset")
sqlstr="select * from psk_bd"
rsB.Open sqlstr ,con,3,3
rsB.MoveFirst
baitd = Array("","","","","","","","","","","","","","","","","","","")
i=1
do until rsB.EOF
baitd(i)=rsB.Fields("name")
rsB.MoveNext
i=i+1
loop
set rsD=Server.CreateObject("adodb.recordset")
sqlstr="select * from psk_dayan order by l_name,f_name"
rsD.Open sqlstr ,con,3,3
rsD.MoveFirst
set rsZ=Server.CreateObject("adodb.recordset")
sqlstr="select max(id) from psk_dayan"
rsZ.Open sqlstr ,con,3,3
rsZ.MoveFirst
maxd=rsZ.Fields(0)
rsZ.Close
set rsZ=nothing
dn=1
'if Request("submit1")<>"" then daya="(0"
'if Request("submit2")<>"" then daya="(-1"
if Request("submit1")<>"" or Request("submit2")<>"" then
sqlstr="select title,id,city,h_date,e_date from psk_main where "
flag=false
for i=1 to maxd
if Request("d"&i)="on" then
if Request("submit1")<>"" and flag=true then sqlstr=sqlstr&" and "
if Request("submit2")<>"" and flag=true then sqlstr=sqlstr&" or "
sqlstr=sqlstr&" (dayan1="&i&" or dayan2="&i&" or dayan3="&i&" or dayan4="&i&" or dayan5="&i&" or dayan6="&i&" or dayan7="&i&")"
flag=true
end if
next
Response.Write("sqlstr="&sqlstr)
' Response.Write("
aaa="&daya)
' if Request("submit1")<>"" then sqlstr="select title,id,city, from psk_main where dayan1 in "&daya&" and dayan2 in "&daya&" and dayan3 in "&daya&" and dayan4 in "&daya&" and dayan5 in "&daya&" and dayan6 in "&daya&" and dayan7 in "&daya
'Response.Write(" sqlstr="&sqlstr)
' if Request("submit2")<>"" then sqlstr="select title,id,city from psk_main where dayan1 in "&daya&" or dayan2 in "&daya&" or dayan3 in "&daya&" or dayan4 in "&daya&" or dayan5 in "&daya&" or dayan6 in "&daya&" or dayan7 in "&daya
' Response.Write(" sqlstr="&sqlstr)
' Response.Write("
")
set rs=Server.CreateObject("adodb.recordset")
rs.Open sqlstr ,con,3,3
if rs.EOF=false then rs.MoveFirst
do until rs.EOF
'if request("miyun")="date" then Response.Write(rs.Fields("date1")&" ")
Response.Write(" ")
ktov2(rs.Fields("title"))
Response.Write("")
Response.Write(" / בית הדין ה")
Response.Write(baitd(rs.Fields("city")))
Response.Write(" (")
Response.Write(rs.Fields("h_date"))
Response.Write(", ")
Response.Write(rs.Fields("e_date"))
Response.Write(") ")
rs.movenext
loop
end if
%>
<%
if request("miyun")="last" then
Response.Write("רשימת הדיינים")
else
Response.Write("רשימת הדיינים")
end if
%>
"&rsD.Fields("name")&" (בית הדין ה"&baitd(rsD.Fields("bd"))&")
<%
rsB.Close
set rsB=nothing
rsD.Close
set rsD=nothing
'rsZ.Close
'set rsZ=nothing
'rsC.Close
'set rsC=nothing
'rsN.Close
'set rsN=nothing
con.Close
set con=nothing
%>