Denna funktion fungerar med länkar inom [URL] och [/URL]. Då jag inte kan RegExp undrar jag hur man får det att fungera genom att i en sträng bara skriva http://www.lanken.com, alltså utan att använda sig av [URL]-taggarna??

<code>
<%
Function whohoo(sText)

Set oRE = New RegExp
oRE.Global = True
oRE.IgnoreCase = True


oRE.Pattern = "\[url\](.*?)\[\/url\]"


Set oMatches = oRE.Execute(sText)
For Each oMatch In oMatches
sMatch = oMatch.Value
sURLValue = oMatch.SubMatches(0)

If InStr(sURLValue, "http://") = 0 Then
sText = Replace(sText, sMatch, "" & sURLValue & "")
Else
sText = Replace(sText, sMatch, "" & sURLValue & "")
End If
Next


Set oMatches = Nothing
Set oRE = Nothing


whohoo= sText
End Function
%>

<%=whohoo("http://www.dileno.cjb.net är en soft sajt. http://www.ebtrox.net också..")%>
</code>

läs denna artikel om du vill veta mer:
http://www.phpbuilder.com/columns/dario19990616.php3

annars, skriv in detta:
Public Function LinkURLs(byVal strIn)
dim re, sOut

set re = New RegExp
re.global = true
re.ignorecase = true
're.multiline = true

' pattern that parses and finds any Internet URLs:
re.pattern = "((mailto\:|(news|(ht|f)tp(s?))\://){1}\S+)"

' replace method of RegExp object uses a remembered
' pattern denoted as $1 to link the found URL(s)
sOut = re.replace( strIn, "$1")

set re = Nothing
LinkURLs = sOut
End Function