While - Erro q eu nunca vi

[HelderRios 0]

Olá feras,Seguinte, tenho q fazer uma comparação de uma variável e um campo no meu bd dentro de um laço:while not rs.eofTipo = rs("Tipo")response.write Tipowhile Tipo = rs("Tipo")'O erro está aqui Codigo = rs("CodAssunto")Assunto = rs("Assunto")response.write Assuntors.movenextwendwendEle roda belezinha, só q aparece essa mensagem:error '80020009' Exception occurred. O erro acontece bem na linha de comparação.O q pode estar acontecendo?Valeu

[wallace20 0]

não teria que haver um outro movenext depois do primeiro wend?

[mebkocznski 0]

Cara Simplifica

Do Until rs.EofTipo = Rs("Tipo")Response.Write Tipo  Do until Tipo <> Rs("Tipo")  If RsTipo.eof then exit Do  Codigo = rs("CodAssunto")  Assunto = rs("Assunto")  response.write Assunto  rs.movenext  LoopRs.MovenextLoop