Sende XML-Request til server
Med nederstående får jeg følgende fejl tilbage fra serveren:"No XML field provided in the http post."
Hvad gør jeg galt ?
<%
Dim xml
Set xml = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0")
xmldata = "<!DOCTYPE DMConnect SYSTEM ""dmconnect.dtd"">" &_
"<DMConnect>" &_
" <GetProfileFields>" &_
" <ClientName>navn</ClientName>" &_
" </GetProfileFields>" &_
"</DMConnect>"
xmldata = Server.URLEncode(xmldata)
xml.Open "POST", "http://xxx.dk/xxx.exe", False
xmlsend = "Servername=sss&Username=uuu&Password=ppp&Version=4.0&xml="&xmldata
xml.Send xmlsend
Response.Write xml.responseText
%>