SE HER >> 200 POINT: Link finding

er det nu dig igen din snyder.......!

2-maz >> forklaring eller reference ?

<%
Function makelinks(Text)
Text = Split(Text,\" \")

For i = 0 to ubound(Text)
    If Left(Text(i),7) = \"http://\" or Left(Text(i),4) = \"www.\" Then
        If Right(text(i),1) = \".\" or Right(text(i),1) = \",\" Then
        Text(i) = \"<a href=\"\"\"&Left(Text(i),Len(Text(i))-1)&\"\"\">\"&Left(Text(i),Len(Text(i))-1)&\"</a>\"&Right(Text(i),1)
        Else
        Text(i) = \"<a href=\"\"\"&Text(i)&\"\"\">\"&Text(i)&\"</a>\"
        End If
    End If
Next

NewText = \"\"

For i = 0 to ubound(Text)
    NewText = NewText & \" \" & Text(i)
Next

Response.Write NewText

End Function

%>
<html>
<body>
<%
Linktext = \"Tekst bliver lavet til links, når man skriver f.eks. http://www.vip-productions.dk eller www.vip-productions.dk eller http://www.vip-productions.dk/et/eller/andet/side.asp?user=i&name=Et%20Eller%20Andet.\"
makelinks(Linktext)
%>
</body>
</html>

Der er en

<%@ language=\"JScript\" %>
<%
var Linktext = \"Tekst bliver lavet til links, når man skriver f.eks. jesper.jensen@3wp.dk, http://www.vip-productions.dk, eller www.vip-productions.dk eller http://www.vip-productions.dk/et/eller/andet/side.asp?user=i&name=Et%20Eller%20Andet.\"

function makeLink(txt){
    var re = /(\\bhttp\\:\\/\\/)?(\\bw{3}\\.\\S+\\.[a-z][a-z]+\\b)(\\/\\S+\\b)?(\\?\\S+\\b)?/g;
    txt = txt.replace(re,\'<a href=\"http://$2$3$4\">$1$2$3$4</a>\');
    re = /(\\S+@{1}\\S+\\.[a-z][a-z]+\\b)/g;
    txt = txt.replace(re,\'<a href=\"mailto:$1\">$1</a>\');
    return txt;
}
%>
<html>
<head>
    <title>JavaScript Link maker 1.0</title>
</head>
<body>
<%=makeLink(Linktext)%>
</body>
</html>

En mere

IK sååå skulle du da kunne bruge en af dem :)

tmceu--> http://www.eksperten.dk/spm/129147

i skal nok ikke regne med at få jeres point, fordi han venter på at spm\'et bliver glemt også poster han noget der ligner jeres svar, og tager pointene.....!SELV...!

mtas fungere det oder was?

Det virker altså ikke helt optimalt fordi når jeg bruger det ved hentning af mails så laver den helt koks i den !!!!!!!!!!

hvordan?

jamen den laver ikke links. Og hvis den gør skriver den koden med <br><br> hvis der er linjeskift i maile n!

lad mig se den kode du bruger, det hele så retter jeg det lige

<%
Function makelinks(Text)
Text = Split(Text,\" \")

For i = 0 to ubound(Text)
    If Left(Text(i),7) = \"http://\" or Left(Text(i),4) = \"www.\" Then
        If Right(text(i),1) = \".\" or Right(text(i),1) = \",\" Then
        Text(i) = \"<a href=\"\"\"&Left(Text(i),Len(Text(i))-1)&\"\"\">\"&Left(Text(i),Len(Text(i))-1)&\"</a>\"&Right(Text(i),1)
        Else
        Text(i) = \"<a href=\"\"\"&Text(i)&\"\"\">\"&Text(i)&\"</a>\"
        End If
    End If
Next

NewText = \"\"

For i = 0 to ubound(Text)
    NewText = NewText & \" \" & Text(i)
Next

Response.Write NewText

End Function
%>

<% if len(msg.Body) <> \"0\" AND not stopa = \"ok\" then %>
<% make1 = replace(msg.Body,VbCrLf,\"<br>\") %>
<% =makelinks(make1) %>
<% end if %>


???

<%
Function makelinks(Text)
Text = Split(Text,\" \")

For i = 0 to ubound(Text)
    If Left(Text(i),7) = \"http://\" or Left(Text(i),4) = \"www.\" Then
        If Right(text(i),1) = \".\" or Right(text(i),1) = \",\" Then
        Text(i) = \"<a href=\"\"\"&Left(Text(i),Len(Text(i))-1)&\"\"\">\"&Left(Text(i),Len(Text(i))-1)&\"</a>\"&Right(Text(i),1)
        Else
        Text(i) = \"<a href=\"\"\"&Text(i)&\"\"\">\"&Text(i)&\"</a>\"
        End If
    End If
Next

NewText = \"\"

For i = 0 to ubound(Text)
    NewText = NewText & \" \" & Text(i)
Next

Response.Write NewText

End Function


if len(msg.Body) <> \"0\" AND not stopa = \"ok\" then
make1 = msg.Body
makelinks(make1)
end if %>


Såå skulle den ikke udskrive <br><br>og den skulle også lave dine links om

Jamen den skal jo lave linjeskift i en mail forpokker ! Ellers kommer mailen i en lang smøre...

jamen sagde du ikke lige at den IKKE skulle