Solved

ASP startpoint when parsing xml

Posted on 2007-03-28
4
196 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Suggested Solutions

I was asked about the differences between classic ASP and ASP.NET, so let me put them down here, for reference: Let's make the introductions... Classic ASP was launched by Microsoft in 1998 and dynamically generate web pages upon user interact…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Attackers love to prey on accounts that have privileges. Reducing privileged accounts and protecting privileged accounts therefore is paramount. Users, groups, and service accounts need to be protected to help protect the entire Active Directory …

733 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