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
%>