2. Public Sub addRecord(ByVal ht As Hashtable)
3. 
   
4.         Dim apiUrl As String = "https://creator.zoho.com/api/<xxx>/xml/<appname>/form/<form name>/record/add/"
5.         Dim xmlStr As New System.Text.StringBuilder
6.         xmlStr.Append("<input type=""hidden"" name =""authtoken"" value=""abcdefghijk"">")
7.         xmlStr.Append("<input type=""hidden"" name =""scope"" id=""scope"" value=""creatorapi"">")
8.         Dim enu As IDictionaryEnumerator = ht.GetEnumerator
9.         While (enu.MoveNext)
10.             xmlStr.AppendLine("<input type=""text"" name=""" + enu.Key + """ value=""" + enu.Value + """>")
11.         End While
12.         Dim params As String = "XMLString=" + xmlStr.ToString
13.         Dim res As String = getResponseFromUrl(apiUrl, params)
14.         MsgBox(res)
15. End Sub
17. Public Function getResponseFromUrl(ByVal url As String, ByVal params As String)
18.         Dim str As String = ""
19.         Try
20.             Dim webreq As HttpWebRequest = WebRequest.Create(url)
21.             webreq.Method = "POST"
22.             webreq.ContentType = "application/x-www-form-urlencoded"
23.             Dim byteArray As Byte() = System.Text.Encoding.UTF8.GetBytes(params)
24.             Dim dataStream As Stream = webreq.GetRequestStream()
25.             dataStream.Write(byteArray, 0, byteArray.Length)
26.             dataStream.Close()
27. 
    
28.             Dim res As WebResponse = webreq.GetResponse()
29.             Dim stream As Stream = res.GetResponseStream()
30.             Dim streamReader As New StreamReader(stream)
31.             str = streamReader.ReadToEnd
32.         Catch ex As Exception
33.             MsgBox(ex.ToString)
34.         End Try
35.         Return str.ToString
36. End Function

But I always get the error:

<response><errorlist><error><code>2899</code><message><![CDATA[Permission Denied To Add Record(s).]]></message></error></errorlist></response>

Any idea?

Thank you and kind regards,

Marco