1 Reply Latest reply on Nov 14, 2014 4:59 PM by 53504

    JSON request returning "Access token not specified"

    Chris D'Souza
      <%@ Page Language="VB" %>
      <%@ Import Namespace="System.IO" %>
      <%@ Import Namespace="System.Net" %>
      <%@ Import Namespace="System.Net.Text" %>
      <%@ Import Namespace="System.Web.UI.Page" %>
      <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">


      <script runat="server">

          
          
          Private Function SendRequest(uri As Uri, jsonDataBytes As Byte(), contentType As String, method As String) As String
              Dim req As WebRequest = WebRequest.Create(uri)
              req.ContentType = contentType
              req.Method = method
              req.ContentLength = jsonDataBytes.Length


              Dim stream = req.GetRequestStream()
              stream.Write(jsonDataBytes, 0, jsonDataBytes.Length)
              stream.Close()

              Dim response = req.GetResponse().GetResponseStream()

              Dim reader As New StreamReader(response)
              Dim res = reader.ReadToEnd()
              reader.Close()
              response.Close()

              lblCookie.Text = res
              Return res
          End Function
          Sub Page_Load()
              Dim MKTOcookie As String
              If Not Request.Cookies("_mkto_trk") Is Nothing Then
                  MKTOcookie = Request.Cookies("_mkto_trk").Value
              End If

              Dim uri As New Uri("https://XXX-YXD-XXX.mktorest.com/rest/v1/leads.json?")

              Dim accesstkn = "03e39e6a-d902-4f33-XX-XXXXX:XX"
              Dim cookieid = Server.UrlEncode(MKTOcookie)
              Dim fieldsrtn = "email,firstName,lastName,company"
              
              Dim data = Encoding.UTF8.GetBytes("access_token=" + accesstkn + "&filterType=cookie&filterValues=" + cookieid + "&fields" + fieldsrtn)
              Dim result_post = SendRequest(uri, data, "application/json", "POST")
         
          End Sub

      </script>


      <html xmlns="http://www.w3.org/1999/xhtml">
      <head runat="server">
          <title></title>
      </head>
      <body>
          <form id="form1" runat="server">
      <asp:Label ID="lblCookie" runat="server"></asp:Label>
      </form>
      </body>
      </html>