Erro de componente

[Mozart Delano 0]

Olá amigos do iMasters...

 

Estou com um baita problema em um código em ASP,

o Problema é o siguinte:

 

o site é este: http://www.legus.eti.br/

 

quando o cliente vai fazer o login dá esse erro:

 

Objeto Server erro 'ASP 0177 : 800401f3'

 

Falha em Server.CreateObject

 

/legus_restrito.asp, line 6

 

ProgID inválido. Para obter informações adicionais específicas sobre esta mensagem, visite o site Microsoft Online Support localizado em: http://www.microsoft.com/contentredirect.asp (site em inglês).

 

o códogo é esse:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.ExpiresAbsolute = Now()

if Request.Form("login") <> "" and Request.Form("password") <> "" Then
	Set ob = Server.CreateObject("Proj_Legus.Legus")   --------  linha 6
	if ob.check_user(Request.Form("login"), Request.Form("password")) then

		Session("MM_UserNivel") = ob.vNivel
		Session("MM_idusuarios") = ob.vIdusuarios
		Session("MM_UserName") = Request.Form("login")
		Select Case Session("MM_UserNivel")
			Case 1 
				Session("NV_Titulo") = " Administração"
				Session("pagina") = "/admin/admin.asp"
				Response.Redirect("/admin/admin_frame.asp")
			Case 2 
				Session("NV_Titulo") = " Agentes"
				Session("pagina") = "/admin/agentes.asp"
				Response.Redirect("/admin/admin_frame.asp")
			Case 3 
				Session("NV_Titulo") = " Operadores"
				Session("pagina") = "/admin/operadores.asp"
				Response.Redirect("/admin/admin_frame.asp")
		End Select
	Else
		ob.GravaLog  Request.Form("login"), Request.ServerVariables("REMOTE_ADDR"), "Acesso negado - Password: " & Request.Form("password")
	End If		
End if

if request.Cookies("LegIniciado") = "Yes" then
	Set ob = Server.CreateObject("Proj_Legus.Legus")
	ob.GravaLog Session("MM_Username"), Request.ServerVariables("REMOTE_ADDR"), "Detectada saída irregular do sistema"
end if

'CHECK DO NAVEGADOR DO USUÁRIO
Dim BC
Dim ValidBrowser
set BC = server.CreateObject("MSWC.BrowserType")
ValidBrowser = false
if BC.javascript and BC.vbscript and BC.cookies then
	ValidBrowser = true
end if

%>

Gostaria de entender esse erro, e saber como resolver o problema. Entendo muito pouco de ASP,

Sei que o problema é um componente que não tem no servidor, queria saber como identificar esse

componente.

 

obrigado pela atenção

[hokara 0]

amigo este aqui esta em portugues

 

http://support.microsoft.com/search/defaul...log=LCID%3D1046

[Loko da Web 1]

Esse componente nao existe

 

Set ob = Server.CreateObject("Proj_Legus.Legus")

Ele esta com o nome do teu site Legus... Daonde você tirou esse cod ????

[Mozart Delano 0]

Cara, esse código foi criado pelos antigos desenvolvedores do site, ja

não tenho contato com eles.

 

Se você me der uma luz, alguma pergnta que devo fazer a eles sobre

esse componete, algum dado que esteija faltando, tento entrar em

contato com eles, por entermeio do meu cliente, para isso!

[Loko da Web 1]

Cara, esse código foi criado pelos antigos desenvolvedores do site, ja

não tenho contato com eles.

 

Se você me der uma luz, alguma pergnta que devo fazer a eles sobre

esse componete, algum dado que esteija faltando, tento entrar em

contato com eles, por entermeio do meu cliente, para isso!

Uma coisa, se nao foi você que desenvolveu esse cod e foi outro programador, ve se ja funcionava quando eles estavam operando. Pergunta qual o fundamento do componente e fala pq esta imprimindo o erro.

[xanburzum 169]

Não existe o objeto Proj_Legus.Legus, provavelmente o antigo desenvolvedor , criou este compoenete, verifique no host, se não tem nada sobre essa DLL, caso contrario, entre em contato com o mesmo,pelo código, o desenvolvedor, criou um componente que faz a conexão,consulta e inserção no bd. Procure na net que existe vários códigos e artigos sobre “asp criar componente para acesso e gravação no banco de dados”

[Mozart Delano 0]

Vou entrar em contato com os antigos desenvolvedores amanhã mesmo

para saber os dados nescessários.

 

Entro em contato assim que obtiver resposta!

 

Obrigado pela força!!!