<% Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") %> <% objConn.Open %>

UNDERdog.be

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

<%=msgTitle %>

<%=msgDate%>
<%=msgArticleFull%>
<% if adCounter = 1 OR adCounter = 4 then %>
<% end if %> <%objRS.movenext loop%>
<%objConn.close set objConn=nothing %>