M�sste eigentlich gehen... Bist Du sicher, dass das Dokument richtig
geladen qird und das am anderen Ende auch ein Skript ist, welches dieses
XML annehmen kann?

Claudius


> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] 
> Sent: Dienstag, 9. April 2002 13:35
> To: ActiveServerPages German
> Subject: [aspgerman] fehler beim posten eines xml-files mit 
> dem xmlhttp-objekt
> 
> 
> Hallo liste
> 
> Ich m�chte ein xml-file �ber das http-protokoll(post) an 
> einen bestimmten port eines servers senden. 
> 
> Ich habe daf�r das xmlhttp-objekt gefunden. (vielleicht kennt 
> jemand eine bessere und eifachere l�sung)
> 
> Ich erhalte bei der ausf�hrung des folgenden Skripts immer 
> Fehler: "Server Error 500".   
> 
> //********************* CODE 
> *******************************************
> 
> '-------------------------------------------------------------
> --------------
> VBScript um XML Datei direkt aus ein Server mit individuellem 
> Port zu senden
> '-------------------------------------------------------------
> --------------
> 
> MsgBox = PostThis(loadThis (".\newxml.xml"))
> WScript.Quit
> 
> Function postThis(doc)
> 
>       set xmlhttp = createobject("MSXML2.xmlHttp")               
>       xmlhttp.Open "POST", "http://xxx.xxx.xxx.xxx:29100";, False
> 
>           
> 
>       'xmlHttp.setRequestHeader "Content-type", "application/xml"
>       xmlhttp.setRequestHeader "Content-Type", "Text/xml"
>       xmlhttp.setRequestHeader "Content-Length", Len(doc)
> 
>           
>       xmlhttp.Send doc
>       postThis = xmlhttp.responseText
> 
> End Function
> 
> 
> Function loadThis(doc)
> 
>       If doc <> "" then
> 
>               set xmlDoc1 = createobject("Microsoft.XMLDOM")
>             xmlDoc1.async="true"
>             xmlDoc1.load(doc)
>             Set ParseCheck = xmlDoc1.parseError
>             If (ParseCheck.errorCode <> 0) Then 
>                       MsgBox ("Parse Error: " & vbcrlf & 
> "Line : " &                                   ParseCheck.Line 
> & " Line    Position(" &                                      
>       ParseCheck.linePos & ")" & vbcrlf &                     
>                       ParseCheck.errorCode & ", " & ParseCheck.reason)
>               End If
> 
>        loadThis = xmlDoc1.xml 
> 
>       End If
> 
>  End Function
> '-------------------------------------------------------------
> --------------
> //********************* CODE 
> *******************************************
> 
> habe bis jetzt leider auch keine referenz-beispiele gefunden, 
> die das xmlhttp-objekt mit post verwenden.
> 
>  
> 
> Merci f�r eure hilfe
> 
> jean-luc
> 
>  
> 
>  
> 
> 
> 
> 
> | [aspgerman] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp
> 


| [aspgerman] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspgerman/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspgerman.asp

Antwort per Email an