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