Evaluate SPF Records

Below you find an ASP script example on how to lookup and evaluate SPF Records. This script can be tested on http://www.aloaha.com/api/spf.php.

<% @Language = "VBScript" %>
<% Response.buffer = false %>
<% Response.Expires = -1 %>

<%
dim spfobj
dim spfstring
dim spfresult
dim domain
dim ipnumber
dim ipnumbers Set spfobj=CreateObject("spf_dns.DNSClass") domain = Request.QueryString("domain")
ipnumber = Request.QueryString("ipnumber") if domain<>"" and ipnumber="" then
 if instr(domain,".")>0 then
 ipnumbers=spfobj.get_rr_a_comma(cstr(domain))
 ipnumber=split(ipnumbers,",")(ubound(split(ipnumbers,",")))
 end if
end if
if ipnumber <> "" then response.write "IP Number: "&ipnumber&" " if domain="" and ipnumber<>"" then
 domain=spfobj.PTR_Query(ipnumber)
end if
if domain <> "" then response.write "Domain: "&domain&" " if domain<>"" then
 spfstring=cstr(spfobj.get_spf_records(domain))
else
 spfstring=""
end if if spfstring <> "" then response.write "SPF Record: "&spfstring&" " if domain<>"" and ipnumber<>"" then
 spfresult=cstr(spfobj.eval_spf(cstr(domain), cstr(ipnumber), "", "", ""))
 if spfstring<>"" then
 response.write "SPF Result is: "&spfresult&" "
 else
 response.write "Your Domain does not publish SPF "
 end if
else
 spfresult=""
end if %>