Hi, I'm trying to send (valid) XML using the function below and get an
Access Denied Message on the line objXMLHTTP.send(xmldoc) when running the
aspx on
a Win2003 Server but the very same code works on Win2000 server.
Private Function SendToSS3(ByVal Input As String) As String
Dim xmldoc As New MSXML2.DOMDocument40
Dim objXMLHTTP As New MSXML2.ServerXMLHTTP40
xmldoc.resolveExternals = False
xmldoc.async = False '##
Dim Loaded As String = xmldoc.loadXML(Input)
objXMLHTTP.open("POST", https://sitename, False)
objXMLHTTP.send(xmldoc)
Loaded = xmldoc.loadXML(objXMLHTTP.responseText)
' Debug.Write(objXMLHTTP.responseText)
Return objXMLHTTP.responseText
End Function