suporte / componentes asp

O AspMX é um componente ASP que verifica queries DNS sobre servidores de e-mail (mailhosts). Em nosso exemplo, altere o nome seudominio.com.br para o domínio que deseja realizar a pesquisa e o campo xxx.xxx.xxx.xxx para o servidor IP que deseja realizar a verificação.

Código ASP:

<!-- Início ASP --->

<%
dim MXRecs, intCount
Set MXRecs = Server.CreateObject ("AspMX.Lookup")
MXRecs.DNS = "xxx.xxx.xxx.xxx"
MXRecs.Domain = "seudominio.com.br"
if MXRecs.DoLookup then
Response.Write "Encontrados" & MXRecs.MXRecords & " mail record(s).<br>"
Response.Write "<table border=1>"
for intCount = 1 to MXRecs.MXRecords
Response.Write "<tr><td>" & intCount & "</td><td>" & MXRecs.GetMXRecord(intCount) & "</td></tr>"
next
Response.Write "</table>"
else
Response.Write "Um erro ocorreu durante a busca pelo domínio. O erro foi:" & MXRecs.Error
end if
Set MXRecs = nothing
%>

<!-- Fim ASP --->