This is continued from another question:
http://www.experts-exchange.com/Web/Web_Languages/XML/Q_20931704.html#11007196I'm trying to post xml to an asp page, then a response to the .net page.
--------------------------
----------
----------
----------
----------
----------
----------
----------
--
My .NET page:
<%@ Page Language="VB" Debug = true%>
<%@ Import namespace="System.Xml" %>
<%@ Import namespace="System.Web" %>
<%@ Import namespace="System.IO" %>
<%@ Import namespace="System.Collecti
ons" %>
<%@ Import namespace="System.Diagnost
ics" %>
<%@ Import namespace="System.Net" %>
<script runat="server">
' Insert page code here
'
Sub Button1_Click(sender As Object, e As EventArgs)
' Put user code to initialize the page here
Dim xmlDoc As XmlDocument
xmlDoc = New XmlDocument
Dim result As String = ""
Dim myWriter As StreamWriter
Dim sURL = "
https://npsonline.pti-nps.com/activate/activateservice1.asp"
Dim sXML = "<?xml version='1.0' encoding='utf-8' ?><Root><groupnum>test</gr
oupnum></R
oot>"
Dim objRequest As HttpWebRequest = WebRequest.Create(sURL)
objRequest.Method = "POST"
objRequest.ContentLength = sXML.Length
objRequest.ContentType = "application/x-www-form-ur
lencoded"
Try
myWriter = New StreamWriter(objRequest.Ge
tRequestSt
ream())
myWriter.Write(sXML)
myWriter.Flush()
myWriter.Close()
Catch e1 As Exception
Debug.Write(e1.Message)
Finally
End Try
Dim objResponse As HttpWebResponse = objRequest.GetResponse()
Dim sr As StreamReader
sr = New StreamReader(objResponse.G
etResponse
Stream())
result = sr.ReadToEnd()
sr.Close()
xmlDoc.LoadXml(result)
'Xml1.Document = xmlDoc
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Button"></asp:Button
>
<!-- Insert content here -->
</form>
</body>
</html>
The ASP page receiving it:
<% @Language="vbscript" %>
<%
Response.ContentType = "Text/XML"
Set req = server.CreateObject("MSXML
.DOMDocume
nt")
req.async=false
i = req.load(Request)
if i then
set mynode=req.SelectSingleNod
e("Root/gr
oupnum")
groupnum = myNode.Text
set mynode=req.SelectSingleNod
e("Root/co
ntrolnum")
controlnum = myNode.Text
Response.Write("<?xml version='1.0' encoding='utf-8' ?> ")
Response.Write("<Root>" & groupnum & " </Root>")
else
Response.Write("<?xml version='1.0' encoding='utf-8' ?> ")
Response.Write("<Root>" & req.ParseError.Reason & " </Root>")
End if
%>
My error:
Line 37: End Try
Line 38:
Line 39: Dim objResponse As HttpWebResponse = objRequest.GetResponse()
Line 40: Dim sr As StreamReader
Line 41: sr = New StreamReader(objResponse.G
etResponse
Stream())
Source File: C:\Inetpub\wwwroot\websvc\
test.aspx Line: 39
Stack Trace:
[WebException: The remote server returned an error: (500) Internal Server Error.]
System.Net.HttpWebRequest.
CheckFinal
Status() +674
System.Net.HttpWebRequest.
EndGetResp
onse(IAsyn
cResult asyncResult) +139
System.Net.HttpWebRequest.
GetRespons
e() +149
ASP.test_aspx.Button1_Clic
k(Object sender, EventArgs e) in C:\Inetpub\wwwroot\websvc\
test.aspx:
39
System.Web.UI.WebControls.
Button.OnC
lick(Event
Args e) +83
System.Web.UI.WebControls.
Button.Sys
tem.Web.UI
.IPostBack
EventHandl
er.RaisePo
stBackEven
t(String eventArgument) +57
System.Web.UI.Page.RaisePo
stBackEven
t(IPostBac
kEventHand
ler sourceControl, String eventArgument) +18
System.Web.UI.Page.RaisePo
stBackEven
t(NameValu
eCollectio
n postData) +33
System.Web.UI.Page.Process
RequestMai
n() +1277
Start Free Trial