(Classic ASP) Transition from MailMan.MxLookupAll to the Chilkat DNS class

Provides instructions for replacing deprecated MxLookupAll method calls with the Chilkat Dns class.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.MailMan")
set mailman = Server.CreateObject("Chilkat.MailMan")

' ...
' ...

emailAddr = "joe@example.com"

' ------------------------------------------------------------------------
' The MxLookupAll method is deprecated:

' sa is a Chilkat.StringArray
Set sa = mailman.MxLookupAll(emailAddr)
If (mailman.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>"
    Response.End
End If

' ...
' ...

' ------------------------------------------------------------------------
' Do the equivalent using the Chilkat DNS class

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Dns")
set dns = Server.CreateObject("Chilkat.Dns")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = Server.CreateObject("Chilkat.JsonObject")

' 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>