While dentro de um if

Galera, faz muitos anos que não posto nada aqui, mas agora me apareceu uma coisa simples (a principio) mas que não estou conseguindo fazer, por isso venho aqui solicitar ajuda de vocês!

<%
'parametro principal.
view_professores = "1"

if view_professores = "1" then

Dim rsProfessores
Dim rsProfessores_cmd
Dim rsProfessores_numRows

sql_prof = "SELECT * FROM ava_pessoas INNER JOIN ava_disciplinas ON ava_pessoas.disciplina = ava_disciplinas.codi_disciplina WHERE codi_grupo = 1 AND codi_escola = 2 AND codi_turma =3 ORDER BY nome_pessoa ASC "

Set rsProfessores_cmd = Server.CreateObject ("ADODB.Command")
rsProfessores_cmd.ActiveConnection = MM_cn_STRING
rsProfessores_cmd.CommandText = sql_prof
rsProfessores_cmd.Prepared = true
rsProfessores_cmd.Parameters.Append rsProfessores_cmd.CreateParameter("param1", 5, 1, -1, rsProfessores__MMColParam) ' adDouble

Set rsProfessores = rsProfessores_cmd.Execute
rsProfessores_numRows = 0

while not rsProfessores.eof

nome_professor = (rsProfessores.Fields.Item("nome_pessoa").Value)
disciplina = (rsProfessores.Fields.Item("desc_disciplina").Value)
codi_professor = (rsProfessores.Fields.Item("codi_pessoa").Value)

end if

%>

<h2><%= codi_professor%> - <%= nome_professor %> - <%=disciplina %></h2>
<%
if view_professores = "1" then
rsProfessores.movenext() : wend

rsProfessores.Close()
Set rsProfessores = Nothing
end if
%>

Erro:

Instrução esperada

/avai/questoes_professores.asp, linha 45

end if

^

se eu removo o while ou o If funciona perfeitamente.

No Aguardo.