Client
/ ********************************************
VAR XMLHTTP
Function RE_MSGS () {
Var rvalue;
Rvalue = Document.all.re_value.value
VAR DOM = New ActiveXObject ("msxml2.domdocument"); // Send XML file
Dom.async = false;
Dom.Resolveexternals = false;
// Construct the XML file header
Var node = dom.createprocessinginstruction ("XML", "Version = '1.0');
Dom.AppendChild (Node);
Node = NULL;
// Construct the root node
Var root = dom.createElement ("root");
Dom.Appendchild (root);
Dom.Documentelement.setttribute ("XMLns: DT", "URN: Schemas-Microsoft-COM: DataTypes"); // Construct Node Updata for Save Binary Data
Node = DOM.CREATEEEEMENT ("Updata");
Root.Appendchild (Node);
Node.NodeTypedValue = rvalue; // node data reads from Stream, fixed length
XMLHTTP = New ActiveXObject ("Microsoft.xmlhttp");
XMLHTTP.Open ("post", "template / cml_action.aspx? item = 1", false);
XMLHTTP.ONREADYSTATECHANGE = CALLBACK;
XMLHTTP.SEND (DOM); //lert (xmlhttp.responsext)
Node = NULL;
}
Function Callback () {
Var Rvalue, HTML
IF (xmlhttp.readyState == 4) {
HTML = XMLHTTP.RESPONSETEXT
Rvalue = Document.all.re_value.value
WINDOW.RETURNVALUE = RVALUE "$" HTML
WINDOW.CLOSE ()
}
****************************** /
Service-Terminal
/ ******************************
Dim xdoc as new xmldocument
DIM TNAME, PRES, CONT, MEMID, NITEM, PID AS STRING
XDoc.Load (Request.InputStream) 'Get the XML stream sent by Send (XML) in XMLHTTP
XNode = xdoc.documentelement.selectsinglenode ("Updata")
TNAME = xnode.attributes (0) .innertext
PID = xnode.attributes (1) .innertext
NItem = xnode.attributes (2) .innertext
Pres = xnode.attributes (3) .innertext
