Salve a tutti, sono 2 gg che sto impazzendo con questo codice per recuperare dei dati da un txt esportato da db e metterli in un db mysql (sono 6 record)

<%
Dim fsoMyFile
Dim tsTextStream, ConnLOG, SQL, RSlog
Dim sTesto, MioArray, singoloRecord, recArray, iRk

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

'Apertura del file, in lettura dati (1).
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath("tab_archivi o.txt"), 1)

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

'response.write "Contenuto del File :
" & sTesto


MioArray = Split (sTesto, vbTab, -1,1)

IF UBOUND(MioArray)<1 THEN
EXIT DO
Else
End If

Dim codcli,file,documento

codcli = MioArray(0)
documento = MioArray(1)
file = MioArray(2)

SQL = " INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' )"

SET rs=Server.CreateObject("ADODB.Recordset")
Set RS = MyConn.Execute(SQL)

Response.Write SQL

Loop

'Chiude il file.
tsTextStream.Close
%>

non mi da errore e se stampo l' sql mi da :

INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' ) INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' ) INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' ) INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' ) INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' ) INSERT INTO archivio (id, codcli,documento,file ) VALUES (NULL,'codcli', 'documento', 'file' )

il mio primo approccio array non sembra dei migliori

non riesco a valorizzare gli array pare ???

grazie