This email validation is a step up from Base Level Validation, but still extremely inadequate. This level of validation only requires that the domain name of the email address be a valid registered domain. Many domain names are registered but cannot receive email. Additionally, the majority of registered domain names are not currently active mail servers. This is usually implemented as code or a component that does domain name registration lookups or possibly even standard DNS lookups. For purposes of example, let's say you choose to use a DNS lookup component. After installing on the server, you need to first make sure the DLL is referenced in View-->References or Project-->References. Keep in mind that most DNS objects are expecting a domain name and not an email address. The following code is a generic example of how you might implement a DNS component for email validation:
set DNSobject = Server.CreateObject("CompanyABC.DNS")
emailaddress = Request.Form("emailaddress")
thedomainname =Mid(emailaddress,InStr(1,emailaddress,"@",vbTextCompare)+1,Len(emailaddress))
DNSobject.domain = thedomainname
DNSobject.server = "XXX.XXX.XXX.XXX"
goodorbad = DNSojbect.dolookup
If goodorbad = "" Then 'Keep in mind some DNS object may return something other than ""
Response.Redirect("badaddress.html")
Else
<continue form processing>
End If