---

Hej.

Jeg har et problem med at hente XML fra Dansk Skak Union til
Erritsø Skakklubs hjemmeside.

Har jeg XML'en liggende hos mig selv så virker det - samme kode
hvor jeg henter fra www.dsu.dk virker ikke. Det er samme XML-fil.

Er der nogen som kender til dette ??

Min kode :

   Select Case Request.Querystring("version")
      Case "D"
         sourceFile =
"http://www.dsu.dk/modul/medlemsinfo/rating/klub_rating.php?id=20
0500453&format=xml"
      Case "S"
         sourceFile =
"http://www.erritsoe-skakklub.dk/xml/klub_rating.xml"
   End Select
   response.write "Sourcefil : " & sourceFile & "<br><br>" & vbCrLf

   styleFile = Server.MapPath("untitled.xsl")

   Set xml = Server.CreateObject("Microsoft.XMLHTTP")
   xml.Open "GET", sourceFile, False
   xml.Send

   set source = Server.CreateObject("Microsoft.XMLDOM")
   source.async = false
   bStatus = source.load(xml.responseXML)
   if not bStatus then
-- noget error handling
   end if

   set style = Server.CreateObject("Microsoft.XMLDOM")
   style.async = false
   style.load(styleFile)
   
   Response.Write source.transformNode(style)
   
   Response.write "<xmp>" & xml.responseText & "</xmp>"
   
   set xml = nothing
   set source = nothing
   set style = nothing


De 2 måder kan ses her med fejlmeddelelse :
http://www.erritsoe-skakklub.dk/xml/ratingliste2.asp?version=S

Skift version=S til D for den anden.

Med venlig hilsen
Claus Marcussen

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Claus Marcussen wrote:

>    Set xml = Server.CreateObject("Microsoft.XMLHTTP")

Du skal prøve med en annen progID: Msxml2.ServerXMLHTTP.3.0

Alternativt kan du slå sammen de to operasjonene. Denne koden virker
fint hos meg:

'sourceFile =
"http://www.dsu.dk/modul/medlemsinfo/rating/klub_rating.php?id=200500453&format=xml"
sourceFile = "http://www.erritsoe-skakklub.dk/xml/klub_rating.xml"

Set oXML = Server.Createobject("Msxml2.DOMDocument")
oXML.async = False
oXML.setProperty "ServerHTTPRequest", True
oXML.Load(sourceFile)
Set oNodeList = oXML.selectNodes("//medlem")

For Each oNode In oNodeList
Response.Write oNode.selectSingleNode("navn").text & "<br>"
Next


terje

---

Hej

> Du skal prøve med en annen progID: Msxml2.ServerXMLHTTP.3.0

Gav ingen forskel

> Alternativt kan du slå sammen de to operasjonene. Denne koden virker
> fint hos meg:

Men det gjorde dette - tusinde tak for hjælpen.

Med venlig hilsen
Claus Marcussen

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials