<%@ LANGUAGE="VBSCRIPT" %> <% Cat= request.querystring("cat") If Cat = "" then vCat = "" CatTitle = "Entire Listing" elseif Cat = "cChildCare" then vCat = "Where cChildCare = -1" CatTitle = "Child Care/School Age Topics" elseif Cat = "cImmunization" then vCat = "Where cImmunization = -1" CatTitle = "Immunization Topics" elseif Cat = "cPoisonPlants" then vCat = "Where cPoisonPlants = -1" CatTitle = "Poisonous Plants" elseif Cat = "cPrevention" then vCat = "Where cPrevention= -1" CatTitle = "Prevention Topics" elseif Cat = "cInstruction" then vCat = "Where cInstruction = -1" CatTitle = "Instructions" elseif Cat = "cNewborn" then vCat = "Where cNewBorn = -1" CatTitle = "NewBorn Topics" End If Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open healthConnection MySQL="Select id, Title from tblMedical " & vCat & " Order by Title" Set rs=MyConn.Execute(MySQL) If rs.eof or rs.bof then Else aTitles=rs.GetRows End If %> Barnwell Pediatrics Health Education
Rainbow Health Education

BP Home
Meet Our Staff
Office Information
Map To Office
Insurance
Rainbow News
Health Education
Medical Links

E-Mail Us

Emergency Phone
 803-259-7337

 Health Education: <%= CatTitle %>

<% For row = 0 to UBound(aTitles,2) ' iterate through the rows in the variant array vID = aTitles(0,row) vTitle = aTitles(1,row) %> <%= vtitle %>
<% Next %>