<%
dimfso, f1
Constforreading = 1
setfso = createObject ("scripting.filesystemObject")
'' Use el objeto FSO para leer información.
setf1 = fso.opentextfile ("e: /doit/info2.txt", Forreading)
'' Abra el archivo para leer
dimconn, rst
setconn = server.createObject ("ADODB.Connection")
'' Cree una conexión de base de datos y realice operaciones
setrst = server.createObject ("ADODB.Recordset")
conn.open "Driver = {Microsoft AccessDriver (*. Mdb)}; dbq =" & server.mappath ("db1.mdb")
rst.activeconnection = Conn
dimfread
dowhilenotf1.atendofstream
'' Insertar datos con do ... bucle bucle
fread = f1.Readline
línea = dividir (fread, ":::")
rst.source = "InsertIntobarCode1 (BarCode1) Valores (" & Trim (línea (0)) y ")"
rsst.
bucle
f1.lose
Conn.clar
''''por todas partes
%>