J'ai un formulaire, qui me permet d'uploader un fichier, et de prendre des parametres.
Or si mon fichier est non valide, mon champs nom n'affiche rien avec le response.write, si le fichier est vide ou valide ca affiche.
Je voudrais même si mon fichier est non valide pouvoir l'afficher.
Mon formulaire
Et voici le fichier qui s'occupe de l'upload (qui ne fait pas encore l'upload)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 <form name="upload" method="post" action="upload.asp" enctype="multipart/form-data"> <input type="submit" name="ok" value="ok"> <input type="file" name="fichier"> <input type="text" name="nom"> </form>
Je pense que mon problème vient d'ici, car si mon fichier n'est pas valide il ne continue pas la boucle.
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 Response.Buffer = true ' Gérer les erreurs On error resume next ' Variables Dim mySmartUpload Dim file ' Création de l'Objet Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") ' Taille maximale autorisée : 200ko limite = 204800000 extValide = "jpg,jpeg,gif,png,zip" mySmartUpload.MaxFileSize = limite mySmartUpload.AllowedFilesList = extValide ' Début de l'Upload mySmartUpload.Upload For each item In mySmartUpload.Form For each value In mySmartUpload.Form(item) if item<>"fichier" then execute (item&"=replace(value,""'"",""''"")") Next Next response.write nom '<----C'est lui qui affiche
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 mySmartUpload.Upload For each item In mySmartUpload.Form For each value In mySmartUpload.Form(item) if item<>"fichier" then execute (item&"=replace(value,""'"",""''"")") Next Next
Partager