Last name

Occasional Participant

Last name

Hi I am using:


  Public Function AddUserToConstantContactList(ByVal UserEmailAddress As String, ByVal ContactListName As String) As String
            Dim WebClient As New System.Net.WebClient
            WebClient.QueryString.Add("loginName", "dentalladies")
            WebClient.QueryString.Add("loginPassword", "[PASSWORD]")
            WebClient.QueryString.Add("ea", UserEmailAddress)
            WebClient.QueryString.Add("ic", ContactListName)
               Dim Reader As New IO.StreamReader(WebClient.OpenRead(""))
            Dim ResultHTML As String = Reader.ReadToEnd
            Return ResultHTML

        Catch ex As Exception
            Return ex.ToString
        End Try
    End Function


to add a new contact, how do I also add the last name? What is they query string for that? If I use             WebClient.QueryString.Add("LastName", txtLast.Text) it does not work?


Please Help,




Hi Marietjie,


It looks like you are using the older Site Visitor API for this script. We recommend switching to the new API in order to ensure continued functionality. I have written you a new function that you can use:


Public Function AddUserToConstantContactList(ByVal UserEmailAddress As String, ByVal ContactListNumber As Integer) As String
		Dim xml As String
		xml = "<?xml version='1.0' encoding='utf-8' ?>" & _
		"<entry xmlns=''>" & _
		"<title type='text'></title>" & _
		 "<updated>2008-07-23T14:21:06.407Z</updated>" & _
		 "<author></author>" & _
		 "<id>data:,none</id>" & _
		 "<summary type='text'>Contact</summary>" & _
		 "<content type='application/vnd.ctct+xml'>" & _
		  "<Contact xmlns=''>" & _
		   "<EmailAddress>" & UserEmailAddress.ToString() & "</EmailAddress>" & _
		   "<OptInSource>ACTION_BY_CONTACT</OptInSource>" & _
		   "<ContactLists>" & _
		 "<ContactList id='" + ContactListNumber.ToString() + "'/>" & _
		   "</ContactLists>" & _
		  "</Contact>" & _
		 "</content>" & _

		' Set up the request
		Dim request As HttpWebRequest
		request = WebRequest.Create("")
		Dim byteData As Byte() = UTF8Encoding.UTF8.GetBytes(xml.ToString())
		request.Method = "POST"
		request.ContentType = "application/atom+xml"
		request.ContentLength = byteData.Length
		request.Credentials = New NetworkCredential("Your API key%your user name", "your password")

		' Send the request
		Dim postStream As Stream
		postStream = request.GetRequestStream()
		postStream.Write(byteData, 0, byteData.Length)

		Dim response As HttpWebResponse
		response = request.GetResponse()

	Catch ex As WebException
		Return ex.ToString
	End Try
End Function

Also, the new API uses numbers to specify the list. So, you will need to pass in the number of the list to the function as a string.

Richard Maxwell
Support Engineer, Constant Contact
Developer Portal

View API documentation, code samples, get your API key.

Visit Page