Leggere i dati da un file txt e utilizzo degli array

[fabiodj]

Ragazzi ho un file di testo cosi composto:


Volpescase info@volpescase.it
Progress info@progressimmobiliare.it


Per estrarre i valori a video ed inserirli in un array utilizzo il seguente codice; però quando vado per memorizzare i dati estratti dalla lettura della riga:

linee=InStream.readline

quando vado per memorizzare i dati nell'array mi dice:

Errore di run-time di Microsoft VBScript (0x800A0009)
Indice non incluso nell'intervallo: '[number: 0]'
/leggifile.asp, line 2

Non capisco come mai eppure provando ad immetere una stringa di testo va ok .... mi aiutate ?

<% 
Dim FileObject, MioArray
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")

'LEGGO IL FILE
Set InStream = FileObject.OpenTextFile(Server.MapPath("agenzie.txt"),1,False,False)

do while not InStream.AtEndOfStream


'Se utilizzo questo variabile mi da errore:
linee=InStream.readline 


'provando con la stringa di seguito funziona
linee="Progress info@progress.it" 


MioArray = Split (linee," ", -1, 1) 
nome = MioArray(0) 
email = MioArray(1)
Response.Write nome &" - " & email &"
"
loop

InStream.Close
Set InStream=Nothing
Set FileObject = Nothing

%>

[fabiodj]

Problema risolto, il cursore nel file di testo andava oltre ...