BACKSTAGE
Logged in as
<%= Session("Username") %> (<%= Session("User_Name") %>) -
Logout
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
%>
<% objConn.Open %>
<%
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)%>
<%=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)
%>
Sports
<%
objRS.movenext
loop
%>
<%objConn.close
set objConn=nothing
%>