testo1 non è letto da db ma letto da un file txt.
Con la variazione sopra indicata il problema resta lo stesso.
Posto di seguito il codice completo:
codice:
ilfile=server.mappath("a capo.txt")
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)
counter=0
do while not ilfile.AtEndOfStream
counter=counter+1
illine=illine & " " & ilfile.readline
loop
ilfile.Close
set ilfile=nothing
set file=nothing
Dim righe(100000)
testo1 = replace(illine," ","
")
testo = CStr(testo1)
righe = Split(testo1,"
")
for i = 0 to Ubound(righe)
if righe(i) = "%@%" then
Response.Write(righe(i))
end if
next
dove sta l'errore?