Forum « SAfileup - message erreur - urgent »

Forum « Programmation ASP » (archives)

SAfileup - message erreur - urgent

Envoyé: 8 octobre 2003, 15h16 par pup

Bonjour , j'utilise file up de Soft Artisans qui est installé sur le serveur web pour que l'utilisateur puisse télécharger un fichier pdf, mais voilà, j'ai une drole d'erreur... lorsque je test le formulaire j'arrive sur la page sauvegarde.asp et elle me fait une erreur HTTP500- erreur interne du serveur.
lorsque j'actualise cette page j'ai un nouveau message d'erreur de mon script maintenant:'Votre navigateur ne semble pas supporter le transfert de fichiers.'
Je n'arrive pas a trouver pourquoi j'obtient une erreur HTTP 500.

Merci de m'aider.
voici le code:

---- formulaire ---
<FORM ACTION="sauvegarde02.asp" METHOD=post ENCTYPE=multipart/form-data>
Fichier à
transférer sur le serveur :
<input name="file1" type="file" id="file1">
<input type="Submit" value="Transférer">
</FORM>

---- sauvegarde ----

<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = "d:\inetpub\immontreal.com\temp\"
upl.Save

if upl.IsEmpty Then
Response.Write "Erreur de transfert:"
Response.Write "Le fichier que vous essayez de transférer est vide (0 Octets). "
Response.Write "Vous avez probablement sélectionné un mauvais fichier. "
Response.Write "<a href=formulaire.asp>Retour au formulaire de transfert</a> "
ElseIf
upl.ContentDisposition <> "form-data" Then
Response.Write "Erreur de transfert: Votre navigateur ne semble pas supporter le transfert de fichiers. "
Else
upl.Save

If Err <> 0 Then
Response.Write " Erreur de sauvegarde:"
Response.Write "Un problème est survenu lors de la sauvegarde du fichier. "
Response.Write "Causes possibles:"
Response.Write " Nom de fichier incorect."
Response.Write " Les droits du répertoire (NTFS) ne vous accorde pas le droit de sauvegarder des fichiers"
Response.Write " "
Else

Response.Write "Le fichier a été SAUVEGARDÉ sur " & upl.ServerName & ". "
Response.Write " " & VbCr
Response.Write "Fichier: " & upl.UserFilename & " " & VbCr
Response.Write "Taille: " & upl.TotalBytes & " bytes " & VbCr
Response.Write "Type de contenu: " & upl.ContentType & " " & VbCr
Response.Write "Disposition du contenu: " & upl.ContentDisposition & " " & VbCr
Response.Write "Version du MIME: " & upl.MimeVersion & " " & VbCr
Response.Write "Encodage du transfert: " & upl.ContentTransferEncoding & " " & VbCr
End If
End If

Set upl=Nothing
%>