%@ 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
%>
|
ב"ה
בית הדין ה<%=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")%> | |||