Forum de discussion
Forum « Programmation ASP » (archives)
SA FileUp
Envoyé: 27 novembre 2003, 5h18 par samlon
mais avec le code que j'ai j'obtiens une erreur... voila le code:
du coté du formulaire ca doit être bon avec
<form ENCTYPE="MULTIPART/FORM-DATA" method="post" name="formu2" action="Confirmation.asp?type=manif&action=ajout">
<input type="file" name="ProgrammeManif" size="20" class="form"></form>
Et du coté du script d'up:
<%
set oFileUp = Server.CreateObject("SoftArtisans.FileUp")
oFileUp.Path = Server.MapPath("_private/programmes")
If Not oFileUp.Form("ProgrammeManif").IsEmpty Then
oUploadedFile = oFileUp.Form("ProgrammeManif")
oUploadedFile.Save%>
<%NewNomManif = Request.Form("NomManif")%>
<%NewNomManif = Replace(NewNomManif,"'","'")%>
<%NewLieuManif = Request.Form("LieuManif")%>
<%NewLieuManif = Replace(NewLieuManif,"'","'")%>
<%NewDebutManif = Request.Form("DebutManif")%>
<%NewFinManif = Request.Form("FinManif")%>
<%NewPrixManif = Request.Form("PrixManif")%>
<%NewProgrammeManif = Mid(oUploadedFile.UserFilename, InstrRev(oUploadedFile.UserFilename, "\") + 1)%>
<%NewHeureDebutManif = Request.Form("HeureDebutManif")%>
<%NewHeureFinManif = Request.Form("HeureFinManif")%>
<%sqlAjout = "INSERT INTO MANIF (NomManif, LieuManif, DebutManif, FinManif, PrixManif, ProgrammeManif, HeureDébutManif, HeureFinManif) VALUES ('" & NewNomManif & "', '" & NewLieuManif & "', '" & NewDebutManif & "' , '" & NewFinManif & "' , '" & NewPrixManif & "', '" & NewProgrammeManif & "', '" & NewHeureDebutManif & "', '" & NewHeureFinManif & "')"%>
<%Conn.Execute(sqlAjout)%>
<tr>
<td class="manif2">La manifestation a été ajoutée
avec succès. </td>
</tr>
<tr>
<td class="manif"><a href="manif.asp"> >> voir les manif.</a>
<a href="ManifAjout.asp">>> ajouter une autre manifestation.</a></td>
</tr>
<%Else%>
<tr>
<td class="manif2">Aucun fichier a uplaoder</td>
</tr>
<%End If
Set oFileUp = Nothing
set Conn = Nothing%>
(Conn et sqlAjout sont défini et il marchent...)
L'erreur me dit:
Erreur d'exécution Microsoft VBScript error '800a01a8'
Objet requis: 'E:\ploComplement\_pr'
/plo/Confirmation.asp, line 230
la ligne 230: oUploadedFile.Save
Voila merci pour une aide quelconque
Samlon
Réponses
|