<% Option Explicit Dim Conn, HeadImage, RefNo, Rs, Sort, SQL, Search %><% if IsEmpty(Request.QueryString("Search")) then Search = Request.Form("Search") else Search = Request.QueryString("Search") end if Sort = Request.QueryString("Sort") if IsEmpty(Search) or Search = "showAllarticles" then Select Case Sort Case "1" HeadImage = "ArticlesTitle2.gif" SQL = "SELECT * FROM Articles ORDER BY Title" Case "2" HeadImage = "ArticlesAuthor2.gif" SQL = "SELECT * FROM Articles ORDER BY Author" Case "3" HeadImage = "ArticlesPublication2.gif" SQL = "SELECT * FROM Articles ORDER BY Publication" Case "4" HeadImage = "ArticlesYear2.gif" SQL = "SELECT * FROM Articles ORDER BY YearPublished DESC" Case Else HeadImage = "ArticlesRecommended2.gif" SQL = "SELECT * FROM Articles ORDER BY Priority" End Select Else Select Case Sort Case "1" HeadImage = "ArticlesTitle2.gif" SQL = "SELECT * FROM Articles Where " SQL = SQL & "Title LIKE '%" & Search & "%' " SQL = SQL & " OR Author LIKE '%" & Search & "%' " SQL = SQL & " OR Publication LIKE '%" & Search & "%' " SQL = SQL & " OR Comment LIKE '%" & Search & "%' " SQL = SQL & "ORDER BY Title" Case "2" HeadImage = "ArticlesAuthor2.gif" SQL = "SELECT * FROM Articles Where " SQL = SQL & "Title LIKE '%" & Search & "%' " SQL = SQL & " OR Author LIKE '%" & Search & "%' " SQL = SQL & " OR Publication LIKE '%" & Search & "%' " SQL = SQL & " OR Comment LIKE '%" & Search & "%' " SQL = SQL & "ORDER BY Author" Case "3" HeadImage = "ArticlesPublication2.gif" SQL = "SELECT * FROM Articles Where " SQL = SQL & "Title LIKE '%" & Search & "%' " SQL = SQL & " OR Author LIKE '%" & Search & "%' " SQL = SQL & " OR Publication LIKE '%" & Search & "%' " SQL = SQL & " OR Comment LIKE '%" & Search & "%' " SQL = SQL & "ORDER BY Publication" Case "4" HeadImage = "ArticlesYear2.gif" SQL = "SELECT * FROM Articles Where " SQL = SQL & "Title LIKE '%" & Search & "%' " SQL = SQL & " OR Author LIKE '%" & Search & "%' " SQL = SQL & " OR Publication LIKE '%" & Search & "%' " SQL = SQL & " OR Comment LIKE '%" & Search & "%' " SQL = SQL & "ORDER BY YearPublished DESC" Case Else HeadImage = "ArticlesRecommended2.gif" SQL = "SELECT * FROM Articles Where " SQL = SQL & "Title LIKE '%" & Search & "%' " SQL = SQL & " OR Author LIKE '%" & Search & "%' " SQL = SQL & " OR Publication LIKE '%" & Search & "%' " SQL = SQL & " OR Comment LIKE '%" & Search & "%' " SQL = SQL & "ORDER BY Priority" End Select End If if Search = "showAllarticles" then Search = "" end if %> HODS - Halachic Organ Donor Society
Send this page
to a friend >>

Articles

Below are documents and articles. To best understand the main halachic concern about organ donation (the moment of death), it is necessary to read a number of articles. We have listed them below in order of importance to understand the issues.

Keyword Search:     show all articles

Articles

<% Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open SQL, Conn,,, adCmdText Do While Not Rs.EOF RefNo = RefNo + 1 Response.Write("") Response.Write("") Rs.MoveNext Loop Rs.Close Set Rs = Nothing %>
" & RefNo & "." & Rs.Fields("Title") & "
Download: ") If Rs.Fields("URL") <> "" Then If Left(Rs.Fields("URL"), 5) <> "http:" Then Response.Write("English ") Else Response.Write("English ") End If End If If Rs.Fields("HebrewURL") <> "" Then If Left(Rs.Fields("HebrewURL"), 5) <> "http:" Then Response.Write("Hebrew") Else Response.Write("Hebrew") End If End If Response.Write("
Author: " & Rs.Fields("Author") & "
") Response.Write("Publication: " & Rs.Fields("Publication") & "
") Response.Write("Year: " & Rs.Fields("YearPublished") & "") If Rs.Fields("Publisher") <> "" Then Response.Write("
Publisher: " & Rs.Fields("Publisher") & "") End If If Rs.Fields("Comment") <> "" Then Response.Write("
HOD Comment: " & Rs.Fields("Comment") & "") End If Response.Write("