<%
function haal_breadcrumb_nieuw(breadcrumb)
	catId = request("cat")
	breadcrumb = " Nieuwe thread" 
	build_breadcrumb(catID)
end function

function verwerk_nieuw(fout,actie)
 titel = request("titel")
  if titel = "" then
  	fout = "Titel mag niet leeg zijn<br>"
  end if
  cat = request("cat")
  inhoud = request("inhoud")
  if inhoud ="" then
  	fout = fout & "U moet een bericht schrijven"
  end if
  if fout = "" then 
	  q = "insert into item (firstReplyUserId,lastviewTime,lastReplyTime,lastReplyUserid,title,views,categorieid) values ("
	  q = q & session("loginid")&",'"&huidige_datetime  & "','" & huidige_datetime  & "'," &cstr(session("loginid")) & ",'" & tosqlstring(titel) & "','0'," & cat & ")"
	  conn.execute q
	  q = "select max(itemid) as nieuw from item "
	  set rs = conn.execute(q)
	  nieuw = cstr(rs("nieuw"))
	  q = "insert into replies (content,numberReplies,postedTime,parentID,hasChilds,userid) values ('"
	  q = q & cstr(tosqlstring(inhoud)) & "','0','"&huidige_datetime()&"','"&nieuw&"','0','"&session("loginid")&"')"
	  conn.execute q
	  do while cat <> 0
		  q = "update categorie set numberPosts = numberPosts+1 where categorieid = "&cat
		  conn.execute q
		  q = "SELECT parentid FROM categorie WHERE categorieid = "&cat
		  set rs = conn.execute(q)
	  cat = rs("parentid")
	  loop
	  q = "update users set lastPost="&nieuw&", aantalPosts = aantalPosts+1 where userid ="&session("loginid")
	  conn.execute(q)
	  '___________________logboek_________________
	  LB = "INSERT INTO logboek VALUES('','"&timestamp()&"','"&session("loginid")&"','Post New','ID="&nieuw&" IP:"&request.ServerVariables("REMOTE_ADDR")&" Browser:"&request.ServerVariables("ALL_HTTP")&"')"
		conn.execute(LB)
	  response.Redirect "viewThread.asp?id=" & nieuw
	else
		actie = "nieuw"
	end if
end function
function verwerk_bijwerken()
   rid = request("rid")
  if rid = "" then response.Redirect("index.asp")
  inhoud = request("inhoud")
  
  q = "update replies set content = '" & tosqlstring(inhoud) & "' where rid = " & rid
  conn.execute q
  q = "SELECT parentid FROM replies WHERE Rid ="&rid
  set rs = conn.execute(q)
  '__________________logboek________________
  LB = "INSERT INTO logboek VALUES('','"&timestamp()&"','"&session("loginid")&"','Post Mod','ID="&rid&" IP:"&request.ServerVariables("REMOTE_ADDR")&" Browser:"&request.ServerVariables("ALL_HTTP")&"')"
  conn.execute(LB)
	  
  response.Redirect "viewThread.asp?id=" & rs.fields("parentid")
	
end function

function haal_data_bijwerken(titel,inhoud,breadcrumb)
	rid = request("rid")
	if rid = "" then catId = 0
	q = "SELECT r.content AS content, i.title AS itemtitle, c.categorieid AS catid, c.title AS cattitle FROM replies AS r LEFT JOIN item AS i ON i.itemid = r.parentid LEFT JOIN categorie AS c ON c.categorieid = i.categorieid WHERE r.Rid ="&rid
	set rs = conn.execute(q)
	if not rs.eof then categorie = rs("cattitle") else response.Redirect("index.asp")
	breadcrumb = "<a class=""breadcrumb"" href=""categorie.asp?id=" & cstr(rs("catid")) & """>" & categorie & "</a> => " & cstr(rs("itemTitle")) 
	titel = cstr(rs("itemtitle"))
	inhoud = cstr(rs("content"))
	breadcrumb = rs("itemtitle")
	build_breadcrumb(rs("catID"))
end function

function verwerk_reply(fout,actie)
 inhoud = request("inhoud")
 	if inhoud = "" then
 	  fout = "U dient een bericht te schrijven"
 	  actie = "reply"
 	else
	  q = "UPDATE item SET lastviewTime='"& huidige_datetime  & "', lastReplyTime = '" & huidige_datetime  & "',lastReplyUserid = " &cstr(session("loginid")) & ", numberReplies = numberReplies+1, views = views+1 WHERE itemid="&request("itemid")
	  conn.execute q
	  q = "insert into replies (content,numberReplies,postedTime,parentID,hasChilds,userid) values ('"
	  q = q & cstr(tosqlstring(inhoud)) & "','0','"&huidige_datetime()&"','"&request("itemid")&"','0','"&session("loginid")&"')"
	  conn.execute q
	  q = "SELECT categorieid FROM item WHERE itemid="&request("itemid")
	  set rs =conn.execute(q)
	  cat = rs("categorieid")
	  do while cat <> 0
		  q = "update categorie set numberReplies = numberReplies+1 where categorieid = "&cat
		  conn.execute q
		  q = "SELECT parentid FROM categorie WHERE categorieid = "&cat
		  set rs = conn.execute(q)
	  cat = rs("parentid")
	  loop
	  q = "update users set lastPost="&request("itemid")&", aantalPosts = aantalPosts+1 where userid ="&session("loginid")
	  conn.execute(q)
	  '____________logboek_____________
	  LB = "INSERT INTO logboek VALUES('','"&timestamp()&"','"&session("loginid")&"','Post Reply','ID="&request("itemid")&" IP:"&request.ServerVariables("REMOTE_ADDR")&" Browser:"&request.ServerVariables("ALL_HTTP")&"')"
	  conn.execute(LB)
	  
	  response.Redirect "viewThread.asp?id=" & request("itemid")
	end if
end function
%>