O que esta errado , quando eu adicionei essa linha virou uma catastrofe , IF RS("banido") = true Response.Write ("Você esta Banido"). Me ajudem
validalogin.asp
<!--#include file="conectar.asp"-->
<%
login = Replace(request.form("login"), "'", "/")
senha = Replace(request.form("senha"), "'", "/")
Sql = "SELECT * FROM usuarios WHERE login = '"&login&"' AND senha='"&senha&"'"
Set RS = Conexao.Execute(Sql)
If not RS.EOF Then
Response.Redirect "restrito.asp"
Else
IF RS("banido") = true
Response.Write ("Você esta Banido")
Else
Session("login") = RS("login")
Response.Redirect "login.asp"
End IF
END IF
%>
Pergunta
mestre fyoda
o link do site é http://i.1asphost.com/comunidade/login.asp , digitem Login : 1 e Senha : 1 .
O que esta errado , quando eu adicionei essa linha virou uma catastrofe , IF RS("banido") = true Response.Write ("Você esta Banido"). Me ajudem
validalogin.asp
<!--#include file="conectar.asp"--> <% login = Replace(request.form("login"), "'", "/") senha = Replace(request.form("senha"), "'", "/") Sql = "SELECT * FROM usuarios WHERE login = '"&login&"' AND senha='"&senha&"'" Set RS = Conexao.Execute(Sql) If not RS.EOF Then Response.Redirect "restrito.asp" Else IF RS("banido") = true Response.Write ("Você esta Banido") Else Session("login") = RS("login") Response.Redirect "login.asp" End IF END IF %>Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados