<%@ LANGUAGE = VBScript %> <% Option Explicit Dim Conn, HeadText, RefNo, Rs, Sort, SQL, Search Dim pageName,group pageName = "Documents" group = "h-issues" Dim itemnum itemnum=4 %> <% 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 = "showAlldocuments" then Select Case Sort Case "1" HeadText = "Title" SQL = "SELECT * FROM Documents WHERE isnull(isDeleted,0) <> 1 ORDER BY Title ASC" Case "2" HeadText = "Year" SQL = "SELECT * FROM Documents WHERE isnull(isDeleted,0) <> 1 ORDER BY YearPublished DESC" Case Else HeadText = "Recommended Reading" SQL = "SELECT * FROM Documents WHERE isnull(isDeleted,0) <> 1 ORDER BY Priority" End Select Else Select Case Sort Case "1" HeadText = "Title" SQL = "SELECT * FROM Documents Where isnull(isDeleted,0) <> 1 AND (" SQL = SQL & "Title LIKE '%" & Search & "%' " SQL = SQL & " OR Comment LIKE '%" & Search & "%') " SQL = SQL & "ORDER BY Title" Case "2" HeadText = "Year" SQL = "SELECT * FROM Documents Where isnull(isDeleted,0) <> 1 AND (" SQL = SQL & "Title LIKE '%" & Search & "%' " SQL = SQL & " OR Comment LIKE '%" & Search & "%') " SQL = SQL & "ORDER BY YearPublished DESC" Case Else HeadText = "Recommended Reading" SQL = "SELECT * FROM Documents Where isnull(isDeleted,0) <> 1 AND ( " SQL = SQL & "Title LIKE '%" & Search & "%' " SQL = SQL & " OR Comment LIKE '%" & Search & "%') " SQL = SQL & "ORDER BY Priority" End Select End If if Search = "showAlldocuments" then Search = "" end if %>

Documents

Below are documents and articles about the halachic and medical issues surrounding organ donation. The HOD Society strongly recommends that readers review at least the first 5 articles, in order to best understand the major issues, especially the debate regarding the moment of death. Please note that not all articles listed below are written by halachic authorities.

Keyword Search:     show all documents

Documents Currently Sorted by: <%=HeadText%> 

<% Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open SQL, Conn,3,3, adCmdText Response.Write("

" & Rs.RecordCount & " entries found.

    ") Do While Not Rs.EOF RefNo = RefNo + 1 Response.Write("
  1. ") If Rs.Fields("URL") <> "" Or Rs.Fields("HebrewURL") <> "" Then Response.Write("" & Rs.Fields("Title") & "") End If Response.Write("
    Download: ") If Rs.Fields("URL") <> "" Then If Left(Rs.Fields("URL"), 4) <> "http" Then Response.Write("English ") Else Response.Write("English ") End If End If If Rs.Fields("HebrewURL") <> "" Then If Left(Rs.Fields("HebrewURL"), 4) <> "http" Then Response.Write("Hebrew ") Else Response.Write("Hebrew ") End If End If If Rs.Fields("YearPublished") <> "" Then Response.Write("(" & Rs.Fields("YearPublished") & ")") End If If Rs.Fields("Comment") <> "" Then Response.Write("
    " & Rs.Fields("Comment") & "") End If Response.Write("

  2. ") Rs.MoveNext Loop Rs.Close Set Rs = Nothing %>