Var ska jag sätta in server.htmlEncode?

i detta för att det ska funka.

<%
Function URL(text)
dim strString

strString = server.HTMLencode(text)
 Set objRegExp = New RegExp
   objRegExp.Global = True
   objRegExp.Ignorecase = True
    objRegExp.Pattern = "(^&#0124;[^""])(http://&#0124;https://&#0124;ftp://&#0124;mailto:&#0124;file://&#0124;telnet://&#0124;gopher://)([\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]&#0124;$)"
  strString = objRegExp.Replace(strString,"$1<a target=""" & LinkTarget & """ href=""$2$3"" class=""link"">$2$3</a>$4")
    objRegExp.Pattern = "(^&#0124;[^\w/>])(www\.[\w/#~:.,?+=&%@!\-]*?)([\s.:?\-]*[^\w/#~:.,?+=&%@!\-]&#0124;$)"
  strString = ObjRegExp.Replace(strString,"$1<a target=""" & LinkTarget & """ href=""http://$2"" class=""link"">$2</a>$3")
    objRegExp.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
  strString = ObjRegExp.Replace(strString,"$1<a href=""mailto:$2"">$2</a>")
      objRegExp.Pattern = "\[B\]"
  strString = ObjRegExp.Replace(strString,"<B>")
        objRegExp.Pattern = "\[/B\]"
  strString = ObjRegExp.Replace(strString,"</B>")
            objRegExp.Pattern = "\[I\]"
  strString = ObjRegExp.Replace(strString,"<I>")
          objRegExp.Pattern = "\[/I\]"
  strString = ObjRegExp.Replace(strString,"</I>")
        objRegExp.Pattern = "\[BIG\]"
  strString = ObjRegExp.Replace(strString,"<BIG>")
        objRegExp.Pattern = "\[/BIG\]"
  strString = ObjRegExp.Replace(strString,"</BIG>")
 URL=strString
end function

response.write " "&URL("http://www.spray.se [b]sasd[/b]<"a href=sadas.html">asdsad</a>")&" "
%>

NÄr man har fnuttarna runt länken som jag vill avkoda så funkar det inte. Var ska jag sätta sakerna så det funkar...?

------------------
Talet är tankens död

Någon som vet vad som ska fixas för att HTML encode ska funka samt redbrytning??

------------------
Talet är tankens död

Hade samma problem om jag nu förstår dig rätt dvs... Så här löste jag det:

Först kör du HTML encode på strängen, sedan kör du funktionen för att skapa en länk av den, därefter kör du funktionen för att sätta in BR...
Det fungerar perfekt för mig att göra på detta viset, dvs inga buggar uppstår.

Min lösning ser ut så här:
strKommentar = objRS("kommentar")
strKommentar = HTMLtecken(strKommentar)
strKommentar = URLify(strKommentar, "new_win")
strKommentar = BR(strKommentar)

------------------
"Ni tre går och bildar en kvadrat" (Rolf Zetterlund under ett träningspass)

[Redigerat av iceM2 den 07 dec 2001]