HttpWebRequest and "Too many automatic redirections"

[Anthony C]

This doesn't happen on my development machine (code works perfectly) but on the client's machine, I get an error reported that "too many automatic redirections". I've tried setting the maximum to a large number without prevail.

I used InternetOpenURL in the past (VB6) without incident.

Can anyone help?

Public Function GetPage(ByVal bClearPayload As Boolean) As String
Dim objResponse As WebResponse
Try
Dim objRequest As HttpWebRequest
Dim objRequestStrea m, objReceiveStrea m As Stream
Dim objReader As StreamReader
Dim bytPayload() As Byte
Dim szURL As String

'now it's time to encode the payload (payload is set by properties
Dim szPayloadForm As String = GetPayloadFromN ameValue(m_objF orm)
Dim szPayloadQuery As String = GetPayloadFromN ameValue(m_objW ebClient.QueryS tring)

szURL = m_szURL 'module level set by property

If Not szPayloadQuery Is Nothing AndAlso szPayloadQuery. Length > 0 Then
szURL = String.Format(" {0}?{1}", szURL, EncodePayload(s zPayloadQuery))
End If

objRequest = DirectCast(WebR equest.Create(s zURL), HttpWebRequest)

If Not szPayloadForm Is Nothing AndAlso szPayloadForm.L ength > 0 Then
objRequest.Meth od = "POST"
objRequest.Cont entType = "applicatio n/x-www-form-urlencoded"
bytPayload = System.Text.Enc oding.UTF8.GetB ytes(EncodePayl oad(szPayloadFo rm))
objRequest.Cont entLength = bytPayload.Leng th
objRequestStrea m = objRequest.GetR equestStream()
objRequestStrea m.Write(bytPayl oad, 0, bytPayload.Leng th)
objRequestStrea m.Close()
Else
objRequest.Meth od = "GET"
End If

With objRequest
.CookieContaine r = New CookieContainer
End With

objResponse = objRequest.GetR esponse() 'EXCEPTION RAISES HERE
objReceiveStrea m = objResponse.Get ResponseStream( )
objReader = New StreamReader(ob jReceiveStream, Encoding.ASCII)

Dim chrRead(256) As Char
Dim nCount As Integer = objReader.Read( chrRead, 0, 256)
Dim sbResponse As New System.Text.Str ingBuilder

Do Until nCount = 0
Dim str As String = New String(chrRead, 0, nCount)
sbResponse.Appe nd(str)
nCount = objReader.Read( chrRead, 0, 256)
Loop

Return sbResponse.ToSt ring

Catch Ex As Exception
Throw Ex
Finally
If Not objResponse Is Nothing Then
objResponse.Clo se()
End If

If bClearPayload Then
m_objForm.Clear ()
m_objWebClient. QueryString.Cle ar()
End If
End Try
End Function

[Cor]

Hi Anthony,

This doesn't happen on my development machine (code works perfectly) but on the client's machine, I get an error reported that "too many automatic >redirections ". I've tried setting the maximum to a large number without prevail.

I did not look at your code (because it works on your computer why not on the client, than it can not be something by code where my thoughts).

My first thoughts where, has the client maybe some other connection open and is he using http1.1.
As far as I know is it only possible to have two http1.1 connections open in one time.
Cor