Optimera MSXML2.DOMDocument (expressen)?

Någon som har något förslag på hur man kan optimera denna kod eftersom när jag kör den på en sida med massa annan ASP kod så står det att tiden för script överskrids.

<%				
Set XMLDoc = CreateObject("MSXML2.DOMDocument")
XMLDoc.setProperty "ServerHTTPRequest", true
XMLDoc.async=false
XMLDoc.Load "http://expressen.se/expressen/jsp/xml.jsp?page=10"
If XMLDoc.parseError.errorCode = 0 Then

Set nodeLst = XMLDoc.getElementsByTagName("headline")
Set nodeLst2 = XMLDoc.getElementsByTagName("ingress")
Set nodeLst3 = XMLDoc.getElementsByTagName("newline")

Dim myVarnoje

Set root = xmlDoc.documentElement

For i = 0 To 5

Set i = Request.QueryString("artikelId")

myVarnoje = root.ChildNodes(i).Attributes.Item(0).Value 

sIngress = nodeLst2.Item(i).xml
   sIngress = Replace(sIngress, "<ingress>", "")
    sIngress = Replace(sIngress, "</ingress>", "")
    sIngress = Replace(sIngress, "<newline/>", "<br>")

response.write "<a href=http://skene.nu/nyheter_klick.asp?id=4&url=http://www.expressen.se/index.jsp?a=" & myVarnoje & " target=""_blank"">" & nodeLst.Item(i).text & "</a><br>"

Next

End If
%>

Vad i den här koden är det som tar tid då?

Jag förstår inte riktigt detta:

For i = 0 To 5

Set i = Request.QueryString("artikelId")

Du sätter igång loopen, och sedan skriver du direkt över värdet i? Dessutom använder du set, det ska du bara göra när du skapar objekt. Utan att helt förstå vad du försöker göra så skulle jag säga att du ska ta bort raden som börjar med set i.

mvh

Kanske det här fungerar bättre? Är lite osäker på <newline/>-replace:n fungerar som jag gjort här nedan.

Vad man annars kan göra om man orkar, som är väldigt snyggt, är att göra en xslt-mall och transformera det med xml:en.

Set XMLDoc = CreateObject("MSXML2.DOMDocument")
XMLDoc.setProperty "ServerHTTPRequest", true
XMLDoc.async=false
XMLDoc.Load "http://expressen.se/expressen/jsp/xml.jsp?page=10"
If XMLDoc.parseError.errorCode = 0 Then

	Set articleNode =	XMLDoc.selectSingleNode("page/article[@id='" & Request.QueryString("artikelId")& "']")
	If Not articleNode Is Nothing then

		sIngress =	Replace(articleNode.selectSingleNode("ingress").text, "<newline/>", "<br>")
		response.write "<a href=http://skene.nu/nyheter_klick.asp?id=4&url=http://www.expressen.se/index.jsp?a=" & articleNode.getAttribute("updated") & " target=""_blank"">" & articleNode.selectSingleNode("headline").text & "</a><br>"

	End if		

End If

Får inte fram en enda nyhet med den koden.

Ändrade så den visar de x först nyheterna samt att den hämtar ingressen med en function.

Const TOP = 5

Set XMLDoc = CreateObject("MSXML2.DOMDocument.4.0")
XMLDoc.setProperty "ServerHTTPRequest", true
XMLDoc.async=false
XMLDoc.Load "http://expressen.se/expressen/jsp/xml.jsp?page=10"
If XMLDoc.parseError.errorCode = 0 Then

	Set articles =	XMLDoc.selectNodes("page/article[position() <= " & TOP & "]")
	For Each articleNode in articles

		response.write "<a href=http://skene.nu/nyheter_klick.asp?id=4&url=http://www.expressen.se/index.jsp?a=" & articleNode.getAttribute("updated") & " target=""_blank"">" & articleNode.selectSingleNode("headline").text & "</a><br>" & vbCrLf
		sIngress =	TransformIngress(articleNode.selectSingleNode("ingress"))
		Response.Write sIngress & "<br><br>"

	Next

Else
	Response.Write "Error: " & XMLDoc.parseError.reason
End If

Function TransformIngress(ingressNode)
	Dim s, node
	If ingressNode Is Nothing then	Exit Function
	For Each node in ingressNode.childNodes
		If node.nodeType = 1 then		' NODE_ELEMENT (1)
			If node.tagName = "newline" then
				s = s & "<br>"
			End if
		ElseIf node.nodeType = 4 then	' NODE_CDATA_SECTION (4)
			s = s & node.text
		End if
	Next
	TransformIngress = s
End Function

den funkar men jag vill bara ha med rubriken.

Då är det väl inga problem att modifiera tohas kod så den gör det du vill?

Hmm det luriga är ju att förstå den ;) :stud

Om du inte vill ha med ingressen kommenterar du bara bort två rader:

		' sIngress =	TransformIngress(articleNode.selectSingleNode("ingress"))
		' Response.Write sIngress & "<br><br>"

Och då kan du även ta bort funktionen. Det skulle i sådana fall bli såhär:

Const TOP = 5

Set XMLDoc = CreateObject("MSXML2.DOMDocument.4.0")
XMLDoc.setProperty "ServerHTTPRequest", true
XMLDoc.async=false
XMLDoc.Load "http://expressen.se/expressen/jsp/xml.jsp?page=10"
If XMLDoc.parseError.errorCode = 0 Then

	Set articles =	XMLDoc.selectNodes("page/article[position() <= " & TOP & "]")
	For Each articleNode in articles

		response.write "<a href=http://skene.nu/nyheter_klick.asp?id=4&url=http://www.expressen.se/index.jsp?a=" & articleNode.getAttribute("updated") & " target=""_blank"">" & articleNode.selectSingleNode("headline").text & "</a><br>" & vbCrLf

	Next

Else
	Response.Write "Error: " & XMLDoc.parseError.reason
End If