Transplant Awareness Group, Inc.

There are several ways to enroll in the New York State Organ and Tissue Donor Registry:

Download an Organ Donor Card (PDF Version)
Register On-Line
Check the box on your application for a new / renewal driver's license (or non-driver identification card)
Share your intentions with your family.

For more information on organ donation:

Finger Lakes Donor Recovery Network (1-800-810-5494)
NY Organ Donor Network (1-800-443-8469)
NYS Organ & Tissue Donor Registry (1-877-752-3175)

This website and the "Transplant Awareness News" newsletter have been made possible
through the generous contributions of the

Fraternal Order of Eagles #1253 of Ithaca, New York

"People Helping People"

<% strTodayM = Month(Date) strTodayD = Day(Date) strCounter = 0 '** We want to display recipients by month and day, based on today's date. ' We must have two statements to handle December Transplants If strTodayM = 12 then mySQL="SELECT * FROM Members Order By TransplantDateMonth Desc, TransplantDateDay Asc" Else mySQL="SELECT * FROM Members Order By TransplantDateMonth Asc, TransplantDateDay Asc" End If Set rsTemp = Connection.Execute(mySQL) %> <% Do While (Not rsTemp.EOF) AND (strCounter < 11) If strTodayM =12 then If (rsTemp("TransplantDateMonth") = strTodayM AND rsTemp("TransplantDateDay") >= strTodayD) or (rsTemp("TransplantDateMonth") = 1) then %> <% strCounter = strCounter + 1 End If Else If (rsTemp("TransplantDateMonth") = strTodayM AND rsTemp("TransplantDateDay") >= strTodayD) or (rsTemp("TransplantDateMonth") > strTodayM) then %> <% strCounter = strCounter + 1 End If End If %> <% rsTemp.MoveNext Loop %>

• • • • • • • • • ANNIVERSARIES • • • • • • • • •
Recipient	Transplant Type	Anniversary
<% =rsTemp("FirstName") %> <% =rsTemp("LastName")%>	<% =rsTemp("TransplantType")%>	<% =rsTemp("TransplantDate")%>
<% =rsTemp("FirstName") %> <% =rsTemp("LastName")%>	<% =rsTemp("TransplantType")%>	<% =rsTemp("TransplantDate")%>

<% rsTemp.Close Set rsTemp = Nothing %>

<% 'Dimension variables Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim lngVisitorNumber 'Holds the visitor number Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) lngVisitorNumber = lngVisitorNumber + 1 Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt")) tsObject.Write CStr(lngVisitorNumber) Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing %>