replace problemer

kom frisk eksperter

Du kan prøve sådan her:

<%
str = "adfasdf [url]www.minside.dk[/url]adf asdaf [url]www.minside.dk[/url]"

iStart = InStr(1,str,"[url]",1)
iSlut= InStr(1,str,"[/url]",1)
do while iStart > 0 and iSlut > 0

  VAR = Mid(str,iStart+5,iSlut-iStart-5)
  link = "<a href=""" & VAR & """>" & VAR & "</a>"
  if iStart = 1 then
    str = link & Mid(str,iSlut+6)
  else
    str = Left(str,iStart-1) & link & Mid(str,iSlut+6)
  end if   
  iStart = InStr(1,str,"[url]",1)
  iSlut = InStr(1,str,"[/url]",1)
loop

Response.Write str
%>

Det ser ud til at virke, dog skal der lige tilføjes http:// da den ellers linker internt på sitet!

Hvor skal det sættes ind?

Så rette du denne:

link = "<a href=""" & VAR & """>" & VAR & "</a>"


Til dette:

link = "<a href=""http://" & VAR & """>" & VAR & "</a>"

LÆKKERT eagleeye!

Vil du have point?

Jo tak du kan bare acceptere mit svar så skulle det være på plads ;)

my bad... sorry