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