Bonsour,
pouvez me dire ce qui cloche?
voici mon code.
le code du formulaire permettant d'uploader un fichier sur le serveur et de stocker son nom,numero et emplacement dans une base de donnée.
<%@LANGUAGE="VBSCRIPT" %>
<% option explicit%>
<%server.Execute("/commun/entete.asp")%>
<!--#include virtual="/adovbs.inc"-->
<!--#include virtual="/Commun/cnxBaseNouv.asp"-->
<% Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "infos", objConn, , , adCmdTable %>
<form method="POST" action="ajout.asp" enctype="multipart/form-data">
<input type="text" name="numero" size="6">
<input type="text" name="titre" size="75">
<input type="file" name="File1" size="30">
<input type="submit" name="submit" value="Ajouter">
voici le code de ajout.asp
qui traite le transfert du fichier et le stokage des infos le concernant.
<%@LANGUAGE="VBSCRIPT"%>
<% option explicit %>
<!--#include virtual="/adovbs.inc"-->
<!--#include virtual="/Commun/cnxBaseNouv.asp"-->
<%
Dim upl, NewFileName
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
If Len(upl.Form("File1")) > 0 Then
NewFileName = "/info/direction/" & upl.ExtractFileName(upl.Form("File1"))
If upl.SaveToWeb("File1", NewFileName) Then
Response.Write("Mise à jour effectuée.")
Else
Response.Write("Erreur lors de la transmission du fichier.")
End If
End If
Dim strTitre, strEmplacement, strNumero
strTitre = Request.Form("titre")
strEmplacement = upl.ExtractFileName(upl.Form("File1"))
strNumero = Request.Form("numero") %>
<%
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "infos", objConn, , adLockOptimistic, adCmdTable
objRS.AddNew
objRS("titre") = strTitre
objRS("emplacement")= strEmplacement
objRs("numero") = strNumero
objRS.Update
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<%response.redirect "update.asp"%>
Malheureusement cela ne fonctionne pas.
Merci pour votre aide.
foudail
