Mailto

<%
mDelimit = Chr(0)
Function parse(text)
dim strString
strString = (text)
strString = server.HTMLencode(strString)
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.Ignorecase = True

objRegExp.Pattern = "(\w+((-\w+)&#0124;(\.\w+))*\@[A-Za-z0-9]+((\.&#0124;-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+)"
strString = objRegExp.Replace(strString, "<a href=""mailto""$1"" class=""black"">$1</a>")
objRegExp.Pattern = "(http://&#0124;https://&#0124;ftp://&#0124;mailto:)(\S)(\S+)"
strString = objRegExp.Replace(strString, "<a href=""$1$2""$3"" class=""black"">$2$3</a>")
objRegExp.Pattern = "(www\.(\S)(\S+))"
strString = objRegExp.Replace(strString, "<a href=""http://$1"" class=""black"">$1</a>")

objRegExp.Pattern = "\[B\]"
strString = ObjRegExp.Replace(strString,"<B>")
objRegExp.Pattern = "\[/B\]"
strString = ObjRegExp.Replace(strString,"</B>")
objRegExp.Pattern = "\[I\]"
strString = ObjRegExp.Replace(strString,"<I>")
objRegExp.Pattern = "\[/I\]"
strString = ObjRegExp.Replace(strString,"</I>")
objRegExp.Pattern = "\[BIG\]"
strString = ObjRegExp.Replace(strString,"<BIG>")
objRegExp.Pattern = "\[/BIG\]"
strString = ObjRegExp.Replace(strString,"</BIG>")

strString = replace (strString, vbcrlf, "<br>")

parse=strString

end function
%>

Varför blir inte mailto koden en mailto länk. Den hänvisar bara till mappen den ligger i...?

------------------
Talet är tankens död

strString = objRegExp.Replace(strString, "<a href=mailto:" & "$1" & " class=""black"">$1</a>")

Kanske...

------------------
/solbulle
Hemmabio | Spelautomater | The Who

[Redigerat av solbulle den 17 dec 2001]

hmm... nej

------------------
Talet är tankens död