TITLE

 Public Sub updateRecord(ByVal ht As Hashtable, ByVal criteriaField As String)

        Dim apiUrl As String = "https://creator.zoho.com/api/xml/write/apikey="
        Dim xmlStr As New System.Text.StringBuilder
        Dim newvalue As New System.Text.StringBuilder

        ' Data prepare
        newvalue.AppendLine("<newvalues>")
        xmlStr.Append("<ZohoCreator><applicationlist>")
        xmlStr.Append("<application name='CopyEbayInventoryChecker'><formlist><form name='EbayEdit'>")
        xmlStr.AppendLine("<update>")
        xmlStr.AppendLine("<criteria>")

        xmlStr.AppendLine("<field name='Pawn Ticket Number' compOperator='Equals' value='20573'></field>")
        xmlStr.AppendLine("</criteria>")
        newvalue.AppendLine("<field name='Found on Ebay' value='1'></field>")
        newvalue.AppendLine("</newvalues>")
        xmlStr.Append(newvalue.ToString)
        xmlStr.AppendLine("</update>")
        xmlStr.AppendLine("</form></formlist></application></applicationlist></ZohoCreator>")


        ' PREPARED EXAMPLE

        Dim xmlPrepare As String = <![CDATA[XMLString=
                    <ZohoCreator>
                        <applicationlist>
                            <application name='CopyEbayInventoryChecker'>
                                <formlist>
                                    <form name='EbayEdit'>
                                        <update>
                                            <criteria>
                                                <field name='Pawn Ticket Number' compOperator='Equals' value='20573'></field>
                                            </criteria>
                                            <newvalues>
                                                <field name='Found on Ebay' value='1'></field>
                                            </newvalues>
                                        </update>
                                    </form>
                                </formlist>
                            </application>
                        </applicationlist>
                    </ZohoCreator>
                    ]]>.Value

        Dim params As String = "XMLString=" + xmlStr.ToString

        Dim res As String = getResponseFromUrl(apiUrl, params)

    End Sub