<% Dim objXMLHTTP set objXMLHTTP = Server.CreateObject("Msxml3.ServerXMLHTTP") dim SXH_OPTION_SELECT_CLIENT_SSL_CERT : SXH_OPTION_SELECT_CLIENT_SSL_CERT = 3 objXMLHTTP.setOption SXH_OPTION_SELECT_CLIENT_SSL_CERT, "" varValue = objXMLHTTP.getOption(SXH_OPTION_SELECT_CLIENT_SSL_CERT) objXMLHTTP.setOption SXH_OPTION_SELECT_CLIENT_SSL_CERT, varValue objXMLHTTP.open "get", "https://compraswebcomercio.oca.com.uy/inicio.aspx?Nrocom=13742&Nroterm=13742SDP&Moneda=840&Importe=2800&Plan=001&Tcompra=0&Urlresponse=&Info=&Tconn=0", false objXMLHTTP.setRequestHeader "User-Agent","HTTP/1.1" dim strRequest Call objXMLHTTP.send(strRequest) strResult = objXMLHTTP.responseText response.write strResult %>