<%
Dimfso, F1
Constforreading = 1
setFSO = createObject ("Scripting.FilesystemObject")
'' Gunakan objek FSO untuk membaca informasi.
setf1 = fso.opentextFile ("e: /doit/info2.txt", forreading)
'' Buka file yang akan dibaca
Dimconn, Rst
setConn = server.CreateObject ("adodb.connection")
'' Buat koneksi database dan lakukan operasi
setRST = server.CreateObject ("adodb.recordset")
conn.open "driver = {microsoft accessDriver (*. mdb)}; dbq =" & server.mappath ("db1.mdb")
rst.activeConnection = Conn
Dimfread
dowhilenotf1.atendofstream
'' Masukkan data dengan do ... loop loop
fread = f1.readline
line = split (fread, ":::")
rst.source = "InsertIntobarcode1 (Barcode1) nilai (" & trim (baris (0)) & ")"
rsst.open
lingkaran
f1.close
Conn.Close
'' '' Allover
%>