Tu crées 2 pages asp + une base de données :
- la base de données : mabase.mdb
- 1 table qui s'appelle reparation
- dans cette table : 3 champs :
- n_id : numeroAuto
- code_barre : numérique
- hypertexte : texte
- la première page tu l'appeles preparation.asp et tu mets le code suivant :
<html>
<body>
<FORM METHOD="POST" ACTION="upload.asp" ENCTYPE="multipart/form-data" name="form">
<table>
<tr><td><input type="text"
name="code_barre"></td><td><INPUT TYPE="FILE"
NAME="FILE1" SIZE="50"></td></tr>
<tr><td colspan="2"
align="center"><INPUT TYPE="SUBMIT"
VALUE="Upload"></td></tr>
</table>
</FORM>
</body>
</html>
- la deuxième page, tu l'appeles upload.asp et tu mets le code suivant
<%
' Path long de la base de données
dbPath = Server.MapPath("mabase.mdb")
' Création de l'objet permettant la connexion
Set Conn = Server.CreateObject("ADODB.Connection")
' Connexion
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" _
& " DBQ=" & dbPath
' Variables
' *********
Dim mySmartUpload
Dim file
Dim intCount
intCount=0
' Connexion à la base
Set RS = Server.Createobject("ADODB.Recordset")
SQL="SELECT Max(n_id) as Max from reparation"
rs.Open sql, conn, 1,2
' Recherche du n° auto maxi pour un incrémentation pour changer le nom du fichier
maxi=RS("Max")+1
RS.close
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
mySmartUpload.Upload
' Select each file
' ****************
For each file In mySmartUpload.Files
' Only if the file exist
' **********************
If not file.IsMissing Then
' Save the files with his original names in a virtual path of the web server
' ****************************************************************************
file.SaveAs(maxi & "_" & file.FileName)
' sample with a physical path
' Display the properties of the current file
' ******************************************
Set RS = Server.Createobject("ADODB.Recordset")
' Insertion du chemin ou le fichier est stocké dans la base
SQL="INSERT INTO reparation(code_barre,hypertexte) VALUES('"&
mysmartupload.form("code_barre") &"','../stockage/" & maxi
& "_" & file.Filename & "');"
rs.Open sql, conn, 3,3
' Message pour indiquer que le transfert a bien eu lieu
Response.Write("Le fichier " & file.Filename & " a bien
été enregistré sous le nom " & maxi & "_" & file.Filename)
End If
Next
%>
Si tu n'y arrives toujours pas, envoie en MP ton mail et je t'envoie directement les fichiers.
Bonne chance