RegExp for URL's and e-mail's

Jeg er ved at lave en funktion der kan linke (sætte a href's rundt om) URL's or e-mail adresser. Den med e-mail adressen er let nok at lave. Mit problem er at min funktion for URL's også vælger e-mail addresser.
for eksempel bliver piilstil.com fra e-mail addressen piil@piilstil.com, lavet om til et link. Desværre kan jeg ikke bare tjekke for www for ikke alle URL's har dette. Jeg har kigget på alle de funktioner der allerede ligger på netcoders.dk og activedeveloper.dk, men ingen af dem lever op til mine krav.


<%@ LANGUAGE=VBscript %>
<%
Function createLink(str)
'remove any http://
Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = True
regEx.Pattern = "(\bhttp\:\/\/)+"
str = regEx.Replace(str, "")

'create links for URL's
Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = True
' regEx.Pattern = "(\b\S+\.\S+\b)?"
regEx.Pattern = "(\b a-zA-Z0-9\.+\. a-zA-Z0-9\.\?\=\&\/+\b)?"
str = regEx.Replace(str, "<a href='http://$1'>$1</a>")


'create links for a-mail's
' Set regEx = New RegExp
' regEx.Global = true
' regEx.IgnoreCase = True
' regEx.Pattern = "(\b\S+\@\S+\b)"
' regEx.Pattern = "(\S+\@{1}\S+\.\S+\b)"
' str = regEx.Replace(str, "<a href='mailto:$1'>$1</a>")


Set regEx = Nothing

createLink = str
End Function
%>
<html>
<head>
</head>
<body>
<%
linktext = "Check out: "
linktext = linktext & "www.piilstil.com "
linktext = linktext & "og netcoders.dk?mode=display "
linktext = linktext & "og netcoders.dk/default.asp?action=display&s=4 "
linktext = linktext & "og netcoders.dk/default.asp. "
linktext = linktext & "og netcoders.dk "
linktext = linktext & "og www.piilstil.dk og www.piilstil.com/default.asp "
linktext = linktext & "og baggett.piilstil.com "
linktext = linktext & "og my e-mail address is <piil@piilstil.com>. "
linktext = linktext & "og http://www.piilstil.com "
linktext = linktext & "og my e-mail address is piil@piilstil.com. "
linktext = linktext & "Min fars e-mail address is ole.piil@piilstil.com. "
linktext = linktext & "Mor og far er i Danmark. testing1,2,3. test "
linktext = linktext & "og eddress.test.piilstil.com "
%>


<%=createLink(linktext)%>


</body>
</html>



På forhånd tak

/piil