<% ' SUBROUTINE FOR READING NEWS ITEMS FROM TEXT FILE ON SERVER Const ForReading = 1 Dim arrNews1() ' TEXT ARRAY THAT HOLDS NEWS ITEM ONE Dim arrNews2() ' TEXT ARRAY THAT HOLDS NEWS ITEM TWO Dim arrNews3() ' TEXT ARRAY THAT HOLDS NEWS ITEM THREE Dim arrNews4() ' TEXT ARRAY THAT HOLDS NEWS ITEM FOUR Dim arrNews5() ' TEXT ARRAY THAT HOLDS NEWS ITEM FIVE Dim iUpperBound1 ' NUMBER HERE DENOTES LAST LINE OF TEXT FILE NEWS1 Dim iUpperBound2 ' NUMBER HERE DENOTES LAST LINE OF TEXT FILE NEWS2 Dim iUpperBound3 ' NUMBER HERE DENOTES LAST LINE OF TEXT FILE NEWS3 Dim iUpperBound4 ' NUMBER HERE DENOTES LAST LINE OF TEXT FILE NEWS4 Dim iUpperBound5 ' NUMBER HERE DENOTES LAST LINE OF TEXT FILE NEWS5 Dim intNews1List Dim intNews2List Dim intNews3List Dim intNews4List Dim intNews5List ' SUBROUTINE TO FILL ARRAY FOR NEWS ITEM ONE Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("\") & "\CGI-BIN\News1.txt" on error resume next Set a = fs.OpenTextFile(Wfile,ForReading) iUpperBound1 = 0 While Not a.AtEndOfStream ReDim Preserve arrNews1(iUpperBound1) arrNews1(UBound(arrNews1)) = a.ReadLine iUpperBound1 = iUpperBound1 + 1 Wend a.close if error then job = "did not work" end if ' SUBROUTINE TO FILL ARRAY FOR NEWS ITEM TWO Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("\") & "\CGI-BIN\News2.txt" on error resume next Set a = fs.OpenTextFile(Wfile,ForReading) iUpperBound2 = 0 While Not a.AtEndOfStream ReDim Preserve arrNews2(iUpperBound2) arrNews2(UBound(arrNews2)) = a.ReadLine iUpperBound2 = iUpperBound2 + 1 Wend a.close if error then job = "did not work" end if ' SUBROUTINE TO FILL ARRAY FOR NEWS ITEM 3 Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("\") & "\CGI-BIN\News3.txt" on error resume next Set a = fs.OpenTextFile(Wfile,ForReading) iUpperBound3 = 0 While Not a.AtEndOfStream ReDim Preserve arrNews3(iUpperBound3) arrNews3(UBound(arrNews3)) = a.ReadLine iUpperBound3 = iUpperBound3 + 1 Wend a.close if error then job = "did not work" end if ' SUBROUTINE TO FILL ARRAY FOR NEWS ITEM FOUR Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("\") & "\CGI-BIN\News4.txt" on error resume next Set a = fs.OpenTextFile(Wfile,ForReading) iUpperBound4 = 0 While Not a.AtEndOfStream ReDim Preserve arrNews4(iUpperBound4) arrNews4(UBound(arrNews4)) = a.ReadLine iUpperBound4 = iUpperBound4 + 1 Wend a.close if error then job = "did not work" end if ' SUBROUTINE TO FILL ARRAY FOR NEWS ITEM FIVE Set fs = CreateObject("Scripting.FileSystemObject") Wfile=server.mappath("\") & "\CGI-BIN\News5.txt" on error resume next Set a = fs.OpenTextFile(Wfile,ForReading) iUpperBound5 = 0 While Not a.AtEndOfStream ReDim Preserve arrNews5(iUpperBound5) arrNews5(UBound(arrNews5)) = a.ReadLine iUpperBound5 = iUpperBound5 + 1 Wend a.close if error then job = "did not work" end if %>

CONSOLATA HEALTHCARE FOUNDATION

GIVING OPPORTUNITIES

 


Mission Statement:

The Consolata Healthcare Foundation's sole purpose is to raise funds to benefit and enhance the services of Wilson Memorial Hospital District. 

Consolata is named for Sister Mary Theresa Consolata who originally managed Wilson Memorial Hospital along with the Sisters of Divine Providence.      

The Foundation is currently focusing efforts on raising funds to purchase highway frontage signs to better direct patients and visitors to the medical center and the medical office building.  The Foundation will hold it's first fundraiser of 2007, the CHF Gaming Night, to raise money for this cause.  The Gaming Night will be held April 21, 2007 at the Maverick Golf Club banquet room in Floresville, Texas from 7 pm until midnight.  Tickets are $50.00 and can be purchased from any CHF board member or at the CHF office at the medical center.  Tickets include food, drinks and $2000 in chips for play that evening.  We will feature Texas hold 'em, blackjack, roulette and craps.  Silent and live auctions will feature items donated from local organizations and business and community members.

Your contribution to the CHF ensures continued growth of the foundation to benefit our patients and our community. For more information about the following giving opportunities, please contact Morgan Dunbar, executive director, at (830) 393-1315 .

A Gift of Cash

A gift of cash is the simplest way to donate to the Foundation. Cash gifts are fully tax deductible up to 50% of your adjusted gross income. Cash gifts may also be pledged over many years.


A Gift of Securities

Gifts of marketable securities, including stocks, bonds, mutual funds, etc. are accepted by the Foundation. There are numerous tax benefits for these types of donations.

A Gift of Insurance

Donors may assign ownership to the Consolata Healthcare Foundation in a fully paid-up policy or designate the hospital as a beneficiary.


Gifts of Real Estate

Various types of property are accepted by the Foundation pending the approval of the Consolata Healthcare Foundation Board. This includes primary residences, land, automobiles or other property.

Charitable Bequests

A donor may wish to make a donation to the Foundation by including us in his or her will. A bequest is a lasting legacy that will help to ensure a healthy future for our community. If you need more information on bequests, please call the Foundation.

Planned Giving Opportunities

There are many planned giving options available, which can provide considerable tax and income benefits to donors. Examples include: charitable remainder trusts, charitable lead trusts, charitable remainder unitrusts or charitable gift annuities. Please contact the Foundation office if you are interested in any of these estate-planning options.


Naming Opportunities

Consolata Healthcare Foundation offers numerous naming opportunities throughout Connally Memorial Medical Center.

Semi-private room $7,000
Private room $8,000
ICU room $15, 000

For other naming opportunities, please contact the Consolata Healthcare Foundation at (830) 393-1315

Annual Golf Classic

Connally Memorial Hospital holds an Annual Golf Classic. Contact us for details.

Donor Recognition

Consolata Healthcare Foundation has established a timeless tribute to recognize individuals, businesses, foundations, and organizations who make financial contributions to
Connally Memorial Medical Center.

The Donor Recognition Wall will be located in the lobby of the new Connally Memorial Medical Center building. Whether you are a current donor or are considering a first time gift, when you give to the Consolata Healthcare Foundation, you are sharing in the hospital's commitment of providing healthcare excellence to the residents of Wilson County. Any amount is appreciated and worthwhile.

Donors contributing in the following categories will receive individualized recognition on the
CMMC Donor Wall :

- $99.00 or less Friends of Connally Memorial Medical Center
- $100.00- $499.00 Bronze Donor
- $500.00- $999.00 Silver Donor
- $1,000- $4,999.00 Gold Donor
- $5,000 and up Platinum Donor

Friends of Connally Memorial Medical Center will be recognized on a general plaque. Because of the large number of these donations, we will not be able to list specific names in connection with them.

Consolata Healthcare Foundation can also customize giving programs to meet your individual needs. If you are interested in supporting Consolata Healthcare Foundation, please call Morgan Dunbar at (830) 393-1315 to discuss the many ways in which your financial gift can be utilized to improve Connally Memorial Medical Center's services.


Buy A Cross Campaign Phase I

Buy across and make a lasting contribution to Connally Memorial Hospital.

CLICK THE CROSS TO PURCHASE ONE

Home   |   Services   |   Physicians   |   News   |   Employment   |   Payments   |   Your Health  |   Giving   |   Contact Us
Connally Memorial Medical Center © 2005 |   Privacy Policy  |   Find Us