Sending Email via ASP.NET and CDONTS[vs bate2 等級 中

<%@ 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 = "<h2>Send Email using ASP.NET formatted in HTML</h2>"
        lblMessage.Text = strResponse
    Else
        dim strResponse as string = "You just sent an email message formatted in HTML to:<br><h2>" & request("EmailAddress") & "</h2>"
        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")