Object variable or With block variable not set

[Arrivabene 0]

Pessoal, estou usando o seguinte código abaixo e ocorre este erro, na linha 24, andei dando uma vasculhada aqui no fórum e antes deste problema estava ocorrendo o problema conforme o post criado no

http://www.imasters.com.br/forum/lofiversi...hp/t184613.html

 

Segue abaixo o meu problema atual: Alguém aí pode me ajudar?

 

Informações técnicas (para a equipe de suporte)

 

Tipo de erro:

B2BiSLocker (0x800A005B)

Object variable or With block variable not set

/locker/instal.asp, line 24

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50215; .NET CLR 2.0.50727)

 

Página:

POST 64 bytes to /locker/instal.asp

 

POST Data:

pUsuarioWCM=administrador&pSenhaWCM=12345678&btnSalvar=Pr%F3ximo

 

 

<%@ Language=VBScript %>

<%

option explicit

 

Dim blnSubmetido

Dim UsuarioWCM

Dim SenhaWCM

Dim blnInstal

Dim msg

Dim objCM

Dim blnVerReinst

Dim objReinst

Dim blnStatusReinst

 

blnSubmetido = request("pSubmetido")

 

if blnSubmetido then

 

UsuarioWCM = request("pUsuarioWCM")

SenhaWCM = request("pSenhaWCM")

 

set objCM = Server.CreateObject("B2BiSLocker.Instalar")

 

blnInstal = objCM.Init(CStr(UsuarioWCM),CStr(SenhaWCM))

 

blnStatusReinst = objCM.verReinstal()

 

set objCM = nothing

 

if blnStatusReinst then

 

Response.Redirect("index.asp")

 

else

 

if blnInstal then

 

Response.Redirect("instal1.asp")

 

else

 

msg = "Erro na autenticação."

 

end if

 

end if

 

end if

 

%>

[jothaz 1]

Despois:

 

set objCM = Server.CreateObject("B2BiSLocker.Instalar")

Coloque:

set objCM = Server.CreateObject("B2BiSLocker.Instalar")if err.number > 0 then   response.write err.number & "  - " & err.description.

 

Pois talvea possa esta mascarando o erro.

 

t+