ansaurus

Question

Answer 1

+1 A:

Your variables all seem messed up:-

Dim videoYoutube : videoYoutube = "http://www.youtube.com/watch?v=d8nxjUlbKJA"

videoYoutube = Replace(videoYoutube,"http://www.youtube.com/watch?v=","")

videoYoutube = "http://gdata.youtube.com/feeds/api/videos/" & videoYoutube

Dim xhr: Set xhr= Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")

xhr.Open "GET", videoYoutube, False

I suspect you actually intended:-

Dim originalUrl: originalUrl= "http://www.youtube.com/watch?v=d8nxjUlbKJA"

Dim feedUrl : feedUrl = Replace(originalUrl, "http://www.youtube.com/watch?v=", "")

feedUrl = "http://gdata.youtube.com/feeds/api/videos/" & feedUrl 

Dim xhr: Set xhr= Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")

xhr.Open "GET", feedUrl, False

The key here is naming. Name your variables well and the bugs are easier to see. However having said that the resulting Url "http://gdata.youtube.com/feeds/api/videos/d8nxjUlbKJA" returns a 404.

(BTW this all feels very familiar, have I dealt with this before somewhere on SO?)

Edit

The true problem with this particular feed is that the Content-Type header specifies the content to be: "application/atom+xml". Unfortunately the old MSXML3 ServerXMLHTTP object doesn't recognise this content type as XML and therefore doesn't populate the ResponseXML object.

You have two options, first if you have control of the server or know that MSXML6 is installed you can do this use that. Change the ProgID in the CreateObject to "MSXML2.ServerXMLHTTP.6.0" (you can also delete the SelectionLanguage setting since XPATH is default in MSXML6).

The other option is to load the ResponseStream into an instance of the DOM yourself:-

Instead of:-

Dim xml : Set xml = xhr.ResponseXML

use:-

Dim xml : Set xml = CreateObject("MSXML2.DOMDocument.3.0")
xml.Load xhr.ResponseStream

AnthonyWJones 2009-10-13 14:20:36

Yes you have, but i'm new to SO and couldn't see where I could PM you or add a reply to the question. I have changed the code to the one you suggested, but still get:Microsoft VBScript runtime error '800a01a8'Object requiredadmin_youtube_detail.asp, line 29which is: Dim title : title = entry.SelectSingleNode("a:title").Text

Lyno 2009-10-13 14:26:50

It would help if I could see the feed myself but I just get a 404. However if your code is getting a 404 you wouldn't be reaching the line that is erroring. So either I've the url wrong or your code still isn't what I think it is.

AnthonyWJones 2009-10-13 14:52:03

Posted the XML feed i recieve, above.

Lyno 2009-10-13 15:27:41

Edited my answer with solution

AnthonyWJones 2009-10-14 06:39:28

Thanks Anthony, that did th job! Once I'd changed it to MSXML2.ServerXMLHTTP.6.0, it worked like a dream! One other question: How do I access things like media:thumbnail data since there's multiple entries? Thanks again.

Lyno 2009-10-14 11:22:49

Use .SelectNodes("media:group/media:thumbnail") which will return a List of XmlNodes that you can enumerate with `For Each`. Remember to add the media alias to the ns variable.

AnthonyWJones 2009-10-14 11:56:16

Answer 2

A:

I tryied to use MSXML2.ServerXMLHTTP.3.0 on my server. I had too much problems, now I'm using Microsoft.XMLHTTP everything works fine.

No more errors.

Simon 2010-03-25 17:42:09

ansaurus

tags:

views:

answers:

Youtube XML ASP classic problem

related questions