ווען איך נעם אוועק די ספעיס איז עס יא גוט.
לדוגמא די אלע FeedItem. וואס האבן ווערטער אין זיך למשל Product Price וכדומה גיבן א עראר.
וויאזוי קען איך ערלויבן ספעיס?
(אגב, די אלע וועליוס נוצן קלעס - דורך א אינקלוד פייל - און איך דארף טוישן אלעס אין די קלעסעס אויכעט)
קאוד: וועל אויס אלע
' Do While Not rsItems.EOF
Dim FeedItem As Shopping
While rdr.Read()
FeedItem = New Shopping
' Response.Write("Dumping " & trim(rdr("ModelName").ToString) & "<BR>")
FeedItem.MPN = trim(rdr.Item("ModelNumber"))
FeedItem.Brand = ""
FeedItem.UPC = ""
FeedItem.Product Name = RemoveDelimiter(trim(IfDbNullReturnString(rdr.Item("ModelName"))) & " - " & trim(IfDbNullReturnString(rdr.Item("attributename"))) & " - " & trim(IfDbNullReturnString(rdr.Item("subattributename"))))
FeedItem.Product Description = RemoveDelimiter(trim(IfDbNullReturnString(rdr.Item("description")))) & " " & RemoveDelimiter(IfDbNullReturnString(trim(rdr.Item("longdesc"))))
' FeedItem.Product Price = String.Format("{0:###,###.00}", rdr.Item("CustomerPrice") + rdr.Item("price"))
FeedItem.Product Price = String.Format("{0:###,###.00}", rdr.Item("UnitCost"))
FeedItem.Product URL = MakeURL(trim(IfDbNullReturnString(rdr.Item("CategoryName"))), trim(IfDbNullReturnString(rdr.Item("AttributeName"))), trim(IfDbNullReturnString(rdr.Item("SubAttributeName"))), trim(IfDbNullReturnString(rdr.Item("ModelName"))), IfDbNullReturnString(trim(rdr.Item("ProductId"))))
FeedItem.Image URL = IMAGES_URL & Encode(trim(rdr.Item("ProductImage")))
FeedItem.Shopping.com Categorization = "Home & Garden"
FeedItem.Stock Availability = "Y"
FeedItem.Stock Description = ""
FeedItem.Ground Shipping = ""
FeedItem.Weight = trim(rdr.Item("weight"))
FeedItem.Zip Code = "11211"
Feed.AddShoppingItem(FeedItem)
End While