Solved

ASP startpoint when parsing xml

Posted on 2007-03-28
4
195 Views
Last Modified: 2012-06-27
Hi
I am trying to get the results from an amazon xml feed using asp/ xml the following code works but only if the start point is valid. the startpoint is looking for <OurPrice> but if the product is not in stock the <OurPrice> attribute is not returned through the xml so my script crashes, what I need it to do is if the startpoint <OurPrice> is not returned set the value of strPrice to '0.00', the variable strPrice is then being used in an update statement to set the price in my database.  I would like to try and get an answer in classic asp please,

here is the code

 I'm using, I have taken out my developer token so the link to amazon will crash in this example

Dim objXML
             Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")
                  strURL ="http://xml-eu.amazon.com/onca/xml3?t=webservices-20&dev-t=&AsinSearch=B0009yjb1g&type=lite&page=1&locale=uk&f=xml"
                  objXML.Open "GET" , strURL , False ,"",""
            objXML.Send
              If objXML.Status = 200 then
          strOpen = objXML.ResponseText
                            vStartAt1 = 1
          do while vStartAt1 <> -1
        startPoint= InStr(vStartAt1, strOpen, "<OurPrice>")   'Look for start string, start looking from cursor location.
'========================
If startPoint = 0 or IsNull(startPoint) then
   exit do
end if
'========================
     if startPoint <> -1 then  
          endPoint = InStr(startPoint, strOpen, "</OurPrice>")
                 if endPoint <> -1 then
             strPrice = Mid(strOpen, startPoint, endPoint-startPoint)
                   strPrice = Replace(strPrice, "'", """")
                    strPrice = Replace(strPrice, "<OurPrice>", "")
                    strPrice = Replace(strPrice, "£", "")
                       
                        Set db1 = server.CreateObject("ADODB.Connection")
db1.open MM_luxurygifts_STRING
strSQL1 = "UPDATE dbo.thomas SET pricecheckstatus = '2', pricecheck = (" & strPrice & ") FROM thomas WHERE id=151"
set rs1 = db1.execute(strSQL1)
set rs1 = nothing
db1.close
set db1 = nothing
            Else
           end if
             vStartAt1 = endPoint
              end if
                                  loop
                                      End if
        Set objXML = Nothing
0
Comment
Question by:sparky74
  • 2
  • 2
4 Comments
 
LVL 75

Expert Comment

by:Anthony Perkins
ID: 18813629
Just out of curiousity, why in the world are you using string functions when you can use MSXML to parse the Xml Document?
0
 

Author Comment

by:sparky74
ID: 18813906
Thanks for the reply, I have never used MSXML to parse an XML Document before, in fact I didn't even know about it :(

I used the above script to scrape some info from one of our asp pages before and thought it would work in a similar way, which is does, but I have the problem when the <price> element is'nt returned.

I will search now for some info on MSXML, any examples of how I could achieve the above would be grateful

thanks

0
 
LVL 75

Accepted Solution

by:
Anthony Perkins earned 500 total points
ID: 18818313
Post the Xml document and the node(s) you want to retrieve.
0
 

Author Comment

by:sparky74
ID: 18831350
Thanks for the comments, I found some info and got it sorted using the MSXML DOM to parse out the nodes
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Today is the age of broadband.  More and more people are going this route determined to experience the web and it’s multitude of services as quickly and painlessly as possible. Coupled with the move to broadband, people are experiencing the web via …
Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below. https://filedb.experts-exchange.com/incoming/2017/03_w12/1151775/Permutations.txt https://filedb.experts-exchange.com/incoming/201…

860 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question