[Resolvido] Erro VBScript runtime error '800a01a8' [dese

[ThiQuinteiro 0]

Gente é o segiunte, já revirei esse código bastante, mas não estou ocnseguindo localizar a razão do erro.

já até comentei a linha apontada no erro pra ver o que aconteceria e o erro simplesmente pula para a p´roxima ocorrência do objeto "pedido" não estou conseguindo localizar a forma de fazer ele funcionar corretamente nesse trecho.

Não foi eu quem codificou esse sistema , por isso a dificuldade

 

erro

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'pedido'

 

/loja/funcoes/funcoes.asp, line 1093

 

 

---

 

pedaço do código

 

set docxml=CreateObject("microsoft.xmldom")
'Verifica se ja existe o arquivo XML da transação
existe_pedidoTemp = docxml.load(Application("DiretorioPedidos")&session("id_transacao")&".xml")
    
    'Se existir chama o arquivo
	If existe_pedidoTemp=True then
		'Atualizando idioma
linha 1093 ->		Set objAtualizaPedido = pedido.selectSingleNode("dados_pedido[@id_transacao="&FctId_transacao&"]")
		objAtualizaPedido.SetAttribute "sigla_idioma",session("varLangUser")
		objAtualizaPedido.SetAttribute "siglaidioma",session("varLangUser")	
		docxml.save(Application("DiretorioPedidos")&session("id_transacao")&".xml")	
		Set pedido=docxml.documentElement
		Set dados_pedido = pedido.SelectSingleNode("dados_pedido")

    'Se não existir, cria-se.        
	Else
		set pedido=docxml.createElement("pedido")
		docxml.appendchild(pedido)
		set dados_pedido=docxml.createElement("dados_pedido")
		pedido.appendchild(dados_pedido)
		dados_pedido.SetAttribute "siglaidioma",session("varLangUser")'requestIdioma
		dados_pedido.SetAttribute "simbolo_moeda",FctSimbolo_Moeda
		dados_pedido.SetAttribute "valor_cambio",FctValor_Cambio
		dados_pedido.SetAttribute "sigla_idioma",session("varLangUser")'requestIdioma
		dados_pedido.SetAttribute "id_transacao",FctId_transacao
		dados_pedido.SetAttribute "inicio_transacao",NOW
		dados_pedido.SetAttribute "valor_frete",0
		dados_pedido.SetAttribute "valor_subtotal",0
		dados_pedido.SetAttribute "valor_total",0

		dados_pedido.SetAttribute "peso_total",0
        dados_pedido.SetAttribute "opcao_frete",0
		dados_pedido.SetAttribute "pais_frete",""
        dados_pedido.SetAttribute "cep_frete",0
        dados_pedido.SetAttribute "forma_pagamento",0
        dados_pedido.SetAttribute "tipo_taxa_adicional",""
        dados_pedido.SetAttribute "taxa_adicional",0
        dados_pedido.SetAttribute "num_parcelas",1
		dados_pedido.SetAttribute "logado",0
		dados_pedido.SetAttribute "user_id",0
        dados_pedido.SetAttribute "ip_usado", request.ServerVariables("REMOTE_ADDR")
        dados_pedido.SetAttribute "status_pedido","pendente"
	End If

Desde já , Valeu gente

[xanburzum 169]

isso pode ser, um Object required. Um dos motivos que faz com que esse erro ocorra é tentar utilizar a propriedade ou executar uma ação em um objeto quando o mesmo ainda não foi criado. Por exemplo, caso você tentar finalizar a instância de um objeto sem ter criando: conn.Close(). Esse tipo de ação gera o erro de número 800A01A8. Antes de finalizar a instância do objeto o mesmo deve ser criado. (Set conn = Server.CreateObject("ADODB.Connection"))

 

poste a linha do code 1093

[ThiQuinteiro 0]

isso pode ser, um Object required. Um dos motivos que faz com que esse erro ocorra é tentar utilizar a propriedade ou executar uma ação em um objeto quando o mesmo ainda não foi criado. Por exemplo, caso você tentar finalizar a instância de um objeto sem ter criando: conn.Close(). Esse tipo de ação gera o erro de número 800A01A8. Antes de finalizar a instância do objeto o mesmo deve ser criado. (Set conn = Server.CreateObject("ADODB.Connection"))

 

poste a linha do code 1093

 

 

Valeu meu caro.

 

o erro era o seguinte

 

 

não sei porque razão estava esse pedaco de código no primeiro if

 

 

" Set objAtualizaPedido = pedido.selectSingleNode("dados_pedido[@id_transacao=&FctId_transacao&]")

objAtualizaPedido.SetAttribute "sigla_idioma",session("varLangUser")

objAtualizaPedido.SetAttribute "siglaidioma",session("varLangUser")

docxml.save(Application("DiretorioPedidos")&session("id_transacao")&".xml") "

 

o problema se dava quando tentava utilizar o objeto pedido

 

isso resolveu

[

set pedido=docxml.documentElement

Set dados_pedido = pedido.SelectSingleNode("dados_pedido")

]

 

Encerrado...

[xanburzum 169]

beleza...