<%
Dimfso, F1
Constforreading = 1
setfso = createObject ("scripting.fileSystemObject")
'' Utilisez l'objet FSO pour lire les informations.
setf1 = fso.opentextfile ("e: /toit/info2.txt", ForReading)
'' Ouvrez le fichier à lire
Dimconn, premier
setConn = server.createObject ("adodb.connection")
'' Créez une connexion de base de données et effectuez des opérations
setRST = server.createObject ("adodb.recordSet")
Conn.open "Driver = {Microsoft AccessDriver (*. MDB)}; dbq =" & server.mappath ("db1.mdb")
RST.ACTIVECONNECTION = Conn
tabac
dowhilenotf1.atendofstream
'' Insérer des données avec DO ... boucle de boucle
fread = f1.readline
Line = Split (Fread, ":::")
RST.SOURCE = "INSERTINTOBARCODE1 (BARCODE1) VALEURS (" & TRIM (ligne (0)) & ")"
rst.open
boucle
f1.close
Conn.Close
''''partout
%>