dim werkurl as string = "sienn.com"
dim liveurl as string = "www.sienn.com"

dim volledigeurl as string = Request.Url.AbsoluteUri.ToString
dim Scheme as string = Request.Url.Scheme.ToString
dim currenturl as string = Request.Url.Host.Tostring
dim PathAndQuery as string = Request.Url.PathAndQuery.ToString
dim needstoberelocated as boolean = false
dim Cid as string = pbw.Get_Cid_currentdomain


dim URLREWRITINGTEXT as string 
try
  URLREWRITINGTEXT =  pbw.Get_Config_Value(CID,0,"URLREWRITINGTEXT",constring)
catch
  URLREWRITINGTEXT = "Nee"
end try  

if currenturl = werkurl then
  if URLREWRITINGTEXT = "Ja" then
    Dim rewr as string = Pbw.Replace_TextUrl_WithRewriting(0, "/","<a href=""" & PathAndQuery & """>tmplink</a>", Cid, ConString)
      if rewr.length>0 then
        PathAndQuery= rewr
        PathAndQuery = PathAndQuery.replace("<a href=""","")
        PathAndQuery = PathAndQuery.replace(""">tmplink</a>","")
    end if
  end if
  
  currenturl = currenturl.replace(werkurl,liveurl)
  volledigeurl = Scheme & "://" & currenturl & PathAndQuery
  needstoberelocated = true
  
end if

'redirect 301 (permanently)
if needstoberelocated = true then
  Response.Status = "301 Moved Permanently"
  Response.AddHeader("Location",volledigeurl) 
end if