Link/ASP

function link(link,country)
Response.Write "<a href='http://www." & link & "." & country & "'>www." & link & "." & country & "</a>"
end function

<%
function link(link,country)
link = "<a href='http://www." & link & "." & country & "'>www." & link & "." & country & "</a>"
end function
%>
even og bruges såen her
Response.Write link(jubii,dk)

sry var vist lidt for hurtig til at svar 2 sek så laver jeg rigtig source ;)

<%
function link(url,country)
link = "<a href='http://www." & url & "." & country & "'>www." & lcase(url) & "." & lcase(country) & "</a>"
end function
Response.Write link("jubii","DK")
%>
virker her

Jeg går ud fra, du vil have den til automatisk at scanne teksten i gennem og generere links. Den kan du gøre med RegExp:

Function AutoLink(Streng)
  Set regEx = New RegExp
  regEx.IgnoreCase = True
  regEx.Global = True
  regEx.Pattern = "(www.|http://|ftp://)[\w\?\=\-\%\.\@\&\/\~]+"
  Set Matches = regEx.Execute(Streng)
  For Each Match in Matches
      If Left(LCase(Match.Value), 7) = "http://" Or Left(Lcase(Match.Value), 6) = "ftp://" Then
        Streng = Replace(Streng, Match.Value, "<a href='" & Match.Value & "' target='_blank'>" & LCase(Match.Value) & "</a>")
      Else
        Streng = Replace(Streng, Match.Value, "<a href='http://" & Match.Value & "' target='_blank'>" & LCase(Match.Value) & "</a>")
      End If
  Next

  AutoLink = Streng 
End Function

http://www.eksperten.dk/bruger.phtml?navn=aspmax&option=22

Hmm... formentlig et af de spørgsmål der aldrig bliver lukket...
Måske det var en god idé, at der ved siden af spørgerens navn i tråden er angivet, hvor mange procent af vedkommendes spørgsmål, han/hun har lukket igen.

netro >> kunne godt se ud til det.
Aspmax har 18 åbne spg. ud af 20 oprettede.
Ret dårlig statistik.

Tak netro - jeg har ledt længe efter netop den funktion du har posted her :-)
Cool, nu håber jeg bare jeg kan få den til at virke, men mon ikke det går.

Netro: Kan den udvides til også at kunne tyde mailadresser?

Du kan prøve med:

regEx.Pattern = "[a-z0-9\.\-\_]+\@[a-z0-9\.\-]+\.[a-z]{2,4}
Set Matches = regEx.Execute(Streng)
For Each Match in Matches
    Streng = Replace(Streng, Match.Value, "<a href='mailto:" & Match.Value & "'>" & LCase(Match.Value) & "</a>")
Next

Jamen det virker jo bare :-)
Takker!

Skal vi udveksle nogle points?

Nej :)

Så siger jeg tak :-)
Go weekend