<%@ Page Language="VB" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Web" %>
<%@ Import Namespace="System.Web.Mail" %>

<script runat="server">

Sub cmdSend_Click(sender As Object, e As EventArgs)

         Dim objMail As MailMessage
         objMail = New MailMessage()
         With objMail
                 .From = "gb@dotnet-webhosting.com"
                .To ="gb@dotnet-webhosting.com"
                .Subject = "Message sent using ASP.NET and CDONTS"
                .Body = "HTML Message sent from DotNet-Webhosting.com using                  ASP.NET and  Cdonts<br><a href=
                'http://www.anisha.co.uk/tutorial/send-email.aspx'>
                Wonder how this is done?</a><br><br>
                .BodyFormat = MailFormat.Html
         End With
         SmtpMail.SmtpServer = "212.36.169.3"
         SmtpMail.Send(mail)

End Sub

</script>

<Form>
     <input type=submit name=cmdSend value="Send Email">
</Form>