<% Option Explicit Dim sql,rsRoot,rsReplies,count,id,rsUser,username,level,recordnum,cellbgcolor,messagecount,messagepage,lastpage,moderator,forumid,locked,repliesdisplay username = Request.Cookies("pb_username") level = Request.Cookies("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") %> <% sql = "SELECT topics.*, forums.*, statusname, statuslevel, moderator, users.posts 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.by WHERE topics.id = " & id Set rsRoot = Server.CreateObject("ADODB.Recordset") rsRoot.Open sql, conn, 3, 3 moderator = rsRoot("moderator") forumid = rsRoot("forumid") locked = rsRoot("locked") sql = "SELECT replies.*, statusname, statuslevel, users.posts FROM (status INNER JOIN users ON status.statusid = users.status) INNER JOIN replies ON users.username = replies.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 %> Philboard Tilbage til <%=rsRoot("forumname")%> | Tilbage til index | log ind | <%if username <> "" then Response.Write("log ud | ") end if%>Ny bruger | hjælp | Sidste emner | søg
Nome's Debat forum

Start > <%=rsRoot("forumname")%> > <%=rsRoot("subject")%>

<%if locked = True then Response.Write("

Denne tråd er nu Lukket

") end if ReplyNav()%> <%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 = "#F3F3F3" for count = 1 to repliesdisplay if cellbgcolor = "#F3F3F3" then cellbgcolor = "#E5E5E5" else cellbgcolor = "#F3F3F3" end if %> <% rsReplies.Movenext if rsReplies.EOF then exit for end if next end if %>
Forfatter Emne : <%=rsRoot("subject")%>
<%=rsRoot("by")%>
<%=rsRoot("statusname")%><% if moderator = rsRoot("by") then Response.Write("
Forum Moderator") end if %>
Meddelelser: <%=rsRoot("users.posts")%>

 .gif" width=15 height=15 alt="<%=rsRoot("statusname")%>"><% if moderator = rsRoot("by") then Response.Write(" ") end if %>		 .gif" width=15 height=15 align="left"> <%=rsRoot("date")%> : <%=rsRoot("time")%>      Svar med citat<% if rsRoot("by") = username then%> Rediger meddelelse<% end if%><% if moderator = username then%> delete topic<% end if%>
<%if rsRoot("editcount") <> 0 then Response.Write("Denne meddelelse har været redigeret " & rsRoot("editcount") & " gang(e)

") end if%> <%=rsRoot("message")%>  
<%=rsReplies("by")%>
<%=rsReplies("statusname")%><% if moderator = rsReplies("by") then Response.Write("
Forum Moderator") end if %>
Meddelelser : <%=rsReplies("posts")%>

.gif" width=15 height=15 alt="<%=rsReplies("statusname")%>"><% if moderator = rsReplies("by") then Response.Write(" ") end if %>		 .gif" width=15 height=15 align="left"><%=rsReplies("date")%> : <%=rsReplies("time")%>      &topic=<%=id%>&recordnum=<%=recordnum%>">Svar med citat<% if rsReplies("by") = username then%> &topic=<%=id%>&recordnum=<%=recordnum%>">Rediger meddelelse<% end if%><% if moderator = username then%> )">Slet svar<% end if%>
<%if rsReplies("editcount") <> 0 then Response.Write("Denne meddelelse har været redigeret " & rsReplies("editcount") & " gang(e)

") end if%> <%=rsReplies("message")%>  
<%ReplyNav()%>

<% if locked = True then Response.Write("Tråd lukket") else Response.Write("Svar") end if %>

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

Svar i denne tråd : " &rsRoot("replies") & chr(13) & chr(10)) if messagecount <> "" or recordnum <> 0 then Response.Write("
Page : ") messagepage = 1 if recordnum = 0 then Response.Write(messagepage & " ") else Response.Write("" & messagepage & " ") end if for count = 1 to messagecount - 1 if (count mod repliesdisplay = 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("<< Næste side ") else Response.Write("<< næste side ") end if if lastpage = False then Response.Write("Forrige side >>") else Response.Write("Forrige side >>") end if end if Response.Write("

") End Function %>