Sending Email via ASP. NET and CDONTS [vs bate2 level

<% @ Page Language = "VB" EnableSessionState = "False" EnableViewState = "False" Trace = "False" Debug = "False" Strict = "True" %>
<% @ Import Namespace = "System. Web. Mail" %>
<Script language = "VB" runat = server>
Sub Page_load (Sender as Object, E as EventArgs)

If request. form ("EmailAddress") = "" Then
Dim strResponse as string = "LblMessage. Text = strResponse
Else
Dim strResponse as string = "You just sent an email message formatted in HTML to: <br> LblMessage. Text = strResponse
End If

End Sub

Sub btn_Click (sender as Object, e as System. EventArgs)
If request. form ("EmailAddress") <> ""
Dim mail As New MailMessage
Mail. From = "youraddress@domain.com"
Mail. To = request. form ("EmailAddress ")