| Service City |
State |
Phone Number |
<%
if not IsEmpty(Request.Form("AreaCodeText")) then
Dim netXML, popXML, strURL, strURL2
'strURL = "http://mri.cisp.cc/api/getnetworks.XML.asp?ISPID=20&APIPass=hyper"
strURL2 = "http://api.cisp.cc/PopLookupTest4.XML.asp?ClientID=0020&areacode="&Request.Form("AreaCodeText") & "&Page=1"
strURL = "http://mri.cisp.cc/api/getnetworks.XML.asp?ISPID=20&APIPass=hyper"
' Create the MSXML DOMDocument object for the xml document output of the API
'Set netXML = Server.CreateObject("MSXML2.DOMDocument")
'netXML.async = False
'netXML.setProperty "ServerHTTPRequest", True
'netXML.load strURL
Set popXML = Server.CreateObject("MSXML2.DOMDocument")
popXML.async= false
popXML.setProperty "ServerHTTPRequest", True
popXML.load strURL2
' Output the results if there were no errors.
dim counter
counter = 0
dim URLPath, city, state, areacode, number, networkletter
dim objNode ,popNode
dim HL, HTML
For Each popNode in popXML.documentElement.childNodes
If HL = "HL1" Then
HL = "HL2"
Else
HL = "HL1"
End If
city = popNode.getAttribute("CITY")
state = popNode.getAttribute("STATE")
areacode = popNode.getAttribute("AREA_CODE")
number = popNode.getAttribute("NUMBER")
HTML = HTML & ""
HTML = HTML & "| "&city&" | "
HTML = HTML & ""&state&" | "
HTML = HTML & "("&areacode&")"
HTML = HTML & left(number, 3) & "-" & right(number, 4) & " | "
HTML = HTML & " " & vbcrlf
counter = counter + 1
next
set popXML=nothing
'set netXML=nothing
If counter = 0 Then
HTML = "
There is no access available in the " & Request.Form("AreaCodeText") & " area code. |
"
Response.Write(HTML)
Else
Response.write(HTML)
end if
end if
%>
Click here if you do not see
a number local to your calling area.
|
|
