Ciao,
dopo un pò di consulto con Optime, mi sono documentato e pian pianino sto mettendo su lo script per importare sti benedetti dati contenuti nel file TXT nel mio MDB.

Ho questo problema, il record da creare è composto da numerosi campi che quindi nel file TXT vanno a capo, pertanto se utilizzo il comando di lettura

rearline

non mi legge tutto, bensi dovrei leggere tutti i valori, che saranno messi nelle array dal cursone <EOR> al successivo <EOR> infatti i vari record sono sosì delimitati.

Ecco il codice che ho messo su....

codice:
<%
	Option Explicit
%>
<%
Dim fsoMyFile
Dim tsTextStream
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
%>