HttpWebResponse - 500 internal failure

[Dirty Redz]

Can i get some help plz no matter what i do I keep getting this message and cant seem to make a connection. all my http headers are exactly the same as the one i pulled of my httpheader analyser.

Public Sub COM()
request = DirectCast(WebRequest.Create(TheSite1), HttpWebRequest)
request.Method = "POST"
request.Host = "realm1.c8.castle.wonderhill.com"
request.UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR 3.5.30729; InfoPath.1; .NET CLR 3.0.30618; .NET4.0C; .NET4.0E)"
request.KeepAlive = True
request.Accept = "*/*"
request.Headers.Add(HttpRequestHeader.AcceptLanguage, "en-US")
request.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip, deflate")
request.Referer = "http://castlemania-production.s3.amazonaws.com/flash/game/current/castlemania.swf?user%5Fid=" & TheSite2 & "&building%5Fcachebreaker=1321305917&dragon%"
request.Headers.Add("UA-CPU:x86")
request.ContentType = "application/x-www-form-urlencoded"
request.Headers.Add("x-flash-version:10,3,181,34")
request.Headers.Add(HttpRequestHeader.CacheControl, "no-Cache")
request.ContentLength = bytearray.Length
request.Headers.Add(HttpRequestHeader.Cookie, TextBox12.Text)
TextBox13.Text = request.Address.ToString
TextBox13.Text = TextBox13.Text + vbNewLine & vbNewLine & request.Headers.ToString
datastream = request.GetRequestStream()
datastream.Write(bytearray, 0, bytearray.Length)
datastream.Close()
TextBox13.Text = TextBox13.Text + vbNewLine & System.Text.Encoding.ASCII.GetString(bytearray)
response = CType(request.GetResponse(), HttpWebResponse)
reader = New StreamReader(response.GetResponseStream())
responseFromServer = reader.ReadToEnd()
TextBox14.Text = responseFromServer
reader.Close()
response.Close()
End Sub
Public Sub PostData_To_Com()
Try
postdata = "x=" & Ax1 & "&y=" & Bx1 & "&%5Fsession%5Fid=f39c54ba3a0eb77a9569dc19409c9f07&timestamp=1321449993 &user%5Fid=" & TheSite2 & "&version=deadbeef&dragon%5Fheart=" & TheSite3
bytearray = Encoding.UTF8.GetBytes(postdata)
COM()
Catch Attp1 As Exception
TextBox14.Text = TextBox14.Text + "Attempt-1 Has Failed" & vbNewLine
TextBox14.Text = TextBox14.Text + "The connection was not succesfull."
TextBox14.Text = TextBox14.Text + vbNewLine & Attp1.ToString
c = 0
Timer1.Stop()
My.Settings.AXStart = Ax1
My.Settings.BXStart = Bx1
My.Settings.prog1 = ProgressBar1.Value
My.Settings.prog2 = ProgressBar2.Value
My.Settings.time1 = NumericUpDown1.Value
My.Settings.time2 = NumericUpDown2.Value
My.Settings.Save()
Exit Sub
End Try
End Sub