eh para quem quer que funcione aqueles logins que diferencie maiúsculas de minúsculas.... muito legal e funciona...
a função foi feita através do ASCI, no ASP(ASC) que retorna o n° do caractere.
FUNÇÃO:
Function Compara(Texto1, Texto2) Vale = Len(Texto1) = Len(Texto2) If Vale Then For i = 1 To Len(Texto1) Vale = Asc(Mid(Texto1,i,1)) = Asc(Mid(Texto2,i,1)) If Not Vale Then Exit For Next End If Compara = Vale End Function
NO CÓDIGO:
SQL = "SELECT * FROM tanbela WHERE coluna = '" & usuario & "' AND senha = '" & senha & "'"
RS.open SQL,conn,3,3
If not rs.eof then
if compara(rs("usuario"),tiraplic(usuario))=true AND compara(rs("senha"),tiraplic(senha))=true then
'AKI LOGA
else
'AKI NAUM LOGA SE ESTIVER ERRADO QUANTO ÀO N° DO CARÁCTER ASCI...
end if
Else
'AKI NAUM LOGA SE NAUM EXISTIR OS NOMES NO BD
end if
ISSO VAI AJUDAR MUITAS PESSOAS AI....
Edição feita por: K I L L I N G, 07/03/2004, 16:00.
