Select com e-mail

[Silvio luis]

Boa noite

tenho a seguinte situação

tabela login

id

nome

login

senha

no campo login temos cadastrado o e-mail tipo: silvio.luiz@wmail.com.br

senha: 123456

na hora de fazer o select do login, eu quero que a pessoa informe o que estiver antes do @ ex: silvio.luiz

mas não estou conseguindo fazer a autenticação, pois la na tabela esta sendo guardado o email completo.

alguém sabe se o que eu quero fazer é possivel?

se não fui claro na explicação tambem é só dizer!!! rssss

Silvio Luiz

[lobismano]

e ai beleza.

Use o "InStr" para identificar a posição da @ e depois o "Mid" para pegar o valor inicial até a @.

at.

[Silvio luis]

bom dia,

vamos ao código:

select login, nome, senha from login where senha = 'senha' and InStr(login = 'login') ???

você citou o mid, mas para trabalhar com mid, não teria que trabalhar com fixos tio mid,2,4?

ai se o camarada tiver eu@meudominio.com.br ou nomegrande@eu.com.br

acredito que daria problema, mas isso é a minha visão!!!! rsss

Silvio

[rodrigotnoma]

Seguinte:

<%

'***************** Faço o request do campo digitado

login = request("login")

'*****************Utilizo o x para controlar o WHILE****************

x = 0

'***************** Efetuo um select em todos os registros

sql = "select * from loginteste"

Set rsaux = objConn.Execute(sql)

'**************** Para cada registro, pego o que estiver antes do @ e jogo para a variavel nome.

do while not rsaux.EOF

nome = mid(rsaux("login"),1,(instr(rsaux("login"),"@")-1))

'**************** Se o que foi digitado for igual a string que vem antes do @

if login = nome then

'***************Incremento o x

x = x + 1

end if

rsaux.movenext

loop

'************** Se x=1 significa que encontrou algum registro na base que é idêntico

'************** ao que foi digitado.

if x = 1 then

'************** Redireciono para a página seguinte

response.redirect "paginacerta.asp"

else

'************** Redireciono para a página de erro

response.redirect "paginaerrada.asp"

end if

set rsaux = nothing

Set objConn = nothing

%>

Abços

[lobismano]

E ai beleza.

<%

login = "seu.nome@gmail.com"

PosicaoDaArroba = inStr(login,"@")

ValorAntesDaArroba = Mid(login,1,PosicaoDaArroba-1)

response.write PosicaoDaArroba & "<p>"

response.write ValorAntesDaArroba

At.

%>