[Resolvido] Microsoft VBScript runtime (0x800A01B6)

[Jefferson Mendes 0]

Boa Tarde,

 

Criei um objeto chamado objCript e em seguida faço uma condição (IF) p/ ver se tem algum valor nesse objeto cripto, se não tiver valor ele vai p/ uma pagina de erro.

 

ver o código criado:

Set objCript = Server.CreateObject("Cripto.Cript") 
	 
	
		if not objCript then
	 Session("Componente") = "Cripto"
	 Session("Funcionalidade") = "Criptografia"
		 response.redirect("ErroComponente.aspx?ERRO=1")
		end if

Porem quando entra na 1ª linha do IF já aparece esse erro:

 

Error Type:

Microsoft VBScript runtime (0x800A01B6)

Object doesn't support this property or method

 

Alguem sabe o que faz ocorrer essa mensagem e como solucionar?

 

Obrigado.

[Jefferson Mendes 0]

Resolvi o problema, foi so incluir o "IS Nothing" e ficou assim: if objCript IS Nothing then