<%@ LANGUAGE = VBScript %> <% Option Explicit Dim Conn, HeadImage, RefNo, Rs, Sort, SQL, Search Dim pageName,group pageName = "Articles" group = "h-issues" Dim itemnum itemnum=3 %> <% 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 WHERE isnull(isDeleted,0) <> 1 ORDER BY Title" Case "2" HeadImage = "ArticlesAuthor2.gif" SQL = "SELECT * FROM Articles WHERE isnull(isDeleted,0) <> 1 ORDER BY Author" Case "3" HeadImage = "ArticlesPublication2.gif" SQL = "SELECT * FROM Articles WHERE isnull(isDeleted,0) <> 1 ORDER BY Publication" Case "4" HeadImage = "ArticlesYear2.gif" SQL = "SELECT * FROM Articles WHERE isnull(isDeleted,0) <> 1 ORDER BY YearPublished DESC" Case Else HeadImage = "ArticlesRecommended2.gif" SQL = "SELECT * FROM Articles WHERE isnull(isDeleted,0) <> 1 ORDER BY Priority" End Select Else Select Case Sort Case "1" HeadImage = "ArticlesTitle2.gif" SQL = "SELECT * FROM Articles Where isnull(isDeleted,0) <> 1 AND (" 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 isnull(isDeleted,0) <> 1 AND (" 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 isnull(isDeleted,0) <> 1 AND (" 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 isnull(isDeleted,0) <> 1 AND (" 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 isnull(isDeleted,0) <> 1 AND (" 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 %>

Articles

Below you will find articles by rabbis, doctors and scholars about the halachic and medical issues surrounding brain-stem death and organ donation. Some articles are pro organ donation and some are con. We believe by showing all positions, we can allow the public to judge for themselves where they stand on these issues.

Keyword Search:     show all articles

Articles

<% Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open SQL, Conn,3,3, adCmdText Response.Write("") Do While Not Rs.EOF RefNo = RefNo + 1 Response.Write("") Response.Write("") Else Response.Write("") End If Rs.MoveNext Loop Rs.Close Set Rs = Nothing %>
" & Rs.RecordCount & " entries found.

" & 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 If RefNo mod 5 = 0 Then Response.Write("
Back to top