Tutoriel : Listing des produits asp.net

[bonneaupierrelouis]

Bonjour à tous, j'ai galéré un peu et je remercie Hench du coup de main, je me suis dis que d'autres passerons peut-être par là, donc simplement, un peu de code qui est fonctionnel pour afficher la liste de tous les produits

Code:


<%
Sub FindProduct()
   'Déclarations
   Dim Interface_Product
   Set Interface_Product = Server.CreateObject("AcoSDK.Product")
   Dim ladescription
   Dim letitle

   Nombre_total_fiche = Interface_Product.NumCards()
   response.write("nb.total:" & Nombre_total_fiche & "<br/>")

   'Boucler parmis toutes les fiches de l'nterface Product
   For i=1 To Nombre_total_fiche
      'Récupération de la fiche de produit
      If Interface_Product.GetCard(i) = 0 Then
         'Produit Actif?  
         If Interface_Product.PrActive <> 0 Then
            ladescription = Interface_Product.PrDescription(1) 'Afficher champs - fiche
            letitle = Interface_Product.PrNumber 'Afficher champs - fiche
            response.write("<p>Title: " & letitle & ", <br/>")
            response.write("Desc: " & ladescription & ".</p>")
         End If
      End If
   Next   
End Sub
%>
<p>FindProduct : <%call FindProduct()%></p>