BACKSTAGE

Logged in as <%= Session("Username") %> (<%= Session("User_Name") %>) - Logout
<% Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") %> <% objConn.Open %>

UNDERdog.be

Backstage

<% myID = Request.Querystring("ID") myCAT = Request.Querystring("CAT") if myID <> "" then mySQL="SELECT TITLE,ARTICLE,URL,MDATE,ID from udb_UDARTICLES WHERE ID='"& myID &"' ORDER BY MDATE DESC" elseif myCAT <> "" then mySQL="SELECT TITLE,ARTICLE,URL,MDATE,ID from udb_UDARTICLES WHERE CATEGORY='"& myCAT &"' ORDER BY MDATE DESC" else mySQL="SELECT TITLE,ARTICLE,URL,MDATE,ID from udb_UDARTICLES WHERE CATEGORY='BACKSTAGE' ORDER BY MDATE DESC" end if set objRS=objConn.execute(mySQL) do until objRS.eof msgTitle=objRS(0) msgArticle=objRS(1) msgArticleFull = Replace(msgArticle, "---", "") msgUrl=objRS(2) msgDate=objRS(3) msgID=objRS(4)%>

<%=msgTitle %>

<%=msgDate%>
<%=msgArticleFull%>
<%objRS.movenext loop%>

More Games

<% mySQL="SELECT NAME,URL,GENRE,IMAGE,W,H from udb_UDGAMES WHERE STATUS = 'backstage' ORDER BY NAME DESC" set objRS=objConn.execute(mySQL) do until objRS.eof msgName=objRS(0) msgUrl=objRS(1) msgGenre=objRS(2) msgImage=objRS(3) msgWidth=objRS(4) msgHeight=objRS(5) %> <% objRS.movenext loop %>
<%objConn.close set objConn=nothing %>