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?