Poser une question

Re: Urgent Problème Upload

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...