Imports System.Web.Mail
        Public Sub Sendmail(ByVal mTo As String, ByVal mSubject As String, ByVal mMasseg As String)
            Dim objMM As New MailMessage
            SmtpMail.SmtpServer = "mailgw.netvision.net.il"
            objMM.To = mTo
            objMM.From = "[email protected]"
            objMM.BodyFormat = MailFormat.Html
            objMM.Priority = MailPriority.Normal
            objMM.Subject = mSubject
            objMM.Body = mMasseg
            SmtpMail.Send(objMM)
        End Sub

<script language="javascript">
function bookmark(){
    var title="title of your website"
    var url="http://www.your_website_url.com/"
    if (window.sidebar) window.sidebar.addPanel(title, url,"");
    else if( window.opera && window.print )
    {
    var mbm = document.createElement('a');
    mbm.setAttribute('rel','sidebar');
    mbm.setAttribute('href',url);
    mbm.setAttribute('title',title);
    mbm.click();
    }
    else if( document.all ) window.external.AddFavorite( url, title);
}
</script>

<script language="javascript">
<a href="javascript:bookmark()">ADD TO favorite</a>
</script>