Trucsweb.com

Forum de discussion

 Forum « Programmation ASP » (archives)

Re: Urgent Problème Upload

Envoyé: 28 février 2004, 12h49 par piersoleil


Je te remercie pour ta réponse et m'excuse du retard à te répondre suite à un déplacement professionnel imprévu.

J'ai maintenant le problème suivant :

J'utilise le composant AspSmartUpload pour envoyer un recordset de ma base de données sur le répertoire racine du serveur de mon hébergeur.

Ci-dessous mon code et le message d'erreur reçu.

Merci de ton aide

<%
' Variables

Dim mel
Dim IngNBFile
Dim mySmartUpload
Dim file
Dim Conn
Dim oRs
Dim intCount
intCount=0
mel=RefBien

' Création de l'Objet

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


' Connection à la Base

%><!--#include file="_connexion.asp"--><%


' Ouverture du recordset
strSQL = "SELECT FILENAME,Photo1,Ref_Bien, Taille, Type FROM Tfiles where Ref_Bien='"& Ref_Bien &"'"

Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = Conn
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open

' Vérification des enregistrements trouvés

If oRs.eof then
response.write("Il n'y a pas de photos enregistrées pour ce bien")
else
end if
Do While not oRs.eof

' Remplacement du Nom des Images uploadées par la Référence du Bien concerné

oRs.fields("FILENAME")=oRs("Ref_Bien")& Count & "." & oRs("Type")
oRs.update
Dim Route
Route=oRs("FILENAME")

'Envoi du recordset sur un fichier dans le répertoire du serveur
'avec l'objet AspSmartUpload.SmartUpload


MySmartUpload.fieldToFile oRs.fields("Photo1"), Server.mapPath(website & "/" & Route)

' Ajout d'un N° pour renommer la photo suivante

Count=Count+1
' Puis mouvement jusqu'au recordset suivant

oRs.movenext
loop


%>

aspSmartUpload.SmartUpload error '800403fc'

Unable to save file from the DataBase(Error 1020)

/Sample0.asp, line 80


Réponses

 Aucune réponse à ce message... 
Aucun médias sociaux
X

Trucsweb.com Connexion

Connexion

X

Trucsweb.com Mot de passe perdu

Connexion

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte

Créer un compte

.
@