HttpWebResponse and HttpWebRequest not working on local machine

[JVNewbie]

I'm attempting to test an aspx module that will receive XML data from a web service (the receiver module). I want to be able to test this portion before attempting to create the Web Service that will generate the POST to this module. The "poster module" works fine but when I try to get the response back from the receiver module I get a "(500) Internal Server Error." and the module is never executed. I have added it to the same solution and also attempted as a separate solution on my machine. The path is correct. What am I doing wrong?

poster module:

 
   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim request As HttpWebRequest
        Dim response As HttpWebResponse = Nothing
        Dim reader As StreamReader
 
        Try
            ' Create the web request   
            request = DirectCast(WebRequest.Create("http://localhost/ISOClaimWebServices/SampleMatchResponse.xml"), HttpWebRequest)
 
            ' Get response   
            response = DirectCast(request.GetResponse(), HttpWebResponse)
 
            ' Get the response stream into a reader   
            reader = New StreamReader(response.GetResponseStream())
 
            Call Post(reader.ReadToEnd)
 
        Catch ex As WebException
 
            txtErrorMessage.Text = ex.Message
 
        Finally
 
            If Not response Is Nothing Then
                response.Close()
            End If
 
        End Try
 
    End Sub
 
   Private Sub Post(ByVal PostData As String)
 
        'Dim sr As StreamReader = New StreamReader("c:\test.xml")
        'Dim XMLRead As String = sr.ReadToEnd
        'Dim stXML As String
        'stXML = XMLRead
        'sr.Close()
 
        Try
 
            Dim results As String
 
            Dim request As WebRequest = WebRequest.Create("http://localhost/ISOClaimResponse/ISOClaimResponse.aspx ")
 
            request.Method = "POST"
            request.ContentType = "text/xml; charset=utf-8"
            results = WriteToURL(request, PostData)
 
            Dim Response As String
 
            Response = RetrieveFromURL(request)
 
        Catch ex As WebException
 
            txtErrorMessage.Text = ex.Message
 
        End Try
 
    End Sub
 
    Private Function WriteToURL(ByVal Request As WebRequest, ByVal data As String) As String
 
        Try
 
            Dim bytes = System.Text.Encoding.ASCII.GetBytes(data)
            Request.ContentLength = bytes.Length
 
            Dim OutPutStream As Stream = Request.GetRequestStream
            OutPutStream.Write(bytes, 0, bytes.length)
            OutPutStream.Close()
 
        Catch ex As WebException
 
            txtErrorMessage.Text = ex.Message
 
        End Try
 
    End Function
 
    Private Function RetrieveFromURL(ByVal Request As WebRequest) As String
 
        Try
 
            Dim response As WebResponse = Request.GetResponse
            Dim stream As Stream = response.GetResponseStream
            Dim sr As StreamReader = New StreamReader(stream)
 
            Return sr.ReadToEnd
 
        Catch ex As WebException
 
            If ex.Status = WebExceptionStatus.ProtocolError Then
                txtErrorMessage.Text = ex.Message
            End If
 
        End Try
 
    End Function
 
receiver module:
 
   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Call GetResponse1()
 
    End Sub ' Main
 
    Private Sub GetResponse1()
 
        '  Get the response.
        Dim WebResponse As HttpWebResponse
        Dim streamResponse As Stream = WebResponse.GetResponseStream()
        Dim streamRead As New StreamReader(streamResponse)
        Dim responseString As String = streamRead.ReadToEnd()
 
        lblResponseContent.Text = responseString
 
        ' Close Stream object.
        streamResponse.Close()
        streamRead.Close()
 
        'Return Response to poster.
        response.Write("XML RECEIVED")
 
        ' Release the HttpWebResponse.
        WebResponse.Close()
 
    End Sub
 
 

Thanks for any help.

[Plater]

You use localhost a lot, is the computer that the code is running on really the computer you are trying to talk to?
Is testing this code keeping the section that you wish to talk to from coming up and answering?
A 500 class error usually means whoever you are trying to talk to is having problems.

You also have a duplicate function definition in there (page_load)

[JVNewbie]

Thank you for your reply. They are two different modules and I have marked them as such. One is the poster and the other the receiver. Yes they are in my local machine.

[JVNewbie]

Changed the receiver code and problem solved. This code is also working within the same solution so you can test and debug both modules before puting the receiver on the server. For those that may need this code here it is:

Receiver module:

 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Call GetResponse()
 
    End Sub ' Main
 
    Private Sub GetResponse()
 
        Try
 
            Dim mobjStream As Stream
            Dim strmContents As String
            Dim counter, strLen, strRead As Integer
 
            ' Create a Stream object.
            mobjStream = Request.InputStream
 
            ' Find number of bytes in stream.
            strLen = CInt(mobjStream.Length)
 
            ' Create a byte array.
            Dim strArr(strLen) As Byte
 
            ' Read stream into byte array.
            strRead = mobjStream.Read(strArr, 0, strLen)
 
            ' Convert byte array to a text string.
            For counter = 0 To strLen - 1
                strmContents = strmContents & strArr(counter).ToString()
            Next counter
 
            lblResponseContent.Text = strmContents
 
            'Return Response to poster.
            Response.Write("XML RECEIVED")
 
        Catch ex As Exception
 
            lblResponseContent.Text = ex.Message
 
        End Try
 
    End Sub
 

[JVNewbie]

One more thing, you'll need these imports:

Imports System
Imports System.IO
Imports System.Net
Imports System.Text