Fråga om XMLHTTP

Vad krävs för att man ska kunna köra lite XMLHTTP? Har aldrig testat förr och hittade en kod jag ville prova här på WF. När jag kör sidan får jag inget felmeddelande, men den hämtar inget...

Här är koden..

-----------------------------------------------------

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.idp.mdh.se/personal/bon01/artman/innehall.html", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<td>.*</td>"
Set hittade = objRegExp.Execute(strHTML)

Function red(strText)
strText = Replace(strText, "<td>", " ")
strText = Replace(strText, "</td>", " ")

red = strText
End Function

For each item in hittade
With response
.write("Kursplaneringar ")
.write red(item.value)
End with
Response.write("Testar")
Next

-----------------------------------------------------------------

Response.write("Testar") skrivs inte ut!

Är det något jag måste ställa in eller så?

Det finns bara EN <td> i dokumentet så den borde hitta den... Testdokumentet och det dokument jag vill hämta ifrån ligger på samma server...

Är det någon som kan hjälpa en stackars amatör som inget fattar..?

// Annakay

objRegExp.Pattern = "<td>.*</td>" är felet.
.* hämtar allt utom radbrytningar. Skriv istället:

objRegExp.Pattern = "<td>[\s\S]*</td>"

Eller ännu bättre:

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP") 
objHTTP.Open "GET", "http://www.idp.mdh.se/personal/bon01/artman/innehall.html", False 

objHTTP.Send 
strHTML=objHTTP.responseText 
Set objHTTP = Nothing 

Set objRegExp = New regexp 
objRegExp.Global = false 
objRegExp.IgnoreCase = true 
objRegExp.Pattern = "<td>([\s\S]*)</td>" 
Set hittade = objRegExp.Execute(strHTML) 

For each item in hittade 
	With response 
	.write("Kursplaneringar ") 
	.write item.SubMatches(0) 
	End with 
	Response.write("Testar") 
Next

Funkar ändå inte...

Fortfarande ingen text... Inget alls händer! Bara en tom sida...
Den går aldrig in i For-satsen, "hittade" är alltså tom...

Förslag?

// Annakay

Aaahhh, sorry, jag hade missat en liten fnutt... Nu funkar det! Tusen tack!