nao sei a sintaxe do loop p repetir a bu

[erikagrigorevski 0]

Oi pessoalTenho uma aplicacao que usa o filesystemobject p ler uns arquivos HTMS de uma determinada pasta, e ai uso o mid e o instr p cortar o que interessa e inserir no BD.Todos os arquivos tem o mesmo formato. So que tem um detalhe: No final do arquivo existe uma tabelinha com andamentos do processo e cada arquivo pode ter 1,nenhum, 10 andamentos.teria q dar um loop nessa parte do codigo p que ele continuasse a verificar todas as ocorrencias dos marcadores q setei: Da uma olhada na parte do codigo q tem q fazer loop e ve se pode me dizer qual a sintaxe do loop q uso:****************************** '******************setando a tabelinha numa variável pos1= instr(texto_arquivo,"Complemento do Despacho") pos2 = instr(texto_arquivo," <BR>Dados atualizados até ") tabelinha = mid(texto_arquivo,pos1,(pos2-pos1)) '************************************** 'deve comecar o loop pos1 = instr(tabelinha,"<TD align=middle width=62>") pos2 = instr(tabelinha,"<TD align=middle width=65>") rpi = trim(mid(tabelinha,pos1+46,4)) ' response.write rpi 'data da rpi pos1 = instr(tabelinha,"<TD align=middle width=65>") pos2 = instr(tabelinha,"<TD align=middle width=74>") pos3 = pos2-64 data_rpi = trim(mid(tabelinha,pos1+46,(pos3-pos1))) 'response.write data_rpi 'DESPACHO pos1= instr(tabelinha,"<TD align=left bgColor=#ffffff>") pos2 = instr(tabelinha,"<HR align=center color=#b5d6ad SIZE=2") despacho = mid(tabelinha,pos1+86,3) 'response.write despacho termina o loop.sei q tem algo a ver com AtEndOfStream mais nao consigo fazer a sintaxealguem me ajuda????

[rOcKLoCo 0]

<%Set fs = Server.CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(NovoArquivo, 1)  iLinha = 0  do While f.AtEndOfStream = False.......................................comandos....  Loop f.Close Set f = NothingSet fs = Nothing  %>

[erikagrigorevski 0]

<%Set fs = Server.CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(NovoArquivo, 1)  iLinha = 0  do While f.AtEndOfStream = False.......................................comandos....  Loop f.Close Set f = NothingSet fs = Nothing   %>

Ja tentei fazer isso, mais da esse erroErro de tempo de execução do Microsoft VBScript error '800a01a8' Objeto necessário: '' /IISSamples/Default/pesquisa.asp, line 177

[rOcKLoCo 0]

monta o codigo novamente e nos mostre...e fale qual é a linha do ERRO!!falows