<%@ Language=VBScript %>
<%
Response.Expires = -1
If Request("action") = "update" Then
Dim xml
Set xml = Server.CreateObject("MSXML2.DOMDocument")
xml.load Request
Response.Writexml.xml
Set xml = Nothing
Response.End
End If
%>
<html>
<head>
<style>
.linkedData {
-moz-binding: url(link_data.xml#link);
}
</style>
<script language="JavaScript">
<!--
function test() {
var xml = document.getElementById("xmlData");
if (xml != null) {
var xmlhttp = new XMLHttpRequest();
xmlhttp.open("POST", "xml_http.asp?action=update", false);
xmlhttp.send(xml.innerHTML);
alert(xmlhttp.responseText);
}
}
//-->
</script>
</head>
<body>
<xml id="xmlData" name="xmlData" style="visibility:hidden;">
<root>
<link_data/>
</root>
</xml>
<form id="thisForm" name="thisForm">
<input type="text" class="linkedData" name="txtLink" id="txtLink" size="25">
<br>
<input type="button" value="Test" onclick="test()">
</form>
</body>
</html>