http://bneiakiva.org.il/default.asp

התחדשנו באתר חדש! הכנסו והישארו מעודכנים.

Untitled Document <% Dim hebMonth,currentMonth Dim RecDate,today today=month(date) & "/" & day(date) & "/" & year(date) set RecDate=server.CreateObject("ADODB.recordset") RecDate.Open "SELECT * FROM zy_eng2heb WHERE (e_date <= '" & today & "') ORDER BY e_date DESC" ,conn if (RecDate.BOF or RecDate.EOF ) then currentMonth=4 else currentMonth=RecDate("hebrew_mont") end if hebMonth=split("תשרי;חשוון;כסלו;טבת;שבט;אדר;ניסן;אייר;סיון;תמוז;אב;אלול;אדר א;אדר ב;",";") dim pId pId=getProjectId() %>
ואלה הנופלים אשר תאריך
אזכרתם חל בחודש <%=hebMonth(currentMonth-1)%>
<% '---/////////////////////// '---מציאת והצגת נופלי החודש '---/////////////////////// Dim recMonth set recMonth=server.CreateObject("ADODB.recordset") 'אדר רגיל if (currentMonth=6) then recMonth.Open "SELECT DISTINCT vb_nofel_display.id,vb_nofel.death_d_h_d, vb_nofel_display.family, vb_nofel_display.name,vb_nofel_display.age,vb_nofel_display.darga, vb_nofel_display.sex, vb_nofel_display.death_d_h, vb_nofel_display.death_d_e, vb_nofel_display.death_cause FROM vb_nofel_to_project INNER JOIN (vb_nofel INNER JOIN vb_nofel_display ON vb_nofel.id = vb_nofel_display.id) ON vb_nofel_to_project.id = vb_nofel.id " & _ "Where (((vb_nofel_to_project.Project) =" & pId & ") And " &_ "(((vb_nofel.death_d_h_m)= 6)OR((vb_nofel.death_d_h_m)=13)OR((vb_nofel.death_d_h_m)=14))) ORDER BY vb_nofel.death_d_h_d, vb_nofel_display.family, vb_nofel_display.name", conn,3,3 'אדר ב else if(currentMonth=14) then recMonth.Open "SELECT DISTINCT vb_nofel_display.id,vb_nofel.death_d_h_d, vb_nofel_display.family, vb_nofel_display.name,vb_nofel_display.age,vb_nofel_display.darga, vb_nofel_display.sex, vb_nofel_display.death_d_h, vb_nofel_display.death_d_e, vb_nofel_display.death_cause FROM vb_nofel_to_project INNER JOIN (vb_nofel INNER JOIN vb_nofel_display ON vb_nofel.id = vb_nofel_display.id) ON vb_nofel_to_project.id = vb_nofel.id " & _ "Where (((vb_nofel_to_project.Project) =" & pId & ") And " &_ "(((vb_nofel.death_d_h_m)= 6)OR((vb_nofel.death_d_h_m)=14))) ORDER BY vb_nofel.death_d_h_d, vb_nofel_display.family, vb_nofel_display.name", conn,3,3 else recMonth.Open "SELECT DISTINCT vb_nofel_display.id,vb_nofel.death_d_h_d, vb_nofel_display.family, vb_nofel_display.name,vb_nofel_display.age,vb_nofel_display.darga, vb_nofel_display.sex, vb_nofel_display.death_d_h, vb_nofel_display.death_d_e, vb_nofel_display.death_cause FROM vb_nofel_to_project INNER JOIN (vb_nofel INNER JOIN vb_nofel_display ON vb_nofel.id = vb_nofel_display.id) ON vb_nofel_to_project.id = vb_nofel.id " & _ "Where (((vb_nofel_to_project.Project) = " & pId & ") And ((vb_nofel.death_d_h_m) = " & currentMonth & ")) ORDER BY vb_nofel.death_d_h_d, vb_nofel_display.family, vb_nofel_display.name", conn,3,3 end if end if if(recMonth.BOF and recMonth.EOF) then 'Response.Write "Recordset is empty!!!" Response.End else %> <% Dim pic,death_cause,age,i,line1,recPic set recPic=server.CreateObject("ADODB.recordset") i=0 do until recMonth.EOF line1="" if (recMonth("darga")<>"") then line1=replace(recMonth("darga"),"""","''") end if if (recMonth("name")<>"") then line1=line1 & " " & recMonth("name") end if if (recMonth("family")<>"") then line1=line1 & " " & recMonth("family") end if dim p_Number p_Number = minPic(recMonth("id")) recPic.Open "SELECT * FROM vb_nofel_pic_info WHERE pic= " & p_Number & " AND id = " & recMonth("id"), conn,3,3 if not(recPic.BOF and recPic.EOF ) then set file = server.CreateObject("scripting.filesystemobject") str = getPic_Path_Net(recPic("File_Path"), "list") if file.FileExists(str)then pic=getPic_Url_Net(recPic("File_Path"), "list") else pic=chooseGaled(recMonth("sex"),"VF/ib_items/1/g_nopic1.jpg","VF/ib_items/1/woman_nopic.jpg") end if else pic=chooseGaled(recMonth("sex"),"VF/ib_items/1/g_nopic1.jpg","VF/ib_items/1/woman_nopic.jpg") end if recPic.close if (recMonth("death_cause")<>"") then death_cause=recMonth("death_cause") & "
" else death_cause="" end if if (recMonth("age")<>"" and recMonth("age")<>0) then age=chooseGaled(recMonth("sex"),"בן ","בת ") & recMonth("age") & " " & chooseGaled(recMonth("sex"),"במותו","במותה") else age="" end if %> <% recMonth.MoveNext i=i+1 loop %> <% '---/////////////////////// '---סוף תצוגת נופלי החודש '---/////////////////////// end if %>