Salut a tous
Je souhaite faire un formulaire avec lequel j'upload un fichier en inserant des données dans une BD. Pour cela j'ai récupéré un script pour l'upload et modifie le formulaire pour y mettre des champs text.
Le code:
<html>
<head>
<title>Upload de fichier</title>
</head>
<body>
<form method=post ENCTYPE="multipart/form-data">
Nom : <Input type="Text" name="Nom"><br>
File : <input type="file" name="File1"><br>
<input type="submit" Name="Action" value="Upload the file">
</form>
</body></HTML>
<!---#INCLUDE FILE=".\librairies\upload.inc" --->
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Request method must be "POST" For get the fields
Set Fields = GetUpload()
FilePath = Server.MapPath(".\upload") & "\" & Fields("File1").FileName
Fields("File1").Value.SaveAs FilePath
FileName = Fields("File1").FileName
' Connexion et insertion dans la BD
Set conn = Server.CreateObject("ADODB.Connection")
connstring = "driver={SQL Server}; server=SERVEUR;uid=USER;pwd=PASSWORD;database=DATABASE"
conn.open connstring
Set rs = Server.CreateObject("ADODB.recordset")
sql = "INSERT INTO MATABLE (Nom) values"
sql = sql + "('" & Fields("Nom") &"')"
Set rs = conn.Execute(sql)
If (Fields("Nom") <> "") then
%>
Non = <%=Fields("Nom")%>
FileName = <%=Fields("File1").FileName%>
<%
End IF
End If
%>
A l'execution l'upload se passe bien mais je me retouve avec comme valeur dans la BD [Objet Objet]
Merci pour votre aide
Vertigo76