Jump to content


Photo

[Resolvido] 'Loop' Sem 'Do' Erro


  • Faça o login para participar
2 replies to this topic

#1 Micheltr

Micheltr

    Novato no fórum

  • Usuários
  • 2 posts
  • Sexo:Não informado

Posted 05/12/2009, 00:08

eu isolei parte do codigo e descobri que o erro ocorre nos IFs eu sinalizei
Eu não consigo enxergar o erro, se alguem puder me ajudar...

o Erro é esse:
Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A040E)
'loop' sem 'do'
/ato/funcaocad.asp, line 58
loop

<%
function Loc_Sala_Reservada(iModulo,iData)
dim BD, rsUso, rsGeral
dim i,ii,x,y,cod_sala,capacidade,tot_ocupada 
dim Salas(10,4)

i = 0
ii = 0
x = 0
y = 0
capacidade = 0
tot_ocupada = 0
cod_sala = 0

		Set BD = Server.CreateObject("ADODB.Connection")
			BD.Open Application("Conexao")

'procura Salas Reservadas
 
Set rsUso = BD.Execute("select codigo,capacidade from sala where cod_modulo = '" & iModulo & "' and modulo_ativo = 1 and cod_tipo_aula = 1") 

do while not rsUso.EOF
   capacidade = rsUso("capacidade")
   cod_sala = rsUso("codigo")

   Set rsGeral = BD.Execute("select count(codigo) as Total from agendamento where data = '" & iData & "' and cancelado = 0 and cod_sala = '" & cod_sala & "' ")
   tot_ocupada = rsGeral("Total")


        x = x + 1
        y = y + 1
        
        Salas(x,y) = cod_sala
        y = y + 1
        Salas(x,y) = capacidade
        y = y + 1
        Salas(x,y) = tot_ocupada
        y = y + 1

[u][i][b]'aqui inicia o erro - O erro ocorre mesmo sem a função Cint()[/b][/i][/u]

        if Cint(tot_ocupada) = 0 then
           Salas(x,y) = 0 'vazia
           else
        if Cint(tot_ocupada) = Cint(capacidade) then
           Salas(x,y) = 1 'cheia
           else
        if Cint(tot_ocupada) < Cint(capacidade) then
           Salas(x,y) = 2 'Com Vaga
           end if 

[u][i][b]'fim do erro - tirando esse pedaço do codigo funciona normalmente[/b][/i][/u]

        Y = 0


   
rsUso.movenext
loop

Loc_Sala_Reservada = 0

  'procura sala com vaga
for i = 1 to x
    if Salas(i,4) = 2 then 'Com Vaga
       Loc_Sala_Reservada = Salas(i,1)
       iSala_Capacidade    = Salas(i,2)
       iSala_Qtde_Agendado = (Salas(i,3)-1)
       exit for
	   end if
next

if Loc_Sala_Reservada > 0 then
   exit function
   end if

for i = 1 to x 
    if Salas(i,4) = 0 then 'vazia
       Loc_Sala_Reservada = Salas(i,1)
       iSala_Capacidade    = (Salas(i,2))
       iSala_Qtde_Agendado = (Salas(i,3)-1)
       exit for
       end if
next
 
end function  
%>

Edição feita por: Renan L. Queiroz, 08/12/2009, 08:11.
Correção da tag [ codebox ] para postagem de scripts


#2 Felipe Pena

Felipe Pena

    O temor do Senhor é o princípio da sabedoria

  • Ex-Admins
  • 6441 posts
  • Sexo:Masculino

Posted 05/12/2009, 13:24

Você está usando 'else if', não devia ser 'elseif' ?
Felipe Pena
[...] ó terra, terra, terra; ouve a palavra do Senhor. — Jeremias 22:29

#3 Micheltr

Micheltr

    Novato no fórum

  • Usuários
  • 2 posts
  • Sexo:Não informado

Posted 06/12/2009, 06:57

Você está usando 'else if', não devia ser 'elseif' ?


Valeu Garoto, era isso mesmo, Deus te abençoe




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq