<% id = request("id") if id = "" then response.Redirect("/") '_____________________teller bijwerken____________________ q = "UPDATE item SET lastViewTime='"&huidige_datetime()&"', views=views+1 " if session("loginid")<>"" then q = q &", lastViewUserid = "&session("loginid") end if q = q & " WHERE itemid="&id conn.execute(q) '______________________post___________________________________ lastReadReply = 0 q = "SELECT i.title AS item_title, c.parentid AS parentCat, i.categorieid AS categorieid, c.title AS catTitle FROM item AS i LEFT JOIN categorie AS c ON i.categorieid = c.categorieid WHERE i.itemid ="&id set irs = conn.execute(q) breadcrumb = irs("item_title") build_breadcrumb(irs("categorieid")) %>
<% if cstr(session("loginid")) <> "" then %> <% end if%>
<% q = "SELECT u.email AS email, u.url AS homepage, u.infoIsZichtbaar AS infoZichtbaar, u.aantalPosts AS aantalPosts, r.Rid AS rid, r.content AS content, u.username AS username, u.isLid AS isLid, r.userid AS userid, u.avatarid AS avatar, u.handtekening AS sign,r.postedTime AS tijdstip FROM replies AS r LEFT JOIN users AS u ON r.userid = u.userid WHERE parentid="&id set rs = conn.execute(q) teller = 0 do while not rs.eof%> <% if lastReadReply < rs.fields("Rid") then lastReadReply = rs.fields("Rid") end if rs.movenext loop '_____________________user bijwerken_________________________ if session("loginid") then q = "SELECT lastview FROM users WHERE userid="&session("loginid") set rs = conn.execute(q) if rs.fields("lastview")
<% if cstr(session("loginid")) = cstr(rs.fields("userid")) then %> &actie=bewerken" class="categorie"> <%else%>  <%end if%>
<% response.Write(rs.fields("username")&"
") if rs.fields("avatar") <> 0 then %> &x=80&y=60" border="0"> <% end if %>
<%=rs.fields("aantalPosts")%> Berichten
 <%=irs("item_title")%>
<% if teller<>0 then response.Write("Antwoord #"&teller&" ") response.Write("Gepost op: ") toontijdstip(rs.fields("tijdstip")) %>
<%=forumToHTML(rs.fields("content"))%>
<%=rs.fields("sign")%>
<% if rs.fields("isLid") = "1" then %> Lid <% end if if rs.fields("infoZichtbaar") = "1" then if rs.fields("homepage") <> "" then %> "> <%end if if rs.fields("email") <> "" then %> "> <% end if end if %>