lav link og emaillinks automatisk fra notalfelt
Når jeg bruger denne her:<%
Function LinkString(strInput)
dim arrPattern, arrReplaceString, Rx, intIndex
arrPattern = Array("([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)", _
"(http|https|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)", _
"(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,4}\S*)")
arrReplaceString = Array(" <a href='mailto:$1'>$1</a> ", _
" <a href='$1$2' target='_blank'>$1$2</a> ", _
" <a href='http://$2' target='_blank'>$2</a> ")
Set Rx = New RegExp
Rx.Global = True
Rx.IgnoreCase = True
For intIndex = 0 To UBound(arrPattern)
Rx.Pattern = arrPattern(intIndex)
strInput = Rx.Replace(strInput, arrReplaceString(intIndex))
Next
Set Rx = Nothing
LinkString = strInput
End Function
%>
Så får jeg denne udskrift:
Tove.Olsen@ccccc.com
www.Arla.dk' target='_blank'>www.ccccc.dk'>Tove.Olsen@ccccc.com
www.ccccc.dk
Den skiller ikke link'sne - nogen der kan hjælpe mig her, så den både laver maillink og http link automatisk?