SONDAGE, DÉBUTANT
vbtom
Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003
-
15 janv. 2002 à 18:44
jabirmed Messages postés 17 Date d'inscription vendredi 12 janvier 2007 Statut Membre Dernière intervention 9 avril 2010 - 18 mars 2008 à 00:44
jabirmed Messages postés 17 Date d'inscription vendredi 12 janvier 2007 Statut Membre Dernière intervention 9 avril 2010 - 18 mars 2008 à 00:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8737-sondage-debutant
https://codes-sources.commentcamarche.net/source/8737-sondage-debutant
18 mars 2008 à 00:44
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Erreur d'exécution Microsoft VBScript error '800a0046'
Permission refusée
/cours/sendage/monpoll.asp, line 23
12 mai 2006 à 07:55
:(
12 mai 2006 à 07:51
http://www.trucsweb.com/ASP/trucs.asp?no=296&type=7
12 mai 2006 à 07:43
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.
12 mai 2006 à 07:43
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.
6 août 2005 à 15:44
comme maxioutils ,la page est introuvable,pourtant j'ai mis le code telquel sur Free ou Hosteur <= herbergeur pro...moi j'passe au suivant :(
1 févr. 2005 à 13:58
19 sept. 2003 à 21:46
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>
Rock
</td>
<TD ><%=LireTxt("vote1.txt")%> (<%=Percent2%>%)
<TD WIDTH="50"> " Height="10" border="0" /></TD>
<td>
Pop
</td>
<TD ><%=LireTxt("vote2.txt")%> (<%=Percent2%>%)
<TD WIDTH="50"> " Height="10" border="0" /></TD>
<td>
Reggea
</td>
<TD ><%=LireTxt("vote3.txt")%> (<%=Percent2%>%)
<TD WIDTH="50"> " Height="10" border="0" /></TD>
<td>
Techno
</td>
<TD ><%=LireTxt("vote3.txt")%> (<%=Percent2%>%)
<TD WIDTH="50"> " Height="10" border="0" /></TD>
<TD></TD>
</FORM>
<TD>TOTAL DES VOTES : <%=NbeTotal%> </TD>
Qu'est-ce-que je fais de pas correcte? Pourriez-vous m'aider? Merci.
6 oct. 2002 à 15:16
19 juil. 2002 à 06:13
16 janv. 2002 à 22:30
15 janv. 2002 à 23:15
15 janv. 2002 à 18:44
Meilleurs voeux!
Bonne chance!
:)
A#