Hello,

I am getting the below error when I execute code to post an real
estate property/item to google base:

The remote server returned an error: (401) Unauthorized
[GDataRequestException: Execution of request failed:
http://www.google.com/base/feeds/items]

Here is my code:
--------------------------------------------------------------------------
Dim service As GBaseService
service = New GBaseService("Google-Tutorial-1.0", "developer key")
Dim entry As New GBaseEntry
entry.Title.Text = "Sample RE Property From Haresh"
entry.Content.Content = "This is a test real estate
property.<br><br>Sample RE Property From Haresh<br><br>Thanks!
<br>Haresh"
entry.GBaseAttributes.AddTextAttribute("description", "This is a test
real estate property.<br><br>Sample RE Property From
Haresh<br><br>Thanks!<br>Haresh")
entry.GBaseAttributes.AddTextAttribute("id", "1001")
entry.GBaseAttributes.AddTextAttribute("link", "http://
homesource.ohubz.com/property.aspx?Id=803")
entry.GBaseAttributes.AddNumberAttribute("price", 1888000)
entry.GBaseAttributes.Location = "BELMAR, NJ - 07719"
entry.GBaseAttributes.AddTextAttribute("agent", "Haresh Vachhani")
entry.GBaseAttributes.AddNumberUnitAttribute("area", 50, "square ft.")
entry.GBaseAttributes.AddNumberAttribute("bathrooms", 2)
entry.GBaseAttributes.AddNumberAttribute("bedrooms", 2)
entry.GBaseAttributes.AddTextAttribute("feature", "Air conditioner,
garden etc...")
entry.GBaseAttributes.AddTextAttribute("listing_status", "active")
entry.GBaseAttributes.AddTextAttribute("listing_type", "for sale")
entry.GBaseAttributes.AddNumberUnitAttribute("lot_size", 55, "square
ft.")
entry.GBaseAttributes.AddTextAttribute("mls_listing_id", "20mlshv345")
entry.GBaseAttributes.AddTextAttribute("mls_name", "Haresh MLS")
entry.GBaseAttributes.AddNumberAttribute("property_taxes", 200)
entry.GBaseAttributes.AddTextAttribute("property_type", "apartment")
entry.GBaseAttributes.AddTextAttribute("provider_class", "broker")
entry.GBaseAttributes.AddTextAttribute("school", "union high school")
entry.GBaseAttributes.AddTextAttribute("school_district", "union
school district")
entry.GBaseAttributes.AddNumberAttribute("Year", 2000)
entry.GBaseAttributes.AddTextAttribute("zoning", "residential")
Dim myEntry As GBaseEntry
myEntry = service.Insert(GBaseUriFactory.Default.ItemsFeedUri, entry)
--------------------------------------------------------------------------

Can someone please guide/help me to resolve this issue?

Thanks,

Haresh

--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---

Reply via email to