IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

ASP Discussion :

Compter un nombre de champs affichés


Sujet :

ASP

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2010
    Messages : 42
    Points : 21
    Points
    21
    Par défaut Compter un nombre de champs affichés
    Bonjour,

    Je travaille sur une boutique en ligne en ASP 3.0 et je
    suis sur un pb qui parait simple mais je suis plus habitué au php qu'à l'asp.. j

    Voici la problématique :
    Je dois réaliser une offre promotionnelle classique du type 3 produits de même catégories achetés = 1 gratuit.

    Une requête sql affiche le panier de produits sélectionnés par l'internaute avec les prix et quantités. Les produits sont différents et identifiés par un champ int dans la base de donnée.
    Je dois donc compter dans la page html si plus de 3 produits de la catégorie 1 par exemple sont affichés et mettre l'un de ces produits à 0 euros.
    J'ai essayé plusieurs syntaxe avec l'objet request+count mais je n' arrive pas du tout à tester cette condition.

    En espérant que vous puissiez m'aider.

    Merci

  2. #2
    Expert confirmé
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Points : 4 047
    Points
    4 047
    Par défaut
    Bonjour,

    Peux-tu nous montrer le code ASP qui affiche le contenu du panier ?

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2010
    Messages : 42
    Points : 21
    Points
    21
    Par défaut
    Bonjour,

    Tout d'abord, merci de ton aide.
    Voici la page complète qui affiche le panier hormis l'appel aux fonctions de connexions et d'ajout au panier.

    Ce code fonctionne très bien.

    Merci beaucoup.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
     
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
    	"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" lang="fr">
    <head>
    	<meta http-equiv="content-type" content="text/html; charset=utf-8" />
    	<meta http-equiv="content-language" content="fr" />
    	<meta http-equiv="content-script-type" content="text/javascript" />
    	<meta http-equiv="content-style-type" content="text/css" />
    	<title>Votre panier</title>
    <META NAME="description" Content="Une librairie complète proposant des livres et des guides sur les énergies renouvelables : énergie éolienne, énergie solaire, énergie hydraulique,  biogaz, biocarburants, solaire thermique, photovoltaïque, architecture bioclimatique et le développement durable.">
    <META NAME="keywords" Content="">
    	<meta name="author" content="" />
    	<meta name="DC.Language" content="fr" />
    	<meta name="DC.Publisher" content="" />
    	<meta name="DC.Creator" content="" />
    	<!--[if !IE]> <-->
     
    	<!-- <![endif]-->
    	<!--[if gte IE 6]>
    	<link rel="stylesheet" type="text/css" href="/static/css/default/standard.css" media="screen, projection" title="Default" />
    	<![if lte IE 7]><link rel="stylesheet" type="text/css" href="/static/css/default/ie/standard.css" media="screen, projection" title="Default" /><![endif]>
    	<![endif]-->
    	<link rel="stylesheet" href="/static/css/print/base.css" type="text/css" media="print" />
    	<script src="/static/js/base.js" type="text/javascript"></script>
    	<link rel="icon" href="/static/icons/favicon.png" type="image/png" />
        <link href="/static/css/default/standard.css" rel="stylesheet" type="text/css" />
            	<style type="text/css" title="Default" media="screen, projection">
    	/* <![CDATA[ \*/
    		@import "/static/css/default/standard.css";
    	/* ]]> */
    	.color4 {
    	color: #776351;
    }
                .panier {
    	width: 800px;
    	left: 100px;
    	top: 5px;
    	float: left;
    	position: relative;
    }
                </style>
    </head>
    <body class="i18n-fr">
    <!--#include virtual="/head_lib.asp"-->
    <p id="breadcrumbs"> <a href="librairie.asp">Accueil</a> &raquo;&nbsp;<a href="#">La librairie</a></p>
    <div id="wrapper" class="by2">
    <h1>&nbsp;  &nbsp;  &nbsp;  &nbsp;  &nbsp;   Votre panier</h1>
    <br />
      <div class=panier>
        <div class=inset>
          <table width="800" align="center">
            <tr>
              <th width="20%" height="31" class="color1"><font color="#FF0000">1. Panier</font></th>
              <th width="20%">2. Livraison</th>
              <th width="20%">3. Commande</th>
              <th width="20%">4. Paiement</th>
              <th width="20%">5. Validation</th>
            </tr>
          </table>
          <p align="center" > <span class="color4"> Important : si vous modifiez la quantit&eacute; de vos achats, 
     
            il faut cliquez sur</span> <span class="color1"> &quot;Recalculer&quot; </span><span class="color4"> <br />
            pour que la modification 
              soit prise en compte.</span></p>
          <p ><%=warning%></p>
          <table width="797">
            <tr class="even">
              <td width="249" height="20" ><b>Articles 
                dans votre panier</b></td>
              <td width="91" ><b>Prix</b></td>
              <td width="82" ><b>Quantit&eacute;</b></td>
              <td width="83" ><div align="center"><b>Total</b></div></td>
              <td width="268" >&nbsp;</td>
            </tr>
            <%
    		dim total
     
     
    		for i = 0 to Session("item") - 1
    			sql = "select * from boutique_produits where id = " & caddy(0,i)
    			set rs = OBJdbConnection.Execute(sql)
    			total = total + Cdbl(rs("prix")) * caddy(1,i)
     
    			Session("total") = total
     
     
     
    		%>
            <tr>
              <form action="up.asp" target="_parent" method="post">
                <td height="20"><% 
    			if isnull(rs("num")) <> true then 
    			response.Write("<a href=""" & "revue_detail.asp?rev=" & caddy(0,i) &""">Revues n°"&rs("num")&" "&Server.htmlEncode(rs("titre"))&"</a>")		
    			end if	
    			if cint(rs("cat")) = 2 or cint(rs("cat")) = 3 or cint(rs("cat")) = 7 then
    				response.Write("<a href=""" & "livre_detail.asp?liv=" & caddy(0,i) &""">"&Server.htmlEncode(rs("titre"))&"</a>")
    			end if
    			if cint(rs("cat")) = 6 then
    				response.Write("<a href='promo.asp'>"&Server.htmlEncode(rs("titre"))&"</a>")
    			end if
    			if cint(rs("cat")) = 4  or  cint(rs("cat"))= 11 or  cint(rs("cat"))= 12  then
    				response.Write("<font size=-2> "& Server.htmlEncode(rs("titre"))&"&nbsp;("&trim(Server.htmlEncode(rs("stitre")))&")</font>")
    			end if
     
    			%>            </td>
                <td>
                  <%             
    			=Server.htmlEncode(FormatNumber(rs("prix"),2))	
    		     %>
    			&euro;&nbsp;</td>
               <td><input name="qte" type="text" size="2" value="<%=caddy(1,i)%>" maxlength="2" <%if caddy(2,i) = 1 then response.Write("disabled") end if%> /> </td>
                <td align="right"><div align="right"><b><%=FormatNumber(rs("prix"),2)*caddy(1,i)%></b>&nbsp; &euro; </div></td>
                <td colspan="2" align="right"><input name="image" type="image" onclick="submit();" src="anims/recalculer.jpg" align="top" border="0" />
                  &nbsp;<a href="suppr.asp?row=<%=i%>"><img src="/b2b/anims/supprimer.jpg" alt="" /></a></td>
                <input type="hidden" value="<%=i%>" name="row" />
              </form>
     
            </tr>
            <%
    		next
    		%>
            <tr class="even">
              <td height="20" colspan="6" align="right" valign="middle"><b> Total de votre commande :&nbsp;&nbsp;</b> <b><%=Server.HTMLEncode(FormatNumber(total,2))%>&euro;</b></td>
     
            </tr>
     
            <tr><td></td></tr>
            <tr align="right">
              <td colspan="6" align="center" background="776153"><br />
                  <a href="<%if session("item") <> 0 then response.write("etape2.asp") else response.Write("#") end if%>"><b><font color="#776153">Terminer votre commande</font></b></a> / 
                  <a href="<%Response.Write("default.asp")%>"><!--<a href="revue_som.asp">--><b><span color=colo1><font color="#776153">Continuer vos achats</font></span></b></a> (votre panier actuel sera m&eacute;moris&eacute;)<br />
                  <br /></td>
            </tr>
          </table>
        </div>
      </div>
     
    </div
    ></div><!--#include virtual="/footer_lib.asp"-->
    </body>
     
     
    </html>

  4. #4
    Expert confirmé
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Points : 4 047
    Points
    4 047
    Par défaut
    Re,

    Dans cette instruction :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    for i = 0 to Session("item") - 1
    A quoi correspond Session("item") ?

  5. #5
    Membre à l'essai
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2010
    Messages : 42
    Points : 21
    Points
    21
    Par défaut
    Merci de ta réponse,

    Comme j'ai récupéré ce code, je nage un peu..
    Cela doit être le nom de la variable de session qui permet l'ajout des produits.
    Je te joint le tout : au clic sur le lien , la page ajout.asp prend en paramètre
    l'id du produit

    Je te remercie bcp


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    <a href="ajout.asp?add=98">Ajouter au panier</a> </td>
    page session.asp
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    <%
    if not isarray(session("sol")) then
       ReDim caddy(3,1)
       session("item") = 0
    else
       caddy=session("sol")
     
    end if
    %>

    page ajout.asp
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
     
     
    <!--#include file="session.asp"-->
    <%
    dim qte
    if request.form("abo")="" and request.querystring("add")= "" then
    response.redirect (request.ServerVariables("HTTP_REFERER"))
    end if
     
     
     
     
    if request.QueryString("add")<>"" then
     
       i=cint(request.QueryString("add"))	
     
     
    	for n = 0 to int(session("item"))
    		if i = caddy(0,n) then
    			caddy(1,n) = caddy(1,n) + 1
    			qte =1
    			'response.Write("[NUM:"&caddy(0,n)&"]")
    			'response.Write("[QTE:"&caddy(1,n)&"]")
    			'response.Write("["&session("item")&"]")
    			exit for
    		end if	
    	next
     
     
    	if qte = 0 then	
     
    	   caddy(0,session("item")) = i
    	   caddy(1,session("item")) = 1
    	   caddy(2,session("item")) = request.QueryString("cat")
     
    	   '	response.Write(caddy(0,session("item")))
    		'response.Write(caddy(1,session("item")))
    		'response.Write("["&session("item")&"]")
    		session("item") = session("item") + 1
    		redim preserve caddy(3,session("item"))
     
    	end if
     
     
    	session("sol") = caddy 
     
    	response.Redirect(request.ServerVariables("HTTP_REFERER")) 
    	'Response.AddHeader "Refresh", "10;URL=http://www.google.com/"
    else
    		if request.Form("abo") <> "" then
    			idabo = request.Form("abo")
    			tabid = split(trim(idabo), ",")
     
    			for cpt = 0 to ubound(tabid)
    				i = cint(tabid(cpt)) 
    				for n = 0 to int(session("item"))
    					if i = caddy(0,n) then
     
    						caddy(1,n) = caddy(1,n) + 1
     
    						qte = 1
     
    						exit for
    					end if	
    				next
    				if qte = 0 then	
     
    				   caddy(0,session("item")) = i
    				   caddy(1,session("item")) = 1
    				   caddy(2,session("item")) = request.QueryString("cat")
     
    					session("item") = session("item") + 1
    					redim preserve caddy(3,session("item"))
     
    				end if
     
    			next
    		   'response.Write(caddy(0,0)&"<br>"&caddy(1,0))
    			session("sol") = caddy 
    			response.Redirect(request.ServerVariables("HTTP_REFERER"))
     
    		end if
    end if
     
    if request.Form("free") then
     
    		i=cint(request.Form("free")) 
     
    		if Session("free") = "" then
     
    			if cint(Session("total")) >= 79 then
     
    			   caddy(0,session("item")) = i
    			   caddy(1,session("item")) = 1
    							   caddy(2,session("item")) = 1
     
    			   session("item") = session("item") + 1
    				redim preserve caddy(3,session("item"))
     
    				session("sol") = caddy 
    			end if
     
    		else
     
    			for n = 0 to int(session("item"))
     
    				if int(Session("free")) = caddy(0,n) then
    					notadd=0
    					caddy(0,n) = i 
    					caddy(1,n) = 1
    					caddy(2,n) = 1
    					exit for
    				else
    					notadd = 1
    				end if	
     
    			next
     
    			if notadd = 1 then
    				response.Write("her")
    				caddy(0,session("item")) = i
    				caddy(1,session("item")) = 1
    				caddy(2,session("item")) = 1
    				session("item") = session("item") + 1
    				redim preserve caddy(3,session("item"))
    			end if
     
    		end if
    				'response.Write(Session("total"))
    			'	response.Write("<br>")
    			'	response.Write(Session("free"))
     
    				Session("free") = i
    				session("sol") = caddy 
    					'response.Write(Session("free"))
    					response.Redirect(request.ServerVariables("HTTP_REFERER"))			
    end if
    %>

  6. #6
    Expert confirmé
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 68
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Points : 4 047
    Points
    4 047
    Par défaut
    Re,

    Effectivement, on ne t'a pas fait un cadeau avec ce code (Beaucoup trop documenté à mon gout).

    Voila peut-être un début de piste :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
     
    Set rs2 = Server.CreateObject("ADODB.Recordset")
     
    for i = 0 to Session("item") - 1
        ' Compter le nombre d'articles par catégorie
        sql = "select cat, count(*) AS Nb from boutique_produits group by cat having id = " & caddy(0,i)
        set rs2 = OBJdbConnection.Execute(sql)
     
        sql = "select * from boutique_produits where id = " & caddy(0,i)
        set rs = OBJdbConnection.Execute(sql)
        total = total + Cdbl(rs("prix")) * caddy(1,i)
        Session("total") = total
     
    ' Chercher le nombre d'articles de la catégorie dans rs2
    rs2.Movefirst
    do while not rs2.EOF
       ' Si l'article à afficher = l'article de rs2 et que pour cet article la quantité est > à 1 et que la variable "Remise" concaténée avec la catégorie = False
       if rs("cat") = rs2("Cat") and rs2("Nb") > 1 and Session("Remise"<%=rs("Cat")) = False then
          Prix = "0"
          Session("Remise"<%=rs("Cat")) = true
       else
          Prix = rs("Prix")
          Session("Remise"<%=rs("Cat")) = False
       end if
       rs2.MoveNext
    Loop
    .....
    ' Affichage du panier
    .....
    next
    %>
    <tr class="even">
    <td height="20" colspan="6" align="right" valign="middle"><b> Total de votre commande :&nbsp;&nbsp;</b> <b><%=Server.HTMLEncode(FormatNumber(total,2))%>&euro;</b></td>

  7. #7
    Membre à l'essai
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2010
    Messages : 42
    Points : 21
    Points
    21
    Par défaut
    Je te remercie un peu tardivement car je viens de me remettre sur le problème... Pour l'instant je cherche encore en suivant ta piste. Merci beaucoup.

  8. #8
    Membre expérimenté
    Avatar de kaiser59
    Homme Profil pro
    Inscrit en
    Novembre 2005
    Messages
    1 264
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France

    Informations forums :
    Inscription : Novembre 2005
    Messages : 1 264
    Points : 1 350
    Points
    1 350
    Par défaut
    Bonsoir,

    Je pense que cela devrait t'aider un peu :

    Code asp : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    <%
        val = "produit1, produit2, produit3, produit4, produit5, produit6"
        Session("test") = val
        'on converti la session en tableau, ce qui permet de compter le nombre d’élément
        tbl = split(Session("test"),",")
     
       'le 1er élément dun tableau est toujours égale à 0
        if ubound(tbl) > 1 then 
            response.write Cint(ubound(tbl)/ 3) &" articles gratuits"
        end if
    %>

    Adapte en fonction de tes besoins

    PS : Il doit être possible de faire la condition avec le modulo, mais vu l'heure je fatigue ^^
    Ne dites pas Java pour dire Javascript ! Ces deux codes n'ont rien à voir ! // Essayez d'expliquer, de la façon la plus claire possible votre problème. // Parfois une image vaut mieux qu'un long discours

    FAQ ASP

Discussions similaires

  1. Compter le nombre de champs dans un formulaire dynamique.
    Par rpgmax dans le forum Général JavaScript
    Réponses: 6
    Dernier message: 20/02/2008, 16h12
  2. Compter le nombre de champs d'une table
    Par alexsimps dans le forum SQL Procédural
    Réponses: 1
    Dernier message: 22/07/2007, 09h03
  3. Compter le nombre de champs (cut ?)
    Par orafrance dans le forum Shell et commandes GNU
    Réponses: 5
    Dernier message: 08/05/2007, 14h46
  4. Requete pour compter le nombre de champs
    Par kichemans dans le forum Requêtes
    Réponses: 4
    Dernier message: 24/04/2006, 15h12
  5. compter un nombre de champ lié
    Par laurent05 dans le forum Langage SQL
    Réponses: 2
    Dernier message: 14/04/2006, 17h44

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo