<%@ language = "JavaScript" %> <% /* $Revision$ $Id$ File: puo_xml_test.asp Description: Script om put_orders opdracht-xml te testen Idee is dat je puo_xml_test.asp instelt als order-adres Elke xml die er naar toe gestuurd wordt, wordt altijd gelogd in /TEMP/XXXX Daarnaast kun je via parameter resultxml verwijzen naar een (lokaal) XML-betand wat als antwoord wordt teruggestuurd Overrule.SET("puo_forceorderaddress", "http://marx.facws001.sg.nl/branch20202/APPL/Shared/puo_xml_test.asp?resultxml=cust/marx/test/Van Aannemer ketenstandaard antwoord.xml"); Parameters: Een xml Context: Notes: */ DOCTYPE_Disable = 1; ANONYMOUS_Allowed = 1; %> <% if (Application("otap_environment") != "O") shared.simpel_page(L("lcl_no_auth")); // We sturen het antwoord in UTF-8. Session.Codepage = 65001; Response.Charset = 'utf-8'; var API = { APIname: "puo_xml_test", apidata: { loglevel: 1 }}; // dummy var servervars = __DumpCollection(Request.ServerVariables, { title: "ServerVariables", xxexclude: /ASPFIXATION|FACSESSIONID/i }); __Log2File(servervars, API.APIname + "_servervars", ".html"); var xmlReq = RequestXML(API); // Verzorgt ook de logging. var xmlRespFile = getQParam("resultxml", ""); if (xmlRespFile) { var fullfile = Server.MapPath("../../" + xmlRespFile); if (!fso.FileExists(fullfile)) { _AiAi(fullfile + " not found"); } var xmlResp = Server.CreateObject("MSXML2.DOMDocument.6.0"); xmlResp.async = false; xmlResp.load(fullfile); if (xmlResp.parseError.errorCode != 0) { var myErr = xmlResp.parseError; __Log("XML2STR3 Error in xmlfile: " + myErr.reason); Response.Write ("
Error in xmlfile:
" + myErr.reason + "
"); } else { Response.ContentType = "text/xml"; Response.Write(xmlResp.xml); } } ASPPAGE_END(); %>