анулиране на имейл изпратете с asp.net персонализиран валидатор - asp.net, vb.net, валидиране, имейл

Имам формуляр, който изпраща имейл, който включва 4полета. Едно от полетата е валидирано от персонализиран валидатор срещу базата данни и ако стойността е намерена, имейлът трябва да изпрати. Ако не бъде намерен, имейлът трябва да се анулира и трябва да има съобщение за грешка. Всичко работи, с изключение на изпратените имейли, независимо от валидирането. Как мога да предпазя имейла от изпращане?

Imports System.Net.Mail
Imports System.Data.OleDb
Imports System.Data.SqlClient

Partial Class inforequest
Inherits System.Web.UI.Page

Protected Sub btnSend_Click(ByVal sender As Object, ByVal e As EventArgs)



Dim mm As New MailMessage("sender@email.com", "receiver@email.com")
mm.Subject = txtSubject.Text
mm.Body = "Name: " & txtName.Text & "<br /><br />Email: " & txtEmail.Text & "<br />" &                       txtBody.Text & "<br /> Agent Code:" & AgentCode.Text


mm.IsBodyHtml = True
Dim smtp As New SmtpClient()
smtp.Host = "mailserver"
smtp.EnableSsl = False

Dim NetworkCred As New System.Net.NetworkCredential()
smtp.UseDefaultCredentials = False


NetworkCred.UserName = "username"
NetworkCred.Password = "password"
smtp.EnableSsl = False

smtp.Credentials = NetworkCred
smtp.Port = 587
smtp.Send(mm)
lblMessage.Text = "Email Sent SucessFully."
End Sub






Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load


Dim dbconn As String
Dim qstring = Request.QueryString("ID")
Dim addressDR As System.Data.SqlClient.SqlDataReader

Dim sqlcommand As String = "SELECT * FROM listings WHERE ID=@qstring"
dbconn = ConfigurationManager.ConnectionStrings("houses").ToString

Dim connection As New System.Data.SqlClient.SqlConnection(dbconn)
connection.Open()
Dim addresscmd As New System.Data.SqlClient.SqlCommand(sqlcommand, connection)
addresscmd.Parameters.AddWithValue("@qstring", qstring)

addressDR = addresscmd.ExecuteReader()





If addressDR.HasRows Then
addressDR.Read()
Me.txtBody.Text = "I would like to request a showing of the home located at: " & addressDR("address") & " MLS#: " & addressDR("mlsnum")
addressDR.Close()


End If

connection.Close()





End Sub




Protected Sub CodeValidate_ServerValidate(ByVal source As Object, ByVal args As System.Web.UI.WebControls.ServerValidateEventArgs) Handles CodeValidate.ServerValidate

Dim AgentCode = Request.Form("AgentCode")
Dim sql As String = "SELECT agentcode FROM Codes WHERE agentcode = @AgentCode"

Using conn As New SqlConnection(ConfigurationManager.ConnectionStrings("Codes").ConnectionString)
Using cmd As New SqlCommand(sql, conn)
cmd.Parameters.AddWithValue("@AgentCode", AgentCode)

conn.Open()
Using rdr As SqlDataReader = cmd.ExecuteReader()
If (rdr.Read()) Then
"MsgBox("reader reading")
"If AgentCode = rdr("agentcode").ToString() Then
args.IsValid = True

"MsgBox("valid!")
Else
args.IsValid = False

"MsgBox("not valid")
End If

End Using
conn.Close()

End Using

End Using
End Sub




End Class

Отговори:

Трябва да се обадите на Page.Validate () и също да проверите Page.IsValid