Dim xml_string As String = "<FL val=""Lead Owner"">" & "Jonathan Small" & "</FL>"
xml_string = xml_string & "<FL val=""Company"">" & Session("company_name") & "</FL>"
xml_string = xml_string & "<FL val=""First Name"">" & Session("first_name") & "</FL>"
xml_string = xml_string & "<FL val=""Last Name"">" & Session("last_name") & "</FL>"
Session("title") = validate_length(Session("title"))
Session("website") = validate_length(Session("website"))
Session("billing_address_2") = validate_length(Session("billing_address_2"))
xml_string = xml_string & "<FL val=""Designation"">" & Session("title") & "</FL>"
xml_string = xml_string & "<FL val=""Email"">" & Session("email") & "</FL>"
xml_string = xml_string & "<FL val=""Phone"">" & Session("phone") & "</FL>"
xml_string = xml_string & "<FL val=""Fax"">" & " " & "</FL>"
xml_string = xml_string & "<FL val=""Mobile"">" & " " & "</FL>"
xml_string = xml_string & "<FL val=""Website"">" & Session("website") & "</FL>"
xml_string = xml_string & "<FL val=""Lead Source"">" & "www.solvedsocialmedia.com" & "</FL>"
xml_string = xml_string & "<FL val=""Lead Status"">" & "Not Contacted" & "</FL>"
xml_string = xml_string & "<FL val=""Industry"">" & "Real Estate" & "</FL>"
xml_string = xml_string & "<FL val=""Street"">" & Session("billing_address_1") & "</FL>"
xml_string = xml_string & "<FL val=""Street2"">" & Session("billing_address_2") & "</FL>"
xml_string = xml_string & "<FL val=""City"">" & Session("billing_city") & "</FL>"
xml_string = xml_string & "<FL val=""State"">" & Session("billing_state") & "</FL>"
xml_string = xml_string & "<FL val=""Zip Code"">" & Session("billing_zip_code") & "</FL>"
xml_string = xml_string & "<FL val=""Country"">" & " " & "</FL>"
xml_string = xml_string & "<FL val=""Description"">" & " " & "</FL>"
xml_string = xml_string & "<FL val=""Zip Code"">" & Session("billing_zip_code") & "</FL>"
xml_string = xml_string & "<FL val=""Color"">" & Session("color") & "</FL>"
xml_string = xml_string & "<FL val=""Community"">" & Session("community") & "</FL>"
xml_string = xml_string & "</row></Leads>"
xml_string = xml_string.Replace("@", "%40")
xml_string = xml_string.Replace(" ", "%20")
xml_string = xml_string.Replace("""", "%22")
url = url & xml_string
Dim returned_xml As String = GetHtmlPage(url)
If InStr(returned_xml, "Unable to process your request") > 0 Then
return_value = False
errorlbl2.Text &= "There was a problem adding you to our system. Please try again in a few minutes<br />"
Else
return_value = True
End If
Shared Function GetHtmlPage(ByVal strURL As String) As String
Dim strResult As String = ""
Dim objResponse As WebResponse
Try
Dim objRequest As WebRequest = HttpWebRequest.Create(strURL)
objResponse = objRequest.GetResponse()
Using sr As New StreamReader(objResponse.GetResponseStream())
strResult = sr.ReadToEnd()
sr.Close()
End Using
Catch ex As Exception
strResult = ex.Message
End Try
Return strResult
End Function
Any assistance would be greatly appreciated as my development has come to a complete standstill.