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
Posted by at
Labels: ,

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)