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