Classic ASP
Classic ASP
MX Lookup Mail Server Domain by Email Address
How to find the mail server for a given email address. Returns the domain name of the primary mail server.Chilkat Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
set dns = Server.CreateObject("Chilkat.Dns")
set json = Server.CreateObject("Chilkat.JsonObject")
emailAddr = "bob@example.com"
' This gets all MX domains for an email address. (Typically one domain.)
' The preferred domain will be at index 0 (see below).
success = dns.Query("MX",emailAddr,json)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( dns.LastErrorText) & "</pre>"
Response.End
End If
i = 0
count_i = json.SizeOfArray("answer.mx")
Do While i < count_i
json.I = i
domain = json.StringOf("answer.mx[i].domain")
Response.Write "<pre>" & Server.HTMLEncode( domain) & "</pre>"
i = i + 1
Loop
%>
</body>
</html>