|
|
 |
|
|
Examples > IntraDNS > ASP
IntraDNS 2.01 - MX Lookup Example
set obj=Server.createobject("IntraDNS.IntraDNS")
obj.SetDNSServer ("192.9.9.3")
obj.SetMaxResults (5)
obj.SetConnectionTimeout (1000)
obj.SetQueryTimeout (4)
mydomain="hotmail.com"
result = obj.NameToMX(mydomain)
response.write "E-mail servers: "& result
If result > 0 Then
For i = 0 To result - 1
response.write obj.GetResults(i) & " - "&obj.GetMXPriority(i)
Next
Else
response.write "Error: " & obj.GetLastError())
response.write "Error #: " & obj.GetLastErrorNumber())
End If
|
|
|
|
|
|
