|
|
|
BP Home Meet Our Staff Office Information Map To Office Insurance Rainbow News Health Education Medical Links E-Mail Us Emergency Phone |
|
|
<%
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 Article.Art_ID, Article.Art_Date, Article.Art_Title, Article.Art_Body, Article.Art_URL, Article.Art_Live, Article.Art_Expire FROM Article WHERE Article.Art_Live=True ORDER BY Article.Art_Order;")
do while not rsArticles.EOF
mURL = rsArticles("Art_URL")
if left(mURL, 7) = "http://" then mURL = right(mURL, len(mURL)-7)
%>
<%
rsArticles.MoveNext
loop
set rsArticle = nothing
connNews.close
set connNews = nothing
%>
THOMAS the Train Toy Recall |
|
Copyright © 2000, Barnwell Pediatrics. All Rights Reserved. |
Barnwell Pediatrics