Erro no While não consigo resolver

[filipescoob 1]

Bom salve mais uma vez galerao que esta acontecendo agora é o seguinteestou com uma problema com este trecho de codigo<!--#include file="conectstringcoa.asp"--><%rs = Server.CreateObject("adodb.Recordset")SQL = "Select * from tbl_pasta"rs = conexao.execute(sql)while not rs.eof do if rs.bof = true thenresponse.redirect ("cad_arq.asp?erro=zerado")end ifrs.movenextWend%>ele diz que falta a instrução Wend mas ela esta la o que posso fazer ????Erro :Tipo de erro:Erro de compilação do Microsoft VBScript (0x800A0400)Instrução esperada/coa/cad_arq.asp, line 30Wendconteudo da Linha 30 : Wend

[saloeric 1]

faça assim

 

rs = Server.CreateObject("adodb.Recordset")SQL = "Select * from tbl_pasta"rs = conexao.execute(sql)if rs.bof = true thenresponse.redirect ("cad_arq.asp?erro=zerado")elsewhile not rs.eof do kualker coisars.movenextWendend if