While dentro de um if

[zeke_ 2]

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.

[Vinicius Ianni 189]

Você abre um if logo no começo do script postado e não o fecha

ou falta um loop no final do while

Por exemplo:

 

if not <condição> then
        do while not RS.eof
	<faça algo>
       RS.MoveNext
    loop
end if