sådan her ser min kode ud og det virker ik.. Det er tage fra
www.magic.dk og det virker ved ham som har lavet det uden det ... 4.0 noget efter!
<%
Dim objXMLHTTP, objXMLDOM, objTitles, objURLs, objCategories, i
Set objXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP.4.0")
Set objXMLDOM = Server.CreateObject("MSXML2.DOMdocument.4.0")
Call objXMLHTTP.Open("GET", "
http://www.magik.dk/links.asp", False)
objXMLHTTP.Send
Set objXMLDOM = objXMLHTTP.ResponseXML
Set objTitles = objXMLDOM.getElementsByTagName("titel")
Set objURLs = objXMLDOM.getElementsByTagName("url")
Set objCategories = objXMLDOM.getElementsByTagName("kategori")
Response.Write("<table width=""100%"" cellspacing=""5"" cellpadding=""5"">")
For i = 0 To objTitles.length - 1
Response.Write("<tr>")
Response.Write("<td width='200'><a href='" & objURLs(i) & "' target='_blank'>" & objTitles(i).text & "</a></td>")
Response.Write("<td>" & objCategories(i).text & "</td>")
Response.Write("</tr>")
Next
Response.Write("</table>")
Set objXMLHTTP = Nothing
Set objXMLDOM = Nothing
%>