XML Send Error

[Mpho Molahloe]

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