ABOUTINTERACTIVEDAILYVIRTUAL
Welcome to Mission # 1RUNNINGMANMAPREPORTSBASE CAMP
BACKGROUND INFO EMAIL ME UPDATES
Journal Entries : <% emailPage %>
<% set dbConn = server.createObject("ADODB.connection") dbConn.open connectionString sql = "select LOGNUMBER, ENTRYDATE, ENTRYTITLE from DIARYENTRY" sql = sql & " where PUBLISHED = 1 order by LOGNUMBER desc" set rsIndex = dbConn.execute(sql) startAt = request.queryString("startat") skipRows = startAt rowsPerPage = 10 while skipRows > 0 and not rsIndex.EOF rsIndex.moveNext skipRows = skipRows - 1 wend response.write("" & chr(13)) rowCount = 0 while not rsIndex.EOF and rowCount < rowsPerPage response.write("" & vbCrLf) rsIndex.moveNext rowCount = rowCount + 1 wend if not rsIndex.EOF or startAt > rowsPerPage then response.write("") end if if not rsIndex.eof then response.write("") end if end if %>
" & rsIndex(0) & " - " & rsIndex(1) _ & "" & rsIndex(2) & "
") if startAt > rowsPerPage then previousStart = startAt - rowsPerPage response.write(" rowsPerPage then response.write("?startat=" & previousStart) end if response.write(">" _ & "MORE RECENT ENTRIES" _ & "OLDER ENTRIES" _ & "
DownLoad RealPlayer
DON'T FORGET TO DOWNLOAD REALPLAYER TO VIEW VIDEO ENTRIES
HOME > ABOUT RUNNING MAN > INTERACTIVE MAP > DAILY REPORTS > VIRTUAL BASE CAMP