Non fa il ciclo dei recordset

[sanny82]

Ciao a tutti ho un problema...

Ho un recordset dove sono contenuti dei txt, e all'interno del ciclo dei txt ho la funzione che mi và a leggere nel txt se c'è la parola che io cerco, ma il problema è che non mi fa il ciclo dei txt e io ne ho più di uno...

Il codice è questo...

			

Do while not rsDocumentazionePdf.eof
		
pdf_txt=rsDocumentazionePdf("pdf_txt")
			
			
'FUNZIONE PER CERCARE ALL'INTERNO DEI FILE TXT LA PAROLA CERCATA								
Dim FileObjectDoc 
Set FileObjectDoc=Server.CreateObject("Scripting.FileSystemObject") 
PathFile=(Server.MapPath("cgi-bin/documentazione_pdf/"& pdf_txt))
						
'CONTROLO SE IL FILE ESISTE
if FileObjectDoc.FileExists(PathFile) then

'LEGGO IL FILE 
Set InStream=FileObjectDoc.OpenTextFile(Server.MapPath("cgi-bin/documentazione_pdf/"& pdf_txt),1,False,False) 
			
s ="" 
			
			
'SCORRO IL FILE PER RIGHE
do while not InStream.AtEndOfStream
			
'leggi la riga 
s= InStream.readline
				
  'CONTROLO SE TROVO LA PAROLA NELLA RIGA
  if InStr(s,cercaparola) > 0 then 
  'SE TROVO RESTITUISCO L'ID DEL TXT
    id_txt=rsDocumentazionePdf("id")
  end if 
			
loop

InStream.Close 
Set InStream=Nothing 

end if
			
Set FileObjectDoc=Nothing 

rsDocumentazionePdf.movenext
loop

ho scoperto che se tolgo la funzione InStr il ciclo funziona...

Perchè? ci sono altri metodi?

Grazie mille

[optime]

hai per caso la "on error" attivata? e comunque, spiega meglio il problema

[sanny82]

In poche parole non mi cicla i txt...

Legge il primo, controlla se c'è la parola da ricercare con la funzione

if InStr(s,cercaparola) > 0 then

e dopo il primo txt termina il ciclo, non facendo il controllo della pèarola negli altri txt...

Invece se levo questo parte del codice:

'CONTROLO SE TROVO LA PAROLA NELLA RIGA
  if InStr(s,cercaparola) > 0 then 
  'SE TROVO RESTITUISCO L'ID DEL TXT
    id_txt=rsDocumentazionePdf("id")
  end if

mi fa il ciclo dei txt, ma ovviamente non controlla al suo interno se c'è la parola che io sto cercando...

Cosa può essere?

[optime]

quello che hai postato e' tutto il codice del ciclo? o c'e' qualcos'altro?

[sanny82]

c'è qualcos'altro...

ma se tolgo quel pezzo di codice funziona...

[optime]

anche se ti tagli un braccio l'unghia spezzata smette di farti male...


posta "il resto" che sta "dentro" al ciclo. l'errore e' li'.

[sanny82]

hai ragione...

ho trovato l'errore nel proseguimanto del codice aprivo un altro recordset con lo stesso nome... era quello l'errore che mi troncava il ciclo.

Grazie mille per l'aiuto

[optime]

optime!