Ehm, ho un problema! Il seguente codice viene richiamato da Flash: il suo scopo molto semplice DOVREBBE essere quello di aprire un file .txt , leggere le prime tre righe, ficcarle in tre variabili chiamate riga(1), riga(2) e riga(3) e quindi rilasciare a Flash le tre variabili sottoforma di 3 variabili chiamate not1, not2 e not3. Ovviamente non funziona... Sapete dirmi quali sono gli errori??
<%
' Dichiaro le variabili che utilizzerò...
Dim StrFile, StrLinea, FileObject, InStream, riga(100)
' Vediamo quale è il doc da aprire...
StrFile = Server.MapPath("news1.txt")
' Creo l'oggetto...
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
'Apro in lettura...
Set InStream = FileObject.OpenTextFile(StrFile,1,true)
' Leggo le prime tre righe e le memorizzo nelle variabili riga(1), riga(2) e riga(3)
' NOTA: PROBABILMENTE C'E' QUI UN ERRORE!
FOR xxx = 1 TO 3 STEP 1
riga(xxx) = InStream.ReadLine()
NEXT
' Chiudiamo la lettura:
InStream.Close
Set InStream = Nothing
Set FileObject = Nothing
' Infine, inviamo a Flash le tre stringhe riga(1), riga(2) e riga(3):
' N.B: a Flash interessano le variabili-stringa not1, not2 e not3
Response.Write("not1="&riga(1))
Response.Write("not2="&riga(2))
Response.Write("not3="&riga(3))
%>
Rispondi quotando
