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