Olá,

 

Existe algum erro no Componente de Login abaixo?

Sendo que a parte de conexão está como se fosse advinda de um módulo, não vou criá-la no componente.

Este componente tem q retornar o IdUsuario caso Usuario e Senha estejam corretas.

Vejam:

 

Public Function Logar(strUsuario as String, strSenha as String) as Boolean

   Dim strSQL as String

   Dim objRs as new ADODB.RecordSet

 

   strSQL = "Select IdUsuario from Usuarios where Usuario = '" & Usuario _

   & "' and Senha = '" & Senha & "'"

   Set objRs = objCon.Execute(strSQL)

 

   Logar = objRs.EOF

End Function

 

E para instanciar este comp. no ASP a sintaxe está correta?
Vejam:
<%

Dim objLogar

Set objLogar = Server.CreateObject("MeuCompLogin.Logar")

'OU

%>

 

 

Grato,

 

ok!

eu tb estava esquecendo de abrir a classe:

class X

'propriedades

'métodos

'eventos

end class

 

grato

Vilmar,

 Só não se esqueça que se for utilizar esse método para validação, trate os caracteres especiais no campo de digitacao, pois se o usuário inserir uma aspa simples por exemplo, sua rotina pode falhar!! Ex:

   call Logar( "teste' or 1=1", "teste' or 1=1")

 

 

ok!

grato