Discussion :

[cedric/copy]

Bonjour,

J'essaye de faire un Upload, mais j'ai le message suivant :

aspSmartUpload error '800a0009'

Subscript out of range

/Nouveaux site/Pages/Modif_AvatarEssai.asp, line 40

ma ligne 40 correspond à

<%mySmartUpload.Upload%>

Pourtant dans mon formulaire j'ai bien enctype="multipart/form-data"

Voici mon code complet

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
<form method="post" enctype="multipart/form-data">
	<input type="file" name="userfile"> <br>
	<input type="submit" value="Enregistrer le fichier">
</form>
 
 
<% Set mySmartUpload = _
Server.CreateObject("aspSmartUpload.SmartUpload")%>
 
<%mySmartUpload.MaxFileSize = 1024%>
 
<%mySmartUpload.Upload%>
 
<%intCount = mySmartUpload.Save(rep)%>
 
<%if err then response.write err.description%>
 
<% For each file In mySmartUpload.Files %>
	<br> Nom : <%=file.FileName%>
	<br> Taille : <%=file.Size%> octets
	<br> Type : <%=file.ContentType%>
<% next %>
 
<% 
On Error Resume Next
 
MFS=1024
 
rep="/data/upload"
 
Set mySmartUpload = _
	Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.MaxFileSize = MFS
mySmartUpload.Upload
intCount = mySmartUpload.Save(rep)
 
if err = -2147220399 then
%>
 
	<b>Trop gros fichier !</b>
	<i>( <%=MFS%> octets max.)</i>
 
<% elseif intCount>0 then %>
 
	<b>Votre fichier à bien été enregistré !</b>
 
<% For each file In mySmartUpload.Files %>
	<br> Nom : <%=file.FileName%>
	<br> Taille : <%=file.Size%> octets
	<br> Type : <%=file.ContentType%>
<% next 
elseif err <> 9 then %>
 
	<b>Erreur d'enregistrement !</b>
 
<%=err.description%>
<% End if %>
 
<br>
 
LISTE*DES*FICHIERS*TELECHARGES
<BR>
 
<table>
<% Set FSO = _
Server.CreateObject("Scripting.FileSystemObject")
set fc = FSO.GetFolder(server.MapPath(rep)).Files
 
for each f in fc %>
 
	<tr></tr>
***<TR>
		<th>
			<a href="<%=rep&"/"&f.name%>" target="_blank"><%=f.name%></a>
		</th>
			<td align="right"><%=f.size%></td>
			<td><%=f.dateCreated%></td>******
	</tr>
<% next %>
 
</table>

Merci d'avance

Cédric.

[vva]

je ne comprends pas pourquoi tu as deux fois le code et notamment la déclaration de l'objet

Set mySmartUpload = _
Server.CreateObject("aspSmartUpload.SmartUpload")

[cedric/copy]

Re,

J'ai supprimé la ligne 40 et ça fonctionne.

Actuellement mon image est téléchargée, dans mon répertoire "/nouveaux site/pages/IMG. J'aimerai la téléchargée sur ma BD Access dans la Tbl_MonCompte colonne Photo. Est-ce possible.

[vva]

laisse plutôt ton image dans le répertoire et met un champ nomimg dans ta BD avec le nom de l'image ensuite tu reconstruits le chemin avec le server.mappath() pour le chargment de l'image

[cedric/copy]

Re,

Ok je laisse mon image dans mon répertoire, mais après je coule...

Ou insérer server.mappath() et ou trouver des explications sur server.mappath().

Cédric.

[vva]

alors tu fais la requête de lecture de ta base en incluant le champ nomimg dans ton select ensuite pour inclure l'image dans ta page tu fais

Code :

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

1
2
 
response.write "<img src='cheminquivabien/'" & recordset("nomimg")& "  border='0' />"

cheminquivabien c'est le chemin depuis la racine du site où se trouve tes images exemple
-> /img/

[cedric/copy]

Re,

Je suis un peu perdu, et je pense faire fausse route. Mon idée était d'uploader une image qui est associé à l'ID du connecté. Cette image lui aurait permit de savoir qu'il était connecté.

Helas je m'apperçois que cette méthode est assez complexe. Mais je ne renonce pas, je veux me documenter avant de poser des questions inutiles.

Merci vva de ton aide et désolé de t'avoir fait perdre ton temps.

Cédric

[vva]

je crois qu'il y a une confusion de terme par rapport au résultat. Uploader c'est télécharger un fichier en cliquant sur un lien or dasn ton cas tu sembles vouloir afficher une signalisation visuelle de connexion comme le voyant vert en bas à gauche de chaque profil sur ce forum mais cela se gère par code. tu dois avoir une base des utilisateurs avec un flac connecté/non connecté et en fonction de l'état au moment de construire la page tu fais

si connecté :

Code :

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

1
2
 
response.write "<img src='images/connecté.gif'  border='0' />"

si pas connecté

Code :

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

response.write "<img src='images/déconnecté.gif'  border='0' />"

là pas besoin de composant aspsmartupload et d'en maîtriser le fonctionnement

[Invité]

Pour info : composant ASPSmartUpload - mode d'emploi
http://j-reaux.developpez.com/tutori...spsmartupload/