<%@ Language=VBScript %> Barnwell Pediatrics Rainbow News
Rainbow Rainbow News

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

<% mBaseDir = "/" mNewsReaderPage = "admin/NewsReader.asp" mAddArtPage = "admin/NewsAddArticle.asp" 'added to allow edit from newreader page mNewsReview = "admin/NewsReview.asp" set connNews = server.createobject("ADODB.Connection") connNews.open NewsConnection set rsArticles = connNews.Execute("SELECT Art_ID, Art_Date, Art_Title, Art_Body, Art_URL, Art_Live, Art_Expire FROM tblNews WHERE Art_Live=True ORDER BY Art_Order;") do while not rsArticles.EOF mURL = rsArticles("Art_URL") if left(mURL, 7) = "http://" then mURL = right(mURL, len(mURL)-7) %>

<%= rsArticles("Art_Title") %>
<%= Replace(rsArticles("Art_Body"), Chr(13), "
") %>

<% rsArticles.MoveNext loop set rsArticle = nothing connNews.close set connNews = nothing %>
<% If Session("Authenticated") then%> Edit <% Else %> Edit
<% End If %>