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
