begin process at 2012 05 28 11:48:44
  Trouver un code source :
 
dans
 
Accueil > Forum > 

ASP / ASP3

 > 

Base de données

 > 

Access

 > 

Recuperation variable checkbox


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Recuperation variable checkbox

mardi 29 avril 2008 à 09:04:54 | Recuperation variable checkbox

fred1254

Bon j'essaie de chercher une réponse mais en vain :(.

je vous envoi le lien de la page concernée : [ Lien ]

alors pour info quand on clique sur un seul vote tout marche nikel par contre dès qu'on sélectionne deux ou plusieurs affiches ça fonctionne plus :( (testez c'est le mieux pour voir le fonctionnement). Je suis sur que c'est pas bien compliqué mais je galère depuis 3 jours à chercher et à retourner le code dans tous les sens. je pense que ça passe par une boucle qui répéterait une partie du code, J'ai mis la boucle mais est ce que c'est au bon endroit.
Je vous mets la source de la page. Je continue à cherche aussi. Merci

<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Votez pour votre affiche pr&eacute;f&eacute;r&eacute;e</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function Retour (fichier,w,h) {
    ff=window.open(fichier,"new","toolbar=no,scrollbars=no,left=340,top=100,resizable=no"); if(ff) { ff.focus();ff.resizeTo(650,570) }
}
//-->
</script>
</head>
<body bgcolor="#b3dc10" text="#000000">
<table width="300" border="0" cellspacing="0" cellpadding="0" height="52">
  <tr>
    <td width="300" height="32">
      <div align="center"><img src="Concours.gif" width="162" height="32"></div>
    </td>
  </tr>
  <tr>
    <td width="300" height="20">
      <div align="center"><img src="Votez.gif" width="247" height="20"></div>
    </td>
  </tr>
</table>
<p>
  <%@LANGUAGE="VBSCRIPT"%>
</p>
<table width="300" border="0" cellspacing="0" cellpadding="0" height="328">
  <tr>
    <td width="300" valign="top">
      <%
SQL = "SELECT TOP 1 * FROM Questions " & _
    "ORDER BY VoteDate DESC"
RSQuestions.open SQL, Conn, 3, 3
' on ne selectionne que le dernier sondage entré (top 1)

VoteID = RSQuestions("VoteID")
' on récupère l'ID du sondage, que l'on placera dans     un cookie

VoteQuestion = RSQuestions("VoteQuestion")
' on récupère la question du sondage en cours


' --------------- Validation du formulaire ---------------
' si le formulaire est validé, on prepare la mise à jour de la table...

If Request.QueryString("valide") = "true" then

        SQL = "UPDATE Reponses " & _
         "SET Compteur = Compteur + 1 " & _
         "WHERE VoteOptionID= " & _
         Request.QueryString("choix") & ";"
       

'If Int(Request.Cookies("VoteCookie")("VoteID")) <> VoteID then
' si le visiteur n'avait pas encore donné son avis pour ce vote... et on execute...


Response.write(request.querystring("choix").count & " choix : <BR>")
for i = 1 to request.querystring("choix").count
    Response.write("Choix numéro : " & request.querystring("choix")(i) & "<BR>")
next

      Conn.Execute SQL 
   'Response.Cookies("VoteCookie").Expires = Now()
    'on autorise 1 vote tout les now() + x jours, à définir selon vos besoins
   'Response.Cookies("VoteCookie")("VoteID") = VoteID
   'Response.write " Le vote est validé. Merci!"

End if

'End if
' ------------ Fin de validation du formulaire -----------



SQL = "SELECT * FROM Reponses " & _
       "WHERE VoteID = " & VoteID
set RSReponses = Server.CreateObject("ADODB.Recordset")
RSReponses.Open SQL, Conn, 3, 3
' on extrait les réponses possibles pour ce sondage


Total = 0

While Not RSReponses.EOF
' on récupère le nombre de réponses totales données pour ce sondage
   Total = Total +  RSReponses("Compteur")
   RSReponses.MoveNext
Wend



RSReponses.MoveFirst
' on se replace sur le 1er enregistrement



If Request.QueryString("voir") = "true" OR Request.QueryString("valide") = "true" _
   OR cInt(Request.Cookies("VoteCookie")("VoteID")) = VoteID then           
    ' --------------- Affichage des resultats ---------------
    ' si on a voté, déjà voté, ou demandé les résultats
   
    ' protection "Dépassement de capacité" d'un entier
    ' si l'on affiche les résultats et que personne n'a encore voté
     
    If Total = 0 then
    Response.write "Aucun vote !"
    Else

     ' création de la table HTML
    %>
      <br>
      <table width="302">
        <tr>
          <td colspan="3"> <%=VoteQuestion%> <br>
          </td>
        </tr>
        <% while not RSReponses.EOF
    pVotes = (RSReponses("Compteur") / Total) * 100
    ' pourcentage = (réponses pour la question / total réponses données) * 100
    %>
        <tr>
          <td width="44"><%=RSReponses("VoteOption")%></td>
          <td width='14'><img src='/Marches/voteASP/vote.gif' height='5' width='<%=Round(pVotes,0)%>'></td>
          <td width="228"><%=Round(pVotes,1)%> %</td>
        </tr>
        <% RSReponses.movenext : wend
    'on boucle sur les réponses en sortant leur désignation
    ' le pourcentage de vote arrondi et une barre graphique
    %>
      </table>
      <br>
      <% Response.write Total & " votes ont été effectués" : End If %>
      <% Else  
    ' --------------- Affichage du formulaire ---------------
    ' si le visiteur n'a pas encore voté
%>
      <table width="302" align="center">
        <form name="poll" action="voteok.asp?voir=true" method="get">
          <tr>
            <td colspan="3"> <%=VoteQuestion%> </td>
          </tr>
          <% while not RSReponses.EOF
    ' on boucle sur les réponses, cette fois-ci dans un formulaire
    ' sous forme de cases à cocher
    %>
          <tr>
            <td width="176"><%=RSReponses("VoteOption")%></td>
            <td width="114">
              <input type="checkbox" name="choix" value="<%=RSReponses("VoteOptionID")%>">
            </td>
          </tr>
          <% RSReponses.movenext : wend %>
          <tr>
            <td colspan="2">
              <p align="center"><br>
                <input type="submit" value="Voter!" name="submit">
                <input type="hidden" name="valide" value="true">
                <br>
                <a href="voteok.asp?voir=true">Voir les résultats</a> </p>
            </td>
          </tr>
        </form>
      </table>
      <div align="center">
        <% End if %>
        <br>
        <a href='JavaScript:Retour("concours.html")'><font face="Comic Sans MS, Verdana, Arial" size="2">Retourner
        sur le site des 10 ans !</font></a></div>
    </td>
  </tr>
  <tr>
    <td width="300">&nbsp;</td>
  </tr>
</table>
</body>
</html>


fred


Cette discussion est classée dans : request, vote, querystring, if, voteid


Répondre à ce message

Sujets en rapport avec ce message

Problème lors de l'écriture de données dans la base [ par Eric ] Avec le code ci dessous, set RS=Server.createobject("ADODB.Recordset") RS.Cursorlocation=adUseServer RS.Cursortype=adOpenkeyset RS.locktype=adlockOp Update multiples HELP!!! [ par nasedo ] voici mon code : Set Conn1 = Server.CreateObject("ADODB.Connection") Set Conn2 = Server.CreateObject("ADODB.Connection") Conn1.Open "Driver={Microsof RS <--> request.querystring [ par Arkane ] on m as renseigner que l on pouvait avoir un recordset avec autre chose que le resultat d'un requete sur DB !que je pouvais alimenter mon Rs moi meme error '80020009' Une exception s'est produite. [ par goldfinger ] Suite a cette instruction, ie me renvoie un erreur de type 80020009 Une exception s'est produite.Quelq'un connait-il un solution a ce probleme?if Requ PB de PAGINATION des résultats en ASP [ par malerune ] J'arrive bien à effectuer la pagination des résultats mais le problème c'est qu'à chaque fois je réexécute ma reqûete de recherche. Au niveau performa [VB.NET] Une valeur de type 'String' ne peut pas être convertie en 'System.Drawing.Color' [ par Netlink ] Bonjour à tous,J'essaye de récupérer une valeur contenu dans l'url, et en fonction de cette valeur, modifier la couleur d'un label.Pour ceci j'ai essa request.form/Querystring [ par TheLordFreddy ] Salut,Comment effacer les valeurs recuperer par l'objet request?En fait je passe un nom avec POST ou GET ensuite je récupère ce nom pour l'ajouter dan Mis a jour dans Base Access [ par ben12345 ] Salut a tousVoila g créé une ptite boucle simple qui boucle tant que non eof et qui vérifie chaque champsMais suite a une mis a jour dans la base ca n Diaporama en ASP.NEt [ par krummy ] Bonjour, Je suis acuellement en train de développer une page qui affichera toute les images d'une bd, et ceci en forme de diaporama... Il faut donc q dll ne fonctionne pas à son appel [ par trax3699 ] Bonjour à tous et merci d'avance pour vos réponses.J'ai une page asp qui fait appel à une dll qui attaque l'activ directory pour ajouter ou supprimer 


Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,296 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales