<%@ LANGUAGE="VBSCRIPT" %> Health-E-AME | South Carolina Resources

Topics

South Carolina Health Resources


Oconee Pickens Greenville Spartanburg Cherokee Anderson Laurens Union York Chester Abbeville Greenwood Charleston Charleston McCormick Newberry Saluda Lexington Edgefield Aiken Lancaster Fairfield Kershaw Richland Richland Calhoun Orangeburg Barnwell Bamberg Allendale Chesterfield Chesterfield Charleston Hampton Jasper Darlington Lee Sumter Clarendon Marlboro Dillon Florence Beaufort Marion Williamsburg Horry Georgetown Colleton Colleton Dorchester Dorchester Berkeley Berkeley

Select a county for a list of health resources:

Abbeville
Aiken
Allendale
Anderson
Bamberg
Barnwell
Beaufort
Berkeley
Calhoun

Charleston
Cherokee 
Chester
Chesterfield
Clarendon
Colleton
Darlington
Dillon
Dorchester 		Edgefield
Fairfield
Florence
Georgetown
Greenville
Greenwood
Hampton
Horry
Jasper		 Kershaw
Lancaster
Laurens
Lee
Lexington
Marion
Marlboro
McCormick
Newberry 		Oconee
Orangeburg
Pickens
Richland
Saluda
Spartanburg
Sumter
Union
Williamsburg
York

 

Eat Smart Move More SC: Making the Healthy Choice the Easy Choice

The South Carolina Eat Smart Move More Coalition coordinates obesity prevention efforts across the state and leads the implementation of South Carolina's Obesity Prevention Plan.

SC Department of Health and Environmental Control

SC DHEC promotes and protects the health of the public and the environment.

<% Dim connStr, rs, url_var set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/db/health_resources.mdb")) set rs = Server.CreateObject("ADODB.recordset") url_var = request.querystring("county") sql= "SELECT * FROM resources WHERE County = '"& url_var &"'" rs.Open sql, conn if NOT rs.EOF Then Response.Write "

" & rs.fields("County") & " County

" Response.Write "

Hospitals" & rs.fields("Hospitals") & "

" if not IsNull(rs.fields("Provider")) Then Response.Write "

Provider and Pharmaceutical Assistance Program" & rs.fields("Provider") & "

" end if if not IsNull(rs.fields("Clinic")) Then Response.Write "

Free or Low Cost Clinics" & rs.fields("Clinic") & "

" end if if not IsNull(rs.fields("Health_Dept")) Then Response.Write "

Health Department" & rs.fields("Health_Dept") & "

" end if if not IsNull(rs.fields("Social_Services")) Then Response.Write "

Social Services" & rs.fields("Social_Services") & "

" end if if not IsNull(rs.fields("Human_Services")) Then Response.Write "

Human Services" & rs.fields("Human_Services") & "

" end if if not IsNull(rs.fields("SS_Office")) Then Response.Write "

Social Security Office" & rs.fields("SS_Office") & "

" end if if not IsNull(rs.fields("Home_Health")) Then Response.Write "

Home Health Agencies" & rs.fields("Home_Health") & "

" end if if not IsNull(rs.fields("Hospice")) Then Response.Write "

Hospice Agencies" & rs.fields("Hospice") & "

" end if if not IsNull(rs.fields("Renal_Dialysis")) Then Response.Write "

Renal Dialysis Facilities" & rs.fields("Renal_Dialysis") & "

" end if rs.MoveNext end if rs.close conn.close %>