<%@ 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 distinct e_year from psk_main order by e_year desc"
rsB.Open sqlstr ,con,3,3
rsB.MoveFirst
if killchars(Request("year"))<>"" then
sqlstr="select title,id,city,h_date,e_date from psk_main where e_year= "& Request("year")
' 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
%>
<%
do until rsB.EOF
Response.Write(chr(13)&" "&rsB.Fields(0)&"")
rsB.MoveNext
loop%>
<%
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
%>
"&rsB.Fields(0)&"")
rsB.MoveNext
loop%>
<%
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
%>