Dim strURL As String = "http://xxxxxxxxxxxxxxxxxxxxx.aspx"
Dim xmlPath As String = "C:\Manifest.xml"
Try
Dim xmlDoc As New MSXML2.DOMDocument40()
Dim xmlHTTP As New MSXML2.ServerXMLHTTP40()
If xmlDoc.load(xmlPath) Then
xmlHTTP.open("POST", strURL, False)
xmlHTTP.send(xmlDoc.xml)
Response.ContentType = "text/xml"
Response.Write(xmlHTTP.responseText)
Else
Response.Write(xmlDoc.parseError.reason)
End If
Catch ex As Exception
Response.Write("<MANIFEST><catchError>" + ex.Message + "</catchError></MANIFEST>")
End Try