<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
%>
<% objConn.Open %>
<%
myID = Request.Querystring("ID")
myCAT = Request.Querystring("CAT")
adCounter = 0
if myID <> "" then
mySQL="SELECT TITLE,ARTICLE,URL,MDATE,ID, CATEGORY from udb_UDARTICLES WHERE CATEGORY='NEWS' AND ID='"& myID &"' ORDER BY MDATE DESC"
elseif myCAT = "BACKSTAGE" then
mySQL="SELECT TITLE,ARTICLE,URL,MDATE,ID, CATEGORY from udb_UDARTICLES WHERE CATEGORY='NEWS' ORDER BY MDATE DESC"
elseif myCAT <> "" then
mySQL="SELECT TITLE,ARTICLE,URL,MDATE,ID, CATEGORY from udb_UDARTICLES WHERE CATEGORY='"& myCAT &"' ORDER BY MDATE DESC"
else
mySQL="SELECT TITLE,ARTICLE,URL,MDATE,ID, CATEGORY from udb_UDARTICLES WHERE CATEGORY='NEWS' ORDER BY MDATE DESC"
end if
set objRS=objConn.execute(mySQL)
do until objRS.eof
adCounter = adCounter + 1
msgTitle=objRS(0)
msgArticle=objRS(1)
msgArticleFull = Replace(msgArticle, "---", "")
msgUrl=objRS(2)
msgDate=objRS(3)
msgID=objRS(4)
msgCat=objRS(5)
if msgCat = "BACKSTAGE" then
msgArticle = "test"
end if
%>
<%=msgDate%>
<%=msgArticleFull%>
Add To Social Stuff
<% if adCounter = 1 OR adCounter = 4 then %>
<% end if %>
<%objRS.movenext
loop%>