<%@ Language=VBScript %> <% 'on error Goto husar ' next 'Redirect("husar.asp") Sub ktov(x) zmani=x while InStr(1,zmani,chr(13))>0 zmani=left(zmani,InStr(1,zmani,chr(13))-1)&"
"&mid(zmani,InStr(1,zmani,chr(13))+1) wend Response.Write(zmani) end Sub set rs=Server.CreateObject("adodb.recordset") sqlstr="select * from psk_main where id="&killchars(Request("id")) rs.Open sqlstr ,con,3,3 rs.MoveFirst set rsZ=Server.CreateObject("adodb.recordset") sqlstr="select name from psk_bd where id="&rs.Fields("city") rsZ.Open sqlstr ,con,3,3 rsZ.MoveFirst %> <%=rs.Fields("title")%>

ב"ה
בית הדין ה<%=rsZ.Fields(0)%>
בפני כבוד הדיינים:
<% rsZ.Close dn=1 do until rs.Fields("dayan"&dn)=0 or dn=7 sqlstr="select name from psk_dayan where id="&rs.Fields("dayan"&dn) rsZ.Open sqlstr ,con,3,3 rsZ.MoveFirst Response.Write(rsZ.Fields(0)) Response.Write("
") rsZ.Close dn=dn+1 loop %>
<% dn=1 do until rs.Fields("dayan"&dn)=0 or dn=7 if rs.Fields("dayan"&dn&"t")=1 then Response.Write("דיין
") if rs.Fields("dayan"&dn&"t")=2 then Response.Write("אב בית דין
") if rs.Fields("dayan"&dn&"t")=3 then Response.Write("דיין, יו"ר
") if rs.Fields("dayan"&dn&"t")=4 then Response.Write("נשיא
") if rs.Fields("dayan"&dn&"t")=5 then Response.Write("ראב"ד
") if rs.Fields("dayan"&dn&"t")=6 then Response.Write("הרב הראשי לישראל
") dn=dn+1 loop %>
תיק מספר: <%=rs.Fields("tik")%>
תאריך: <%=rs.Fields("h_date")%>
<%=rs.Fields("e_date")%>
<% if rs.Fields("toveat")=1 then tov="תובע" if rs.Fields("toveat")=2 then tov="תובעת" if rs.Fields("toveat")=3 then tov="תובעים" if rs.Fields("toveat")=4 then tov="תובעות" if rs.Fields("toveat")=5 then tov="מערער" if rs.Fields("toveat")=6 then tov="מערערת" if rs.Fields("toveat")=7 then tov="מבקש" if rs.Fields("toveat")=8 then tov="מבקשת" if rs.Fields("toveat")=9 then tov="צד א" if rs.Fields("toveat")=10 then tov="מבקשים" Response.Write(tov) %> <%=rs.Fields("tovea")%>
<%if rs.Fields("bktovea")<>"" then Response.Write("בא כוח ה"&tov&" "&rs.Fields("bktovea"))%>
<% if rs.Fields("meshivt")=1 then mesh="משיב" if rs.Fields("meshivt")=2 then mesh="משיבה" if rs.Fields("meshivt")=3 then mesh="משיבים" if rs.Fields("meshivt")=4 then mesh="משיבות" if rs.Fields("meshivt")=5 then mesh="נתבע" if rs.Fields("meshivt")=6 then mesh="נתבעת" if rs.Fields("meshivt")=7 then mesh="נתבעים" if rs.Fields("meshivt")=8 then mesh="נתבעות" if rs.Fields("meshivt")=9 then mesh="צד ב" Response.Write(mesh) %> <%=rs.Fields("meshiv")%>
<%if rs.Fields("bkmeshiv")<>"" then Response.Write("בא כוח ה"&mesh&" "&rs.Fields("bkmeshiv"))%>
הנדון: <%=rs.Fields("nedon")%>
נושא הדיון: <%=rs.Fields("title")%>

<%=rs.Fields("title1")%>
<%ktov(rs.Fields("maintext"))%>





                       
<% 'husar: ' Response.Write("דף זה הוסר מן האתר") %>