SONDAGE, DÉBUTANT

Commentaire de max12 le 15/01/2002 23:15:51 administrateur CS

Merci !!

Commentaire de neojoce le 19/07/2002 06:13:11

lol !

Commentaire de systM le 19/09/2003 21:46:36

Bonjour,
Moi je suis vraiment débutant en ASP, je suis graphiste. Je trouve très intéressant ton système de sondage, mais j'ai de la difficulté à l'utiliser. Je veux rajouter des lignes, donc je crée de nouveaux fichiers txt: vote3.txt, vote4.txt . Ensuite je modifie le code de la manière suivante :

<%
Dim Fichier, NbeVisite, NbeTotal, Nbr1, Nbr2, Percent1, Percent2, Bar1, Bar2
If request.Form("ok") = "ok" Then
If request.Form("laoption") = "Oui" Then LireTxt("vote1.txt"):AddTxt ("vote1.txt")
If request.Form("laoption") = "Non" Then LireTxt("vote2.txt"):AddTxt ("vote2.txt")
If request.Form("laoption") = "Non" Then LireTxt("vote3.txt"):AddTxt ("vote3.txt")
If request.Form("laoption") = "Non" Then LireTxt("vote4.txt"):AddTxt ("vote4.txt")
End If
Public Function LireTxt(LeTxt)
fichier=Server.MapPath(LeTxt)
Set obj=CreateObject("Scripting.FileSystemObject")
Set objWrit=obj.OpenTextFile(fichier,1)
While not (objWrit.atEndOfStream)
NbeVisite=objWrit.Readline()
wend
LireTxt = NbeVisite
objWrit.Close
End Function
Public Function AddTxt(LeTxt)
fichier=Server.MapPath(LeTxt)
Set obj=CreateObject("Scripting.FileSystemObject")
obj.CreateTextFile fichier
set objf=obj.GetFile(fichier)
Set objWrit=objf.openAsTextStream(8)  
objWrit.WriteLine(NbeVisite + 1 )
objWrit.Close
End Function
%>
<%
On error resume next
Nbr1 = LireTxt("vote1.txt")
Nbr2 = LireTxt("vote2.txt")
Nbr3 = LireTxt("vote3.txt")
Nbr4 = LireTxt("vote4.txt")
NbeTotal = CStr(CInt(Nbr1) + Nbr2 + Nbr3 + Nbr4)
Percent1 = Int(CStr(CInt(Nbr1) / NbeTotal) * 100)
Percent2 = Int(CStr(CInt(Nbr1) / NbeTotal) * 100)
Percent3 = Int(CStr(CInt(Nbr1) / NbeTotal) * 100)
Percent4 = Int(CStr(CInt(Nbr1) / NbeTotal) * 100)
Bar1 = Int(CStr(CInt(Nbr1) / NbeTotal) * 50)
Bar2 = Int(CStr(CInt(Nbr2) / NbeTotal) * 50)
Bar3 = Int(CStr(CInt(Nbr3) / NbeTotal) * 50)
Bar4 = Int(CStr(CInt(Nbr4) / NbeTotal) * 50)
%>

Puis ensuite dans le body :


<FORM NAME="Sondage" ACTION="default.asp" METHOD="post">

<td><B><FONT Face="Arial" COLOR="#FFFFFF" Size="2"><INPUT TYPE="radio" NAME="laoption" VALUE="Oui" CHECKED="checked" />

Rock

</FONT></B></td>

   <TD ><B><FONT COLOR="#FFFFFF" Size="2"><%=LireTxt("vote1.txt")%><FONT COLOR="#FF0000"> (<%=Percent2%>%)</FONT>
   <TD WIDTH="50"> <IMG SRC="bar.jpg" WIDTH="<%=Bar2%>" Height="10" border="0" /></TD>
<br>

<td><B><FONT Face="Arial" COLOR="#FFFFFF" Size="2"><INPUT TYPE="radio" NAME="laoption" VALUE="Oui" CHECKED="checked" />

Pop

</FONT></B></td>

   <TD ><B><FONT COLOR="#FFFFFF" Size="2"><%=LireTxt("vote2.txt")%><FONT COLOR="#FF0000"> (<%=Percent2%>%)</FONT>
   <TD WIDTH="50"> <IMG SRC="bar.jpg" WIDTH="<%=Bar2%>" Height="10" border="0" /></TD>
<br>

<td><B><FONT Face="Arial" COLOR="#FFFFFF" Size="2"><INPUT TYPE="radio" NAME="laoption" VALUE="Oui" CHECKED="checked" />

Reggea

</FONT></B></td>

   <TD ><B><FONT COLOR="#FFFFFF" Size="2"><%=LireTxt("vote3.txt")%><FONT COLOR="#FF0000"> (<%=Percent2%>%)</FONT>
   <TD WIDTH="50"> <IMG SRC="bar.jpg" WIDTH="<%=Bar2%>" Height="10" border="0" /></TD>
<br>

<td><B><FONT Face="Arial" COLOR="#FFFFFF" Size="2"><INPUT TYPE="radio" NAME="laoption" VALUE="Non" />

Techno

</FONT></B></td>

   <TD ><B><FONT COLOR="#FFFFFF" Size="2"><%=LireTxt("vote3.txt")%><FONT COLOR="#FF0000"> (<%=Percent2%>%)</FONT>
   <TD WIDTH="50"> <IMG SRC="bar.jpg" WIDTH="<%=Bar2%>" Height="10" border="0" /></TD>
<br><br>


<INPUT TYPE="hidden" NAME="ok" VALUE="ok">
    
<TD><INPUT TYPE="submit" NAME="submit" VALUE="Voter !!"></TD>

</FORM>

<TD><FONT COLOR="#FFFFFF" Face="Arial" Size="2">TOTAL DES VOTES : <B><%=NbeTotal%></B> </FONT></TD>

Qu'est-ce-que je fais de pas correcte? Pourriez-vous m'aider? Merci.

Commentaire de moveyourfeet79 le 06/08/2005 15:44:22

Rien à dire...Sauf que ca fonctionne pas !
comme maxioutils ,la page est introuvable,pourtant j'ai mis le code telquel sur Free ou Hosteur <= herbergeur pro...moi j'passe au suivant :(

Commentaire de blashol le 12/05/2006 07:43:29

les mecs, je vous ai tous battu ! je suis master super NUL !
et je suis déçu qu'il n'y ai aucune explication sur :
où placer les fichiers dans l'arboresence de mon site.. et comment y faire référence.

un débutant, ça a besoin d'explications débiles pour pouvoir, pas-à-pas réussir à exploiter une application aussi simple dans son petit site perso.

Commentaire de blashol le 12/05/2006 07:55:49

.... aussi page introuvable ....  

:(