Showing posts with label email. Show all posts
Showing posts with label email. Show all posts

Friday, July 3, 2009

ASP MailTo Link Generator


Function LinkMail(strval)
If StringVal(strval) Then
If InStr(1, strval, "@") <> 0 Then
LinkMail = "<a href='mailto:" & strval & "'>" & strval & "</a>"
Else
LinkMail = strval
End If
Else
LinkMail = strval
End If
End Function