<%
Dimfso, F1
ConstForReading = 1
setfso = createObject ("script.filesystemoBject")
'' Use o objeto FSO para ler informações.
setf1 = fso.opentExtFile ("e: /doit/info2.txt", piquera)
'' Abra o arquivo a ser lido
Dimconn, RST
setConn = server.createObject ("adodb.connection")
'' Crie uma conexão de banco de dados e execute operações
setRst = server.createObject ("adodb.recordset")
Conn.open "Driver = {Microsoft AccessDriver (*. MDB)}; dbq =" & Server.mappath ("db1.mdb")
rst.ActiveConnection = Conn
dimfread
Dowhilenotf1.atendofstream
'' Insira dados com o loop de fazer ... loop
fret = f1.readline
linha = divisão (Fread, ":::")
rst.source = "insertIntobarcode1 (barcode1) valores (" & Trim (linha (0) e ")"
rsst.open
laço
F1.Close
Conn.Close
''''por toda parte
%>