Discussion :

[roots_man]

Heeeeep,

alors voila mon probleme : Je veux uploader un fichier dans un dossier et selon k'on choisi un bouton radio ou un autre, le nom du fichier change. Mais mon probleme c'est qu'il ne passe pas le test de récupération des bouton radio..

Voila mon formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
<FORM METHOD="POST" action="doUpload.asp?domaine=<%=request.querystring("domaine")%>" ENCTYPE="multipart/form-data">
   <input type="radio" name="choix" value="1"> Revue de la semaine<br>
   <input type="radio" name="choix" value="2"> Revue du mois<br><br>
   <INPUT TYPE=FILE NAME="userfile" size="20"><BR>
   <INPUT TYPE=submit value="Uploader" name="upload">
</FORM>

Et la l'upload du fichier (doUpload.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
<%
Dim MyUpLoad
Set MyUpload = Server.CreateObject("AspSmartUpLoad.SmartUpLoad")
if MyUpload.form("choix") = "1" then
	NomFichier = "revue-semaine.pdf"
Else
	NomFichier = "sans.pdf"
End if
if MyUpload.form("choix") = "2" then
	NomFichier = "revue-mois.pdf"
Else
	NomFichier = "sans.pdf"
End if
'--------------------------------------------------------------------------------
if request.querystring("domaine") = "economie-services" then	
	chemin = "../doc/revue-presse/economie-services/" & NomFichier
End if
'--------------------------------------------------------------------------------
if request.querystring("domaine") = "sante-social" then
	chemin = "../doc/revue-presse/sante-social/" & NomFichier
End if
'--------------------------------------------------------------------------------
if request.querystring("domaine") = "sciences-ingenieur" then
	chemin = "../doc/revue-presse/sciences-ingénieur/" & NomFichier
End if
'--------------------------------------------------------------------------------
 
MyUpload.AllowedFilesList = "pdf"
MyUpload.Upload
For each file In MyUpload.Files
	If not file.IsMissing Then
		'response.write(chemin)
		file.SaveAs(chemin)
	End if
Next
%>

Ce code-la, upload le fichier comme il faut dans le bon dossier selon le domaine, mais le nom du fichier est toujours "sans.pdf" d'ou le problème de récupération des boutons radio..

Merci

[thor22]

Et si tu mets un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

response.write MyUpload.form("choix")

à quelque part dans ton code, pour vérifier si la bonnes valeur est enregistrée, qu'est-ce que ça te donne?

[roots_man]

oé ben j'avais déja essayer.. et ca m'affiche rien tu tout...

[thor22]

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
<% 
Dim MyUpLoad 
Set MyUpload = Server.CreateObject("AspSmartUpLoad.SmartUpLoad") 
 
MyUpload.Upload 
 
if MyUpload.form("choix") = "1" then 
   NomFichier = "revue-semaine.pdf" 
Else 
	if MyUpload.form("choix") = "2" then 
		NomFichier = "revue-mois.pdf" 
	Else
		NomFichier = "sans.pdf" 
	End if 
End if 
'-------------------------------------------------------------------------------- 
if request.querystring("domaine") = "economie-services" then    
   chemin = "../doc/revue-presse/economie-services/" & NomFichier 
End if 
'-------------------------------------------------------------------------------- 
if request.querystring("domaine") = "sante-social" then 
   chemin = "../doc/revue-presse/sante-social/" & NomFichier 
End if 
'-------------------------------------------------------------------------------- 
if request.querystring("domaine") = "sciences-ingenieur" then 
   chemin = "../doc/revue-presse/sciences-ingénieur/" & NomFichier 
End if 
'-------------------------------------------------------------------------------- 
 
MyUpload.AllowedFilesList = "pdf" 
 
For each file In MyUpload.Files 
   If not file.IsMissing Then 
      'response.write(chemin) 
      file.SaveAs(chemin) 
   End if 
Next 
%>

Ça, moi, ça marche sur mon poste.
Les modifications: MyUpload.Upload au tout début du fichier. Les champs textes doivent être uploadés avant de pouvoir les utiliser.
Aussi, j'ai modifié ton premier "if", pour que ça soit plus logique
Tu aurais pu utiliser un "case" aussi.

[roots_man]

Yeah.. merci ca marche.. 8)

[thor22]

Tant mieux