<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% option explicit %> <% Session.TimeOut=120 %> <% '--------------------------------------- 'Déclaration des variables '--------------------------------------- 'Nombre d'articles different dans le caddie Dim i i = Session("Flag") 'Variables de la boucle (for each) pour verifier que l'article choisi n'est pas deja dans le caddie Dim Doublon Dim Art Art = 0 'Requete qui affiche soit les promos, soit le rayon choisi par le client Dim SQL 'BGC correspond à la couleur de la ligne dynamique (qui se rempli) du panier. (ou blanc ou gris clair) Dim BGC BGC = "#E3E3E3" 'Numero du rayon choisi par le client (aussi egale a Session("Cat")) Dim Categorie 'Tableau representant le contenu du caddie (Numero de produit + Combien en veut il) Dim Temp Temp = Session("MonCaddie") '--------------------------------------- 'Fin de Déclaration des variable '--------------------------------------- 'Ajout de l'Identifiant Produit et du nombre acheté dans le Tableau "MonCaddie" if Request.QueryString("Ia") <> "" then Do while (Art < 30) if Request.QueryString("Ia") = Temp(Art,0) then ' si l'ID produit est deja present dans le tableau Temp Temp(Art,1) = cint(Temp(Art,1)) + cint(Request.QueryString("Na")) ' alors les additionner Session("MonCaddie") = Temp Art = 30 elseif Art = 29 or Temp(Art,0) = "" then 'sinon ajouter le produit + nombre voulu dans le tableau Temp Temp(i,0) = Request.QueryString("Ia")'Identifiant Produit de l'article choisi par le client Temp(i,1) = Request.QueryString("Na")'Combien le client en veut il de produit de cette Identifiant Produit (Ia) Session("MonCaddie") = Temp i = i + 1 Session("Flag") = i Art = 30 end if Art = Art + 1 loop end if '--------------------------------------- 'Si le rayon n'a pas changer, alors rester dans le rayon enregistrer dans le session("Cat") if Request.QueryString("NumCat") = "" then Categorie = Session("Cat") else Categorie = Request.QueryString("NumCat") Session("Cat") = Request.QueryString("NumCat") end if '--------------------------------------- 'Nombre de produit TOTAL dans le caddie if Request.QueryString("Cad") > 0 then Session("Caddie") = Request.QueryString("Cad") end if '--------------------------------------- 'Requete qui affiche soit les promos, soit le rayon choisi par le client (categorie) if Categorie = "" or Categorie = 0 then SQL = "Select * From Produits where prom_prod=true" else SQL = "Select * From Produits where id_cat="& Categorie end if '--------------------------------------- 'Connection a la base de donnée '--------------------------------------- Dim MaConnection Set MaConnection = Server.CreateObject("ADODB.Connection") MaConnection.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & Server.MapPath(".") & "\produits.mdb;" MaConnection.Open() '--------------------------------------- 'Creation du Recordset de ma Table PRODUITS '--------------------------------------- Dim rsPROD Set rsPROD = Server.CreateObject("ADODB.Recordset") rsPROD.Open SQL, MaConnection, 3, 3 '--------------------------------------- 'Creation du Recordset de ma Table CATEGORIES '--------------------------------------- Dim rsCAT Set rsCAT = Server.CreateObject("ADODB.Recordset") rsCAT.Open "Select * From Categories order by nom_cat;", MaConnection '--------------------------------------- 'Creation du Recordset pour l'affichage de rayon '--------------------------------------- if Categorie <> 0 then Dim rsRAYON Set rsRAYON = Server.CreateObject("ADODB.Recordset") rsRAYON.Open "Select * From Categories where id_cat="& Categorie, MaConnection end if '--------------------------------------- %> ::: Nice Web :::
   


Bienvenue sur notre espace achat Nice Web.
Notre catalogue n'est pas complet, la mise à jour se poursuit,
Si vous nous trouvez pas votre produit, aller dans notre page de contact,
N'oubliez notre offre de lancement, livraison gratuite sur NICE et ses environs proches,

Choisissez une rubrique
Acceder à Votre caddie " size="2" class="input" readonly>

<% rsPROD.movefirst Do until rsPROD.EOF On Error resume next%> <% rsPROD.Movenext %> <% if (BGC = "#FFFFFF") then BGC = "#E3E3E3" else BGC = "#FFFFFF" %> <%Loop%>
<%if Categorie = "" or Categorie = 0 then %> Promotions <% else%> <% = rsRAYON("nom_cat") %><% end if%>
Marque Désignation Produit Détail Prix HT Ajouter NB
           
<% Dim rsMARQ %> <% Set rsMARQ = MaConnection.execute ("Select nom_marque From Marques, Produits where Marques.id_marque=" & rsPROD("id_marque")) %> <% response.Write rsMARQ(0) & "
" %>		 <% = rsPROD("titre_prod") & "
" %>		 )"> <% = rsPROD("prix_prod") & " €" %> " onClick="AddToCaddie(<%=rsPROD("id_prod")%>)"> " class="amz" maxlength="2" width="1" size="1">
           


© Copyright 2003 NICE WEB - Tous droits réservés.

 
   














 
<% rsPROD.Close Set rsPROD = Nothing%> <% rsCAT.Close Set rsCAT = Nothing%> <% if Categorie <> 0 then rsRAYON.Close Set rsRAYON = Nothing end if %>