[ERRO] application.Lock

[SUPER-EDUARDO 0]

To parado no asp a algum tempo ...dai.. só jsf...

galera essa meu "global.asa" assim tá ok?

 

<script language="vbscript" runat="server"> 

sub application_onstart() 
  application("pedido_id") = 0
end sub 

</script>

pq ele ta na raiz ... tem q dar algum include ou é obrigatorio todas as funoes estarem nele?

 

o codigo é esse:

 

<%@ language = "VBscript"%>

<%
Sub sub_CriarNovoPedido

application.Lock

if application("pedido_id")= "" then 
application("pedido_id") = 1 

end if

p_pedido_id = application("pedido_id")
session("pedido_id") = p_pedido_id

application("pedido_id")=application("pedido_id") +1
application.Unlock

end sub 


Sub sub_AdicionarAoPedido(_pedido_id, _prod_id, _quant)

databaseDB.execute("insert into itens_pedido(pedido_id, prod_id, quantidade) values ("& _pedido_id &", "& _prod_id &", "& _quant &")")
 
 end sub
%>

o erro:

 

[ERRO] application.Lock

objeto n inicializado.

[xanburzum 169]

desabilite a opção de exibir mensagens de erro HTTP amigaveis , no browser, e verifique se gera algum número de erro e linha do código...

[SUPER-EDUARDO 0]

Script error detected at line 11.

Source line: application.Lock

Description: Objeto necessário: 'application'

 

 

<%@ language = "VBscript"%>

<%
Sub sub_CriarNovoPedido

application.Lock             <<<------------------------------- linha do erro

if application("pedido_id")= "" then 
application("pedido_id") = 1 

end if

p_pedido_id = application("pedido_id")
session("pedido_id") = p_pedido_id

application("pedido_id")=application("pedido_id") +1
application.Unlock

end sub 


Sub sub_AdicionarAoPedido(_pedido_id, _prod_id, _quant)

[xanburzum 169]

O IIS esta corretamente configurado ???

você esta executando ele no localhost ou no server ?

ou esta usando outro Servidor ?

[Patrique 0]

Retire o application.Lock e veja se o erro continua.

[xanburzum 169]

certifique-se de não estar abrindo duas vezes o Lock