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

South Carolina Health Resources

<% 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 %>