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