1 reply to this topic

[satoshy]

bom dia a todos

sou novo no forum, e espero tirar minhas duvidas por aqui !

analisem esse codigo :

<%Dim c,r
Set c = Server.CreateObject("ADODB.Connection") 
Set r = Server.CreateObject("ADODB.RecordSet") 
c.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&Server.Mappath("Database1.accdb")&";" 
c.Open  
r.Open "Select * from Tabela1 where Usuario='"&request.form("t1")&"'", c
If r.EOF then
Response.Write "usuario ou senha invalidos"
else
	If request.form("p1") = r("Senha") then
	Response.Write "Bem - vindo" & " " & r("Nome") & " " & "!"
	else
	Response.Write "ainda n"
	end if	
end if

r.close
c.close
set c = nothing
set r = nothing
%>

estou fazendo uma confirmação de cadastro ...

mas no codigo acima, quando o usuario digita o login errado(ou senha certa/errada) aparece "usuario ou senha invalidos", se o usuario digitar o login certo(mesmo a senha estando certa/errada ou em branco) aparece "ainda n"

queria q acontecesse algo do tipo :
ele pega os valores da Tabela1
se o t1 for diferente de Usuario então mostra mensagem1
se for igual mostra mensagem2
se o p1 for diferente de Senha então mostra mensagem1
se for igual mostra mensagem2


possivelmente, postarei outro topico a respeito de efetuar cadastro (ainda não fiz a pagina)

agradeço desde já !


ninguem pode dar um help ?!

Edição feita por: satoshy, 25/08/2011, 11:01.

[verme1803]

<script>
function valida_login(){
if(document.form_login.login.value =="" ){
alert("Digite seu Login...")
document.form_login.login.focus();
return false;
}
if(document.form_login.login.value.length < 5 ){
alert("Seu Login deve conter mais de 5 caracteres...")
document.form_login.login.focus();
return false;
}
if(document.form_login.senha.value =="" ){
alert("Digite sua Senha...")
document.form_login.senha.focus();
return false;
}
if(document.form_login.senha.value.length < 5 ){
alert("Sua senha deve conter mais de 5 caracteres...")
document.form_login.senha.focus();
return false;
}
return true;
}
</script>





<%
dim conexaodb
call abreconexao
if request.Form("BtNsubmit") = "Efetuar login" then
login = replace(request.form("login"),"'","")
senha = replace(request.form("senha"),"'","")
sql_admin = "SELECT * FROM administrador WHERE login = '"&login&"' and senha = '"&senha&"'"
Set rs_admin = conexaodb.execute(sql_admin)
if not rs_admin.eof then
Session("login") = rs_admin("login")
response.Redirect("index.asp")
else
%>
<script>
alert("Login/Senha incorreto!")
document.location.href ="login.asp";
</script>
<%
end if
end if
%>