we have tried the suggested uri and validated that it is complete and correct. it contains the correct user name and campaign id. But our xml file contains only the following ines:
<?xml version="1.0" standalone="yes" ?>
Here is our code
Protected Sub ddCampaigns_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim ConnectStr As String = _
ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
'Try
Dim ctu As String = GetCTU()
Dim ctp As String = GetCTP()
'check if user has ct's
If String.IsNullOrEmpty(ctu) Then
Exit Sub
End If
If String.IsNullOrEmpty(ctp) Then
Exit Sub
End If
'this returns an xml info for selected Campaign (email)
Dim strCampaignID As String
Dim s As String = ddCampaigns.SelectedValue.ToString()
Dim index As Integer = s.LastIndexOf("/")
If index >= 0 And (index + 1) < s.Length Then
strCampaignID = s.Substring(index + 1)
End If
Dim sUri As String = "https://api.constantcontact.com/ws/customers/" & ctu & "/campaigns/" & strCampaignID & "/events/bounces" 'optouts" 'clicks"
Dim sAPIKey As String = "///////"
'setup httpWebReqeust to send the request
Dim address As New Uri(sUri)
Dim theRequest As HttpWebRequest = TryCast(WebRequest.Create(address), HttpWebRequest)
theRequest.Credentials = New NetworkCredential((sAPIKey & "%" & ctu), ctp)
theRequest.Method = "GET"
theRequest.ContentType = "application/vnd.ctct+xml"
Using theResponse As HttpWebResponse = TryCast(theRequest.GetResponse(), HttpWebResponse)
'load dataset with xml response
Dim xtr As New XmlTextReader(theResponse.GetResponseStream())
xtr.ReadString()
Dim dscte As New DataSet()
'dscte.ReadXml(xtr) ', XmlReadMode.IgnoreSchema)
dscte.ReadXml(xtr, XmlReadMode.IgnoreSchema)
dscte.WriteXml("C:\Documents\Data.xml")
End Using
'Catch ex As Exception
' HttpContext.Current.Response.Write(ex.Message)
'End Try
End Sub
