codice:
 <%
	Option Explicit
%>
<%
Dim fsoMyFile
Dim tsTextStream, ConnLOG, SQL, RSlog
Dim sTesto, MioArray, CALLS, QSO_DATE, TIME_ON, RST_SENT

'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

'Apertura del file, in lettura dati (1).
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("/public/iz7auh.adi"), 1)

do while not tsTextStream.AtEndOfStream
'Legge tutto il contenuto di un file.
sTesto = tsTextStream.Readall

'response.write "Contenuto del File : 
 " & sTesto
MioArray = Split (sTesto," ", -1, 1) 
CALLS = MioArray(0) 
QSO_DATE = MioArray(1)
TIME_ON = MioArray(2)
RST_SENT = MioArray(3)

Set ConnLOG = Server.CreateObject("ADODB.Connection")

				ConnLOG.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\inetpub\webs\iz7auhcom\mdb-database\test.mdb"

				SQL = " INSERT INTO [QSO-TAB]  ([QSO-DATE], [QSO-TIME], [QSO-CALL], [QSO-RSTS] ) VALUES ('"& QSO_DATE &"', '"& TIME_ON &"', '"& CALLS &"', '"& RST_SENT &"' )"
				Response.Write SQL
				Set RSlog = ConnLOG.Execute(SQL)

loop


'Chiude il file.
tsTextStream.Close
%>