Hmm.. mange tak pepsi
<%
Function parseURL(strInput)
dim reURL1, reURL2, reEmail, strOutput
Set reURL1 = New RegExp
reURL1.Pattern = "(http|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)"
reURL1.Global = True
reURL1.IgnoreCase = True
Set reURL2 = New RegExp
reURL2.Pattern = "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,3}\S*)"
reURL2.Global = True
reURL2.IgnoreCase = True
Set reEmail = New RegExp
reEmail.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,3}\S*)"
reEmail.Global = True
reEmail.IgnoreCase = True
strOutput = reEmail.Replace(strInput,"<a href=mailto:$1>$1</a> ")
strOutput = reURL1.Replace(strOutput,"<a href=$1$2>$1$2</a> ")
strOutput = reURL2.Replace(strOutput,"<a href=http://$2>$2</a> ")
parseURL = strOutput
End Function
%>
<%= parseURL("haj@zhat.dk 
http://zhat.dk ftp://sunsite.dk www.wolla.dk bla@bla.bla.dk 
http://www.noget.andet.com www.noget.dk") %>
ParseURL forstår jeg ikke helt.. er det teksten? Forså skal den vise et helt site.. help