63 lines
2.0 KiB
Plaintext
63 lines
2.0 KiB
Plaintext
<%@ 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;
|
|
%>
|
|
<!-- #include file="../Shared/common.inc" -->
|
|
<!-- #include file="../Shared/xml_converter.inc" -->
|
|
<!-- #include file="../api/api.inc" -->
|
|
<%
|
|
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 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 ("<html><body><b>Error in xmlfile:</b><br>" + myErr.reason + "</body></html>");
|
|
}
|
|
else
|
|
{
|
|
Response.ContentType = "text/xml";
|
|
Response.Write(xmlResp.xml);
|
|
}
|
|
}
|
|
|
|
ASPPAGE_END();
|
|
%>
|