<％
dimfso、f1
constforreading = 1
setFSO = createObject（ "Scripting.filesystemObject"）
'' FSOオブジェクトを使用して情報を読み取ります。
setf1 = fso.opentextfile（ "e：/doit/info2.txt"、forreading）
''読み取るファイルを開きます
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
dowhileenotf1.atendofStream
'' do ...ループループでデータを挿入します
fread = f1.readline
line = split（fread、 ":::"）
rst.source = "InsertIntobarCode1（barcode1）values（"＆trim（line（0））＆ "）"
rsst.open
ループ
f1.close
conn.close
''''いたるところ
％>