<% if cstr(session("loginid")) = "" then response.Redirect("index.asp") actie = request.QueryString("actie") fout = "" select case actie case "nieuwok" call verwerk_nieuw(fout,actie) case "bewerken" call haal_data_bijwerken(titel,inhoud,breadcrumb) form_actie = "bewerkenok" case "bewerkenok" verwerk_bijwerken() case "reply" call haal_breadcrumb_nieuw(breadcrumb) form_actie = "replyok" case "replyok" call verwerk_reply(fout,actie) case "nieuw" call haal_breadcrumb_nieuw(breadcrumb) form_actie = "nieuwok" end select %> <%= fout %> <% if actie = "reply" then 'schrijf daaronder alles ander posts '______________________post___________________________________ %> <% 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="&request("id")&" ORDER BY Rid DESC" 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 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

<% 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 %> Poldersterlid

<% end if if rs.fields("infoZichtbaar") = "1" then if rs.fields("homepage") <> "" then %> ">

<%end if if rs.fields("email") <> "" then %> ">

<% end if end if %>

Invoeren nieuwe thread
Titel
Inhoud
<%eName = "inhoud"%> <% formName = "nieuwThread"%>