")
tekst = replace(tekst,"[Q]","")
tekst = replace(tekst,"[/Q]","
")
tekst = replace(tekst,"[FONT]","")
tekst = replace(tekst,"[/FONT]","")
tekst = replace(tekst,":D","![]()
")
tekst = replace(tekst,":shocked:","![]()
")
tekst = replace(tekst,":cool:","![]()
")
tekst = replace(tekst,":dry:","![]()
")
tekst = replace(tekst,":huh:","![]()
")
tekst = replace(tekst,":laugh:","![]()
")
tekst = replace(tekst,":mad:","![]()
")
tekst = replace(tekst,":mellow:","![]()
")
tekst = replace(tekst,":ohmy:","![]()
")
tekst = replace(tekst,":ph34r:","![]()
")
tekst = replace(tekst,":rolleyes:","![]()
")
tekst = replace(tekst,":(","![]()
")
tekst = replace(tekst,":)","![]()
")
tekst = replace(tekst,":P","![]()
")
tekst = replace(tekst,":unsure:","![]()
")
tekst = replace(tekst,":wacko:","![]()
")
tekst = replace(tekst,";)","![]()
")
forumToHTML = tekst
end function
function replaceTag(forum,html,detekst)
detekst = replace(detekst,"[" & forum & "]","<" &html&">")
detekst = replace(detekst,"[/" & forum & "]","")
replaceTag = cstr(detekst)
end function
'_________________________________tijd___________________________________________
function toontijdstip(tijdstip)
if tijdstip <> "" then
maanden_naam = array(+1,"januari","februari","maart","april","mei","juni","juli","augustus","september","oktober","november","december")
dagen_naam = array(+1,"zondag","maandag","dinsdag","woensdag","donderdag","vrijdag","zaterdag")
if day(tijdstip)=day(date()-1) and month(tijdstip)=month(date()-1) and year(tijdstip)=year(date()-1) then
response.Write("gisteren ")
else
if day(tijdstip)=day(date()) and month(tijdstip)=month(date()) and year(tijdstip)=year(date()) then 'houd geen rekening met het einde van de maand
response.Write("vandaag ")
else
response.Write(dagen_naam(weekday(tijdstip))&" "&day(tijdstip)&" "&maanden_naam(month(tijdstip))&" "&year(tijdstip))
end if
end if
response.Write(" "&hour(tijdstip)&":"&Right("00" & CStr(minute(tijdstip)), 2))
end if
end function
function huidige_datetime()
huidige_datetime = year(now)&"-"& month(now)& "-"&day(now) &" "&hour(now)&":"&minute(now)&":"&second(now)
end function
'________________________________breadcrumb________________________________________
function build_breadcrumb(Cat)
do while Cat <> 0
q = "SELECT title,parentid,categorieid FROM categorie WHERE categorieid ="&Cat
set catRS = conn.execute(q)
breadcrumb = "