TV-guide?

Någon som har fått denna kod att funka dvs. få fram vad som går på TV:en?

<%
Dim objHTTP,strHTML,objRegExp,hittade,item

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://tvprogram.nu/cgi-tvprogram/tvfix.cgi?NU-tvms.htm", False
objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<font face=""Verdana, Helvetica, Arial"" size=""2""><b>.*</b></font>"
Set hittade = objRegExp.Execute(strHTML)

For each item in hittade
  Response.Write ""& item.Value &"<br>"
Next

%>

fick det att funka om jag använde denna kod:

objRegExp.Pattern = "<font face=""Verdana, Helvetica, Arial"" size=""4""><b>.*"

Men åäö funkar inte.
Har msxml4 installerat.

Någon som är grymm på "XML:andet" och kan hjälpa mig loopa ut resulteten ur denna XML-fil?

Hur gör man för att hämta programme start?

Set nodeLst2 = XMLDoc.getElementsByTagName("programme start")

med den koden så får jag detta felmeddelande:
Expected token 'eof' found 'NAME'. .//programme -->start<--

/film/tv-guide.asp, line 109

Set nodeLst2 = XMLDoc.getElementsByTagName("programme")
for each obj in nodeLst2
	Response.Write obj.attributes.getNamedItem("start").text & "<br>"
next

Så är det bara att skriva ut det du vill.

Hur skriver jag för att få med titlen i loopen?

obj.attributes.getNamedItem("title").text

funkar inte :(

	Response.Write obj.selectSingleNode("title").text

Kan man även få med kanalens namn i loopen?
Dvs. när den börjar loopa ut en ny kanal.

Ja, istället för att utgå ifrån program, utgå ifrån kanal, och loopa ut programmen inne i den kanal-loopen.

mvh

Okej det gick också att lösa på ett enkelt sätt.
Nu kommer den sista och avgörande frågan. ;)
Hur hämtar man ut bara ett tvprogram, t.ex. bara det programmet som startar (programme start)

start="20041213060000 00"?

set objNode = obj.selectSingleNode("//programme[@start='20041213060000 00']")

mvh

@nders så här blev resultatet.

http://skene.nu/film/tv-guide.asp

Najsigt! :)

SKulle aldrig ha gått utan din hjälp så tackar o (jul)bockar för hjälpen. ;)