<%
dimfso, f1
Constforreading = 1
setfso = createObject ("scripting.filesystemobject")
«Используйте объект FSO для чтения информации.
setf1 = fso.opentextfile ("e: /doit/info2.txt", forreding)
'' Откройте файл для чтения
DimConn, RST
setConn = server.createObject ("adodb.connection")
'Создайте подключение к базе данных и выполните операции
setrst = server.createObject ("adodb.recordset")
conn.open "driver = {microsoft accessdriver (*. mdb)}; dbq =" & server.mappath ("db1.mdb")
rst.activeconnection = conn
dimfread
dowhilenotf1.atendofstream
'' Вставьте данные с ... петлей петли
fread = f1.readline
line = split (fread, ":::")
rst.source = "insertintobarcode1 (barcode1) значения (" & trim (line (0)) & ")"
rsst.open
петля
f1.close
Conn.close
''''повсюду
%>