Hi,

Sorry I am not so familiar with XML. Could somebody help me figure out my problem? Thanks in advance.

I am modifying some asp files running xml objects written by our consultants.

ASP file creates xml object by following code where strURL is search criteria variable:

set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.open "GET", strURL, False
xmlhttp.send

GenerateListing = xmlhttp.responseText

My question is that GenerateListing is one variable containing XML data. How do I calculate how many data set (kind of data record in SQL database) in GenerateListing?

Not sure what your xml looks like, can you show the structure and define what the datasets are?
You should try to use the prog id "Msxml2.XMLHTTP.4.0" if you can, if version four is not on the machine try version three, "Msxml2.XMLHTTP.3.0".

If the call to send succeeds then your response will be xml so use the xml dom:
Joe (MVP - xml)

Joe:

Thank you for your response. I copied some block of code written by our consultants last July that doesn't show version number of XML. The code mainly search our service company within 1-999 miles for specified location such one zip code or detailed address throught MapQuest search engine which returns xml format data if given zip code or address from a user. The returned xml data contains variable datasets. What I want to do is how to get the number of datasets?



private sub caller()
dim strServiceURL, strReturnURL

strServiceURL = p_ASPURLLib.GenerateURL("scripts/mqinterconnect.exe?link=CMSmap&closestn=10&closest prox=1&miles=999&streetaddress=" & server.URLEncode(Request.Form("Street Address")) & Server.URLEncode(Request.QueryString("StreetAddres s")) & "&city=" & Request.Form("City") & Request.QueryString("City") & "&state=" & sState & Request.QueryString("State") & "&zip=" & Request.Form("Postal Code") & Request.QueryString("Postal Code") & "&iconid=32",Array(),Array())

Call GenerateListing(strServiceURL)
end Sub

Public Sub GenerateListing(strURL)

Dim xmlhttp, objDocXML, strThisURL, strReplace, selNodes, item, GenerateListing

set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")

If Request.QueryString("level") <> "" then
   strURL = strURL & "&level=" & Request.QueryString("level")
Else
   strURL = strURL & "&level=9"
End If

If Request.QueryString("lat") <> "" then
   strURL = strURL & "&lat=" & Request.QueryString("lat")
End If

If Request.QueryString("lng") <> "" then
   strURL = strURL & "&lng=" & Request.QueryString("lng")
End If

If Request.QueryString("event") <> "" then
   strURL = strURL & "&event=" & Request.QueryString("event")
End If

If Request.QueryString("ml") <> "" then
   strURL = strURL & "&ml=" & Request.QueryString("ml")
End If

If Request.QueryString("orig_lat") <> "" then
   strURL = strURL & "&orig_lat=" & Request.QueryString("orig_lat")
End If

If Request.QueryString("orig_lng") <> "" then
   strURL = strURL & "&orig_lng=" & Request.QueryString("orig_lng")
End If

If Request.QueryString("orig_name") <> "" then
   strURL = strURL & "&orig_name=" & Request.QueryString("orig_name")
End If

If Request.QueryString("so") <> "" then
   strURL = strURL & "&so=" & Request.QueryString("so")
End If

If Request.QueryString("ss") <> "" then
   strURL = strURL & "&ss=" & Request.QueryString("ss")
End If

If Request.QueryString("si") <> "" then
   strURL = strURL & "&si=" & Request.QueryString("si")
End If

xmlhttp.open "GET", strURL, False
xmlhttp.send

GenerateListing = xmlhttp.responseText

'-- Clean up the xml returned from Mapquest so the load won't fail.
GenerateListing = replace(GenerateListing,"&","&amp;")
GenerateListing = replace(GenerateListing,"""","&quot;")
GenerateListing = replace(GenerateListing,"'","&apos;")

set xmlHTTP = nothing

GenerateListing = "<MAPQUEST><GARBAGE><![CDATA[" & GenerateListing
GenerateListing = replace(GenerateListing,chr(10) & chr(10),"")
GenerateListing = replace(GenerateListing,"<! $GEO_LOOP END closest_pois>","")

GenerateListing = ChangeGenerateListing(GenerateListing)

But can you show an example of the returned xml, preferably one that has at least two datasets and with any irrelevant stuff removed?

Joe (MVP - xml)

By now our ftp engine is blocked by new firewall. Once it sets up, I will show the returned result. Thanks!