Hello all each time i am getting this error.. at Google.GData.Client.GDataRequest.Execute() at Google.GData.Client.GDataGAuthRequest.Execute(Int32 iRetrying) at Google.GData.Client.GDataGAuthRequest.Execute() at Google.GData.Client.Service.StreamInsert(Uri feedUri, AtomBase baseEntry, GDataRequestType type) at Google.GData.Client.Service.StreamInsert(Uri feedUri, AtomEntry newEntry) at Google.GData.Client.Service.Insert(Uri feedUri, AtomEntry newEntry) at Google.GData.GoogleBase.GBaseService.Insert(Uri feedUri, GBaseEntry entry) at Newel.Module1.PostData() in C:\Documents and Settings\Admin \Desktop\NewelUK\Newel\Module1.vb:line 115
Code which i used are as follows My country is UK and currency is GBP base uri i tried are http://base.google.co.uk/base/feeds/items and http://base.google.com/base/feeds/items Dim Desc As String ="This is test" Dim entry As GBaseEntry = New GBaseEntry() Dim author As AtomPerson = New AtomPerson() entry.Authors.Add(author) author.Name = PosterName author.Uri = New AtomUri(site) entry.Id.Uri = New AtomUri(site) entry.Title.Text = Desc entry.Base = GoogleBaseUri entry.Content.Base = GoogleBaseUri entry.Content.Content = Desc entry.GBaseAttributes.AddTextAttribute("Product name", Desc) entry.GBaseAttributes.AddTextAttribute("Product_type", "Antiques") entry.GBaseAttributes.AddTextAttribute("item_type", "Antiques") entry.GBaseAttributes.AddTextAttribute("target_country", Country) Dim fGoogleFloatUnit As Google.GData.GoogleBase.FloatUnit = New FloatUnit(Decimal.Parse(row("RetailPrice").ToString), Currency) entry.GBaseAttributes.AddTextAttribute("Currency", Currency) entry.GBaseAttributes.Price = fGoogleFloatUnit entry.GBaseAttributes.Quantity = row("quantity") entry.GBaseAttributes.ItemType = "Products" entry.GBaseAttributes.AddTextAttribute("Id", row("ItemNumber")) entry.GBaseAttributes.AddTextAttribute("Country", Country) entry.GBaseAttributes.AddTextAttribute("publishing_priority", "high") entry.GBaseAttributes.AddTextAttribute("item_language", Country) Try entry.GBaseAttributes.AddTextAttribute("Measurements", row ("Measurements")) Catch ex As Exception End Try entry.GBaseAttributes.Location = Country entry.GBaseAttributes.PriceUnits = "item" entry.GBaseAttributes.AddTextAttribute("Condition", "Antiques") Dim link As AtomLink = New AtomLink(AtomLink.HTML_TYPE, BaseNameTable.ServiceAlternate) entry.GBaseAttributes.AddUrlAttribute("link", site) Dim altUri As String = row("ItemDetail") link.HRef = New AtomUri(altUri) entry.Links.Add(link) entry.AlternateUri = New AtomUri(altUri) Dim imgLinks() As String = {row("filename").ToString()} entry.GBaseAttributes.ImageLinks = imgLinks status = isExits(row("Description").ToString.ToUpper) Try If status.Trim.Length <> 0 Then 'Update existing product on google base entry.Id = New AtomId(status) entry.EditUri = New AtomUri(GoogleBaseUri) Dim myEntry As GBaseEntry = service.Update(entry) Console.Write("Insert " & i & " records" & vbCrLf) Else 'Inert new products to google base. Dim tt As Uri = New Uri(GoogleBaseUri) Dim myEntry As GBaseEntry = service.Insert(tt, entry) Console.Write("Updating " & i & " records" & vbCrLf) End If Catch ex As Exception This is where i am getting my error. End Try Please help me.... --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "Google Base Data API" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/Google-Base-data-API?hl=en -~----------~----~----~----~------~----~------~--~---
