Replace problem

Hej

Jag har ett script som gör länkar av text som börjar med http://

Det funkar fin fint, nu är det bara det att om man ska redigera den text som skrivits in i databasen och där texten har blivit en URL så skrivs tex.

<a href=http://www.webforum.nu>http://www.www.webforum.nu</a>

Jag vill bara att den ska skriva ut den text som först skrevs in och sedan omvandlades till en länk:

http://www.www.webforum.nu

Lite kod:

function fixa(fix)
fix = Replace(fix,"'", "")
fix = Replace(fix,"|","")
fix = Replace(fix,"<br>","")
HyperArray = Split(fix)
For Each ord in HyperArray
if Len(ord) > 7 then
if Lcase(left(ord,7)) = "http://" then
fix = Replace(fix,"<a href='"&ord&"'>"&ord&"</a>","&ord&")
elseif InStr(ord,"@")>1 then
fix = Replace(fix,"<a href='mailto:"&ord&"'>"&ord&"</a>","&ord&")
else
Fix2=Fix2&ord&" "
end if
else
Fix2=Fix2&ord&" "
end if
next
fixa = fix
end function

Jag vet att det är fel någonstans (eftersom att det inte funkar )

Någon som är villig att hjälpa till?

Mvh

G8