<% 'Option Explicit Dim sql,rsRoot,rsReplies,count,id,rsUser,username,level,recordnum,cellbgcolor,messagecount,messagepage,lastpage,moderator,forumid,locked,repliesdisplay username = Request.Cookies("junooni_userid") level = Request.Cookies("junooni_level") recordnum = Request.QueryString("recordnum") 'repliesdisplay alters amount of replies to display on page repliesdisplay = 20 if recordnum = "" then recordnum = 0 end if id = Request.QueryString("id") if id = "" then Response.Redirect "default.asp" end if %> <% Call Connjunooni(Conn) sql = "SELECT topics.*, forums.*, statusname, statuslevel, moderator FROM (status INNER JOIN users ON status.statusid = users.status) INNER JOIN ((forums INNER JOIN moderators ON forums.forumid = moderators.moderatorforum) INNER JOIN topics ON forums.forumid = topics.forum) ON users.username = topics.topic_by WHERE topics.id = " & id & "" Set rsRoot = Server.CreateObject("ADODB.Recordset") rsRoot.Open sql, conn, 3, 3 if rsRoot.EOF then response.redirect "default.asp" end if varread = cint(rsRoot("topic_read"))+1 moderator = rsRoot("moderator") forumid = rsRoot("forumid") locked = rsRoot("locked") sql = "SELECT replies.*, statusname, statuslevel FROM (status INNER JOIN users ON status.statusid = users.status) INNER JOIN replies ON users.username = replies.reply_by WHERE replies.root = " & id & " ORDER BY date, time" Set rsReplies = Server.CreateObject("ADODB.Recordset") rsReplies.Open sql, conn, 3, 3 if not rsReplies.EOF then rsReplies.Movefirst for count = 1 to repliesdisplay rsReplies.Movenext if rsReplies.EOF then exit for end if next if not rsReplies.EOF then messagecount = rsReplies.Recordcount end if rsReplies.Movefirst end if Set rsEntry = Server.CreateObject("ADODB.Recordset") rsEntry.open "topics WHERE id = " & id, conn, 3, 3 rsEntry("topic_read") = cint(rsEntry("topic_read")) + 1 rsEntry.Update rsEntry.close %>

<%=rsRoot("subject")%>
<%ReplyNav()%>

<% if locked = True then Response.Write("Thread Closed") else Response.Write("

") end if if locked = True then Response.Write("

This thread is now closed

") end if %>

Forums Home > <%=rsRoot("forumname")%> > <%=rsRoot("subject")%>

<% if rsRoot("topicstatus") = "N" Then Response.Write "Sorry this topic has been closed." Response.End end if %> <% if recordnum = 0 then%> <%end if if not rsReplies.EOF then rsReplies.Movefirst 'If viewing a previous set of messages, move to the right position if recordnum <> 0 then rsReplies.Move(recordnum) end if cellbgcolor = "#DEE3E7" for count = 1 to repliesdisplay if cellbgcolor = "#DEE3E7" then cellbgcolor = "#EFEFEF" else cellbgcolor = "#DEE3E7" end if %> <% rsReplies.Movenext if rsReplies.EOF then exit for end if next end if %>

Author	Message
<%=rsRoot("topic_by")%> <% csql = "select count(reply_by) from replies where reply_by = '"&rsRoot("topic_by")&"'" Set countobj = Conn.Execute(csql) response.write "total post(s): " & countobj(0) %> .gif" width=15 height=15 alt="<%=rsRoot("statusname")%>"> <% if moderator = rsRoot("topic_by") then Response.Write(" ") end if %>	.gif" width=15 height=15 align="left"> <%=rsRoot("date")%> : <%=rsRoot("time")%> "> <% if not username = rsRoot("topic_by") then %> <% End if %> <%=rsRoot("message")%>
<%=rsReplies("reply_by")%> <% csql = "select count(reply_by) from replies where reply_by = '"&rsReplies("reply_by")&"'" Set countobj = Conn.Execute(csql) 'Response.Write rsReplies("homepage") response.write "total post(s): " & countobj(0) %> .gif" width=15 height=15 alt="<%=rsReplies("statusname")%>"> <% if moderator = rsReplies("reply_by") then Response.Write(" ") end if %>	<%=rsReplies("date")%> : <%=rsReplies("time")%> "> &topic=<%=id%>&recordnum=<%=recordnum%>"> <% if not username = rsReplies("reply_by") then %> <% End if %> <% if moderator = username then%> )"> <% end if%> <%=rsReplies("message")%>

<% if locked = True then Response.Write("Thread Closed") else Response.Write("

") %>

Forums Home > <%=rsRoot("forumname")%> > <%=rsRoot("subject")%>

<% 'Response.Write("Post Reply") end if %>

<%ReplyNav()%>

<% rsRoot.close set rsRoot = nothing rsReplies.close set rsReplies = nothing conn.close set conn = nothing %> <% Function ReplyNav() 'Response.Write("

Replies in this thread : " &rsRoot("replies") & chr(13) & chr(10)) 'Response.Write("

Replies in this thread : " &rsRoot("replies") & chr(13) & chr(10)) if messagecount <> "" or recordnum <> 0 then Response.Write("Go to page : ") messagepage = 1 if recordnum = 0 then Response.Write(messagepage & " ") else Response.Write("" & messagepage & " ") end if for count = 1 to messagecount if (count mod 20 = 0) then messagepage = messagepage + 1 if count = CInt(recordnum) then Response.Write(messagepage & " ") lastpage = True else Response.Write("" & messagepage & " ") lastpage = False end if end if next Response.Write(" ") if recordnum <> 0 then Response.Write("<< prev page ") else Response.Write("<< prev page ") end if if lastpage = False then Response.Write("next page >>") else Response.Write("next page >>") end if end if Response.Write("

") End Function %>