Jeg har flg. scripts (først det der sendes fra og derefter det der kaldes med XMLHTTP):
---------------------------------
<%@ language="vbscript" %>
<%
if Request.Form("cmdSend") <> "" then
set objXML = Server.CreateObject("Microsoft.XMLHTTP")
strURL = "
http://localhost/sandkassen/asp30/sendDataTil.asp" objXML.open "POST", strURL , false
objXML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXML.send "testParam=1&txtTest=" & Server.URLEncode(Request.Form("txtTest"))
Response.Write("sent successfully<br />" & objXML.responseText & "<br>")
Response.End
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" >
<html>
<head>
<title>sendDataFra</title>
</head>
<body>
<form id="Form1" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<input type="text" name="txtTest" value="Dette er en test"><br>
<input type="submit" name="cmdSend" value="Send data">
</form>
</body>
</html>
----------------------------------
<%@ language="vbscript" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" >
<html>
<head>
<title>sendDataTil</title>
</head>
<body>
<form id="Form1" method="post">
<p>
Parameters: <%=Request.Form.Count %><br>
QueryString: <%=Request.Form %><br></p>
txtTest: <%=Request.Form("txtTest") %><br></p>
</form>
</body>
</html>
