Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 7480
  • Last Modified:

ServerXMLHTTP 6.0 and HTTPS

Hello experts,

I need to reach to a XML based page and read the XML content. The XML page is accessible via HTTPS however it does not require any authentication.

Here is my code (Thanks to Padas from an earlier question):

<%
DataToSend = "id=1"
dim xmlhttp
set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP.6.0")
xmlhttp.setOption 2, 13056
xmlhttp.Open "POST","https://<Server IP Address>:<Port>/<Page Details>",false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send DataToSend
Response.ContentType = "text/xml"
Response.Write xmlhttp.responsexml.xml
Set xmlhttp = nothing
%>


The page provides: XML Parsing Error: no element found. (Firefox)

When I create a page with the exact XML structure and use that in my code, it works:
   Instead of this:
   xmlhttp.Open "POST","https://<Server IP Address>:<Port>/<Page Details>",false
   I use this (same XML)
   xmlhttp.Open "POST","http://localhost//test/test.asp",false

It has to be the Certificates and HTTPS which corrupts this request.

I do not have a Certificate but an Exception is already added.

How can I achieve my goal? Will 'MSXML2.ServerXMLHTTP.6.0' help me or are there any alternatives for SSL?

Thank you in advance
0
bozer
Asked:
bozer
1 Solution
 
pateljituCommented:
In your code line "xmlhttp.setOption 2, 13056" basically take care of SSL certificate and ignore the error encountered.

1. when you execute URL: "https://<Server IP Address>:<Port>/<Page Details>" do you get expected XML output.
2. Can you please make modification to the code and see the result:
<%
DataToSend = "id=1"
dim xmlhttp
set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP.6.0")
xmlhttp.setOption 2, 13056
xmlhttp.Open "POST","https://<Server IP Address>:<Port>/<Page Details>",false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send(DataToSend)
'Response.ContentType = "text/xml"
'Response.Write xmlhttp.responsexml.xml
Response.Write xmlhttp.Responsetext
Set xmlhttp = nothing
%>

Open in new window

0
 
bozerAuthor Commented:
Thank you Pateljitu, it worked!
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now