<% set dbConn = server.createObject("ADODB.connection") dbConn.open connectionString preview = request.queryString("preview") logNumber = request.queryString("lognumber") action = request.queryString("action") if preview <> "zZ" then published = "PUBLISHED = 1 and " end if sql = "select LOGNUMBER, ENTRYDATE, ENTRYTITLE, ENTRYTEXT," _ & " VIDEOURL28, VIDEOURL56" _ & " from DIARYENTRY where " & published _ & "LOGNUMBER = " condition = "(select max(LOGNUMBER) from DIARYENTRY where PUBLISHED = 1)" if logNumber <> "" then select case action case "next" condition = "(select min(LOGNUMBER) from DIARYENTRY" condition = condition & " where " & published & "LOGNUMBER > " & logNumber & ")" case "prev" condition = "(select max(LOGNUMBER) from DIARYENTRY" condition = condition & " where " & published & "LOGNUMBER < " & logNumber & ")" case else condition = logNumber end select end if set rsEntry = dbConn.execute(sql & condition) if rsEntry.EOF then response.redirect("default.asp") end if logNumber = rsEntry.fields(0) entryDate = rsEntry.fields(1) entryTitle = rsEntry.fields(2) entryText = rsEntry.fields(3) videoURL28 = rsEntry.fields(4) videoURL56 = rsEntry.fields(5) sql = "select E.DESCRIPTION, E.FILENAME, I.FILENAME, E.SEQUENCE " sql = sql & "from ENTRYATTACHMENT E, IMAGETARGET I" sql = sql & " where E.LOGNUMBER = " & logNumber sql = sql & " and E.LOGNUMBER *= I.LOGNUMBER" sql = sql & " and E.SEQUENCE *= I.SEQUENCE" sql = sql & " order by E.SEQUENCE" set rsAttach = dbConn.execute(sql) sql = "select URL, DESCRIPTION from ENTRYLINKS" sql = sql & " where LOGNUMBER = " & logNumber sql = sql & " order by SEQUENCE" set rsLinks = dbConn.execute(sql) sql = "select LOGNUMBER, ENTRYDATE, ENTRYTITLE from DIARYENTRY" _ & " where PUBLISHED = 1 order by LOGNUMBER desc" set rsDropDown = dbConn.execute(sql) %> RUNNINGMAN ONLINE
    ABOUTINTERACTIVEDAILYVIRTUAL
Welcome to Mission # 1RUNNINGMANMAPREPORTSBASE CAMP
BACKGROUND INFO EMAIL ME UPDATES
PREVIOUS NEXT
") %>
<%=entryTitle%>

<%=entryText%>

<% emailPage if videoURL28 <> "" then response.write("

28k VIDEO FEED") if videoURL56 <> "" then response.write("

56k VIDEO FEED") %>

<% while not rsAttach.eof displayAttachment rsAttach(0), rsAttach(1), rsAttach(2), logNumber, rsAttach(3) rsAttach.moveNext wend %>

<% if preview = "zZ" then %>

<% end if %>
<% if not rsLinks.eof then while not rsLinks.eof response.write("LINKS - " & rsLinks(1) & "
") rsLinks.moveNext wend else response.write("  ") end if dbConn.close set dbConn = nothing %>


 
HOME > ABOUT RUNNING MAN > INTERACTIVE MAP > DAILY REPORTS > VIRTUAL BASE CAMP