link i formularer

www.netcoders.dk - hvis du søger efter "linkmaker" finder du nogle forskellige muligheder. Formentlig har også www.activedeveloper.dk nogle forslag på dette.

Her kommer der lige en som jeg bruger:

Function Link(strInput)
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å udskriver du bare ved at sætte link( ) om, fx: link(rs("formular1"))

lukketid?