<% session.CodePage=1252 %> <% ' bepaal of de editor buttons getoond mogen worden admin = false if lcase(request.cookies("settings")("admin")) = "true" then admin = true if request.QueryString("keyword") <> ""then strKeyword = trim(request.QueryString("keyword")) if len(contentRight) > 0 then contentRight = replace(contentRight,strKeyword,"" & strKeyword &"",1,3,1) end if end if if admin=true then contentRight = "
" & contentRight & "
" & vbcrlf end if 'toon de banners als er niet beheerd wordt if not admin then Set p_objRegEx = Server.CreateObject("VBScript.RegExp") p_objRegEx.IgnoreCase = True p_objRegEx.Global = True p_objRegEx.Pattern = "bpg\d{1,3}" if contentRight <> vbNullstring then Set p_arrMatches = p_objRegEx.Execute(contentRight) if p_arrMatches.count > 0 then for each p_objMatch in p_arrMatches p_strTemp = p_objMatch p_strTemp = replace(p_strTemp,"bpg","") 'response.write p_objMatch & " " & p_strTemp & "
" //contentRight = replace(contentRight,p_objMatch,"
") contentRight = replace(contentRight,p_objMatch,"" & vbcrlf) next end if end if Set p_arrMatches = nothing end if mainCenter = contentRight %> <% session.CodePage=65001 %> <% select case session("siteID") %> <% case 1 %> <% end select %>