ERRO que esta travando o servidor WEB

[fabiosc80 0]

Pessoal tenho uma pagina de atualizar (na verdade sao 5 páginas de atualizar na sequencia) que quando vou fazer o ultimo atualizar esta dando um erro que esta travando o servidor web no datacenter.

 

Não sei mais oque testar.

Alias nem os caras do datacenter sabem oque é.

 

Vejam o erro que esta dando:

 

Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01FB)Exceção: 'Execute'/portal---o/assinatura_cartao_atualiza.asp, line 56

Se alguem puder me ajudar e tiver alguma ideia do que é isso eu agradeço em muito.

 

Estou postando o código da página tambem para ajudar se alguem quiser ver.

 

Obrigado desde já

 

<!--#include file="conexao.asp"--><%cartao = Server.HtmlEncode(request.form("cartao"))numero_cartao = Server.HtmlEncode(request.form("numero_cartao"))codigo_seguranca = Server.HtmlEncode(request.form("codigo_seguranca"))nome_nocartao = Server.HtmlEncode(request.form("nome_nocartao"))mm = Server.HtmlEncode(request.form("mm"))aa = Server.HtmlEncode(request.form("aa"))forma_pagamento = "cartão de crédito"if cartao = empty thenresponse.write "<center>Voce não selecionou o tipo de Cartão, por favor volte e selecione.<br>"response.write "<a href=java script:window.history.go(-1)>Voltar</a></center>"response.endend ifif numero_cartao = empty thenresponse.write "<center>Voce não preencheu o Número do Cartão, por favor volte e preencha.<br>"response.write "<a href=java script:window.history.go(-1)>Voltar</a></center>"response.endend ifif nome_nocartao = empty thenresponse.write "<center>Voce não preencheu o Nome impresso no Cartão , por favor volte e preencha.<br>"response.write "<a href=java script:window.history.go(-1)>Voltar</a></center>"response.endend ifif mm = empty or aa = empty thenresponse.write "<center>Voce não preencheu a Data de Validade do Cartão, por favor volte e preencha.<br>"response.write "<a href=java script:window.history.go(-1)>Voltar</a></center>"response.endend ifforma_pagamento = "cartão de crédito"AbrebancoDim BC, SQ1BSQ1B = "UPDATE tba_pagamento SET "SQ1B = SQ1B & "pp_forma_pagamento = '" & forma_pagamento & "',"SQ1B = SQ1B & "pp_cartao = '" & cartao & "',"SQ1B = SQ1B & "pp_numero_cartao = '" & numero_cartao & "',"SQ1B = SQ1B & "codigo_seguranca = '" & codigo_seguranca & "',"SQ1B = SQ1B & "pp_nome_nocartao = '" & nome_nocartao & "',"SQ1B = SQ1B & "pp_validademm = '" & mm & "',"SQ1B = SQ1B & "pp_validadeaa = '" & aa & "'"SQ1B = SQ1B & " WHERE pp_cod_cliente = " & session("PP_Cod")'response.write SQ1B'response.endSet TB = BC.Execute(SQ1B)response.redirect "obrigado_atual.asp"%>

[ultra 0]

É quase certeza q se trata de um erro de SQL.... algo na sua string não está funcionando corretamente, e faz o SQL tentar executar uma ação que entra em um LOOPMostra pragente oque aquele response.write SQ1B imprimiu na sua tela.... e verifica se essa ação é válida (WHERE pp_cod_cliente = " & session("PP_Cod"))

[fabiosc80 0]

Desculpe a demora Ultra, mas travou aqui....

 

veja oque veio no SQL:

 

 

UPDATE tba_pagamento SET pp_forma_pagamento = 'cartão de crédito',pp_cartao = 'visa',pp_numero_cartao = '553543',codigo_seguranca = '441',pp_nome_nocartao = 'Luiz da Silva',pp_validademm = '05',pp_validadeaa = '20' WHERE pp_cod_cliente = 193

Quer ver uma imagem dos campos da tabela tambem ultra?

Ajudaria ?

Não sei oque é.

[Prog 183]

Não é apresentado erro em nenhum outro UPDATE deste sistema?

O banco de dados é em MySQL?

[fabiosc80 0]

Nos outros updates não apresentam nenhum erro. Só nesse mesmo, por isso estou axhando estranho pois isso nunca me aconteceu antes.O banco de dados é Access.

[Prog 183]

fabio... você tem o costume de fechar suas conexões?

 

Por exemplo, nesta página, vejo que você inicializa <!--#include file="conexao.asp"-->, mas não vejo você fechar a conexão, isto pode estar influenciando, não por causa desta página especificamente, mas por causa das anteriores.

 

Tente fechar sua conexão nas páginas anteiores para verificar seu o problema é resolvido ou a mensagem alterada.

 

Outra coisa...

BC é seu objeto de conexão?

você não precisa "Setar" uma variavel para realizar um UPDATE, troque a linha:

Set TB = BC.Execute(SQ1B)

por

BC.Execute(SQ1B)

 

Veja ai no que essas alterações influenciam.

[ultra 0]

você disse q outros UPDATES funcionam normalmente........ experimenta copiar o código que foi imprimido da sua UPDATE, e cola em outra página onde o UPDATE funciona (copia igualzinho)Se não travar, o problema é no ASP.... daí teremos q conferir teu include

[fabiosc80 0]

Prog eu ja timnha pensado nisso antes de as conexoes anteriores estarem abertas, ai fechei e nao funcionou e sobre setar o BC ja esta.Nessa linha:Set TB = BC.Execute(SQ1B)esta igual as outras paginas anteriores que estao atualizando.Veja uma delas.

Dim SQ1CSQ1C = "UPDATE tba_pp_plano SET "SQ1C = SQ1C & "pp_plano_explicita = " & int(Plano_explicita)& ","SQ1C = SQ1C & "pp_plano_icaro = " & int(Plano_icaro) & ","SQ1C = SQ1C & "pp_plano_erotika = " & int(Plano_erotika) & ","SQ1C = SQ1C & "pp_plano_pp = " & 0 & ","SQ1C = SQ1C & "pp_plano_assinatura = '" & valor & "',"SQ1C = SQ1C & "pp_periodo = '" & periodoppc & "'"SQ1C = SQ1C & " WHERE pp_cod_cliente = " & session("PP_Cod")Set TB = BC.Execute(SQ1C)

Viu só?E Agora?

fabio... você tem o costume de fechar suas conexões?Por exemplo, nesta página, vejo que você inicializa <!--#include file="conexao.asp"-->, mas não vejo você fechar a conexão, isto pode estar influenciando, não por causa desta página especificamente, mas por causa das anteriores.Tente fechar sua conexão nas páginas anteiores para verificar seu o problema é resolvido ou a mensagem alterada.Outra coisa...BC é seu objeto de conexão?você não precisa "Setar" uma variavel para realizar um UPDATE, troque a linha:Set TB = BC.Execute(SQ1B)porBC.Execute(SQ1B)Veja ai no que essas alterações influenciam.

[Prog 183]

Hmmmm...

Era realmente apenas uma tentativa, como eu não sabia se tinhas "experimentado", tinha que chutar que não havia testado as possibilidades.

 

Bixo... é muito estranho, não há um justificativa aparente.

 

Você tem mais de uma conexão no seu arquivo conexao.asp?

[fabiosc80 0]

Não,no arquivo "CONEXÃO.ASP" só tem uma funçao de abertura de banco e outra de fechar.

[arr 0]

Dim BC, SQ1B ' Aqui voce declara a variável BC

SQ1B = "UPDATE tba_pagamento SET "

SQ1B = SQ1B & "pp_forma_pagamento = '" & forma_pagamento & "',"

SQ1B = SQ1B & "pp_cartao = '" & cartao & "',"

SQ1B = SQ1B & "pp_numero_cartao = '" & numero_cartao & "',"

SQ1B = SQ1B & "codigo_seguranca = '" & codigo_seguranca & "',"

SQ1B = SQ1B & "pp_nome_nocartao = '" & nome_nocartao & "',"

SQ1B = SQ1B & "pp_validademm = '" & mm & "',"

SQ1B = SQ1B & "pp_validadeaa = '" & aa & "'"

SQ1B = SQ1B & " WHERE pp_cod_cliente = " & session("PP_Cod")

 

'response.write SQ1B

'response.end

 

Set TB = BC.Execute(SQ1B) 'Aqui você chama o objeto BC mas não setou nenhum valor para ele ainda

[fabiosc80 0]

Arr eu estou setando pois antes de tudo la em cima eu estou trazendo o valor dele através da variavel: "AbreBanco" que esta no arquivo "conexao.asp" entendeu?

[Prog 183]

fabio...

 

Verifique esta falha, depois verifique, junto ao seu provedor de serviços, a versão das aplicações em uso. Pode ser que a sua aplicação ASP esteja "esbarrando" neste problema.

 

http://support.microsoft.com/kb/262681/en-...n-us&sd=gn&fr=0

[fabiosc80 0]

Sim Prog mas se fosse por causa do bug nenhum update iria funcionar e nesse caso só esse não funciona, não é?

[Prog 183]

Não sei. :)

 

Acho melhor verificar as versões com o seu provedor de serviço, se as versões do seu provedor forem iguais as que o bug existe, acho interessante considerar que seja uma possibilidade muito grande.

 

APPLIES TO

• Microsoft Active Server Pages 4.0

• Microsoft ActiveX Data Objects 2.5

• Microsoft Internet Information Services 5.0

[ultra 0]

fabiosc80 já experimentou o update em outra página ?

[fabiosc80 0]

a versao do iis é a 6.0.E os updates das outras paginas estao funcionando pois testei agora.OQue faço entao? Renomeio a pagina?

[Prog 183]

Pode mostrar o seu código do arquivo conexao.asp ?

Acho que o post do arr resolve a questão.

[ultra 0]

você disse q outros UPDATES funcionam normalmente........ experimenta copiar o código que foi imprimido da sua UPDATE, e cola em outra página onde o UPDATE funciona (copia igualzinho)Se não travar, o problema é no ASP.... daí teremos q conferir teu include

[fabiosc80 0]

Ultra vou testar.Desculpem o sumisso mas parou acabou a energia aqui.