<% session("mud") = "enviar"
If request.form("acao") = "login" Then
set rsLogin = server.CreateObject("ADODB.RECORDSET")
Usuario = Request.Form("usuario")
Senha = Request.Form("Senha")
sqllogin = "SELECT * FROM pf where usuario_pf = '" & request.form("Usuario") & "' and Senha_pf = '" & request.form("senha") & "'"
rslogin.open sqllogin, conexao
if rslogin.eof then
rslogin.close
sqllogin = "SELECT * FROM pj where usuario_pj = '" & request.form("Usuario") & "' and Senha_pj= '" & request.form("senha") & "'"
rslogin.open sqllogin, conexao
if rslogin.eof then
session("msgped") = ucase("Senha ou Nome de Usuário Invalido")
response.redirect("pedidos.asp")
else
session("tipo") = "pj"
session("end") = rslogin("endereco_pj")
session("cod") = rslogin("cod_pj")
session("num") = rslogin("num_pj")
session("comp") = rslogin("complemento_pj")
session("cid") = rslogin("cidade_pj")
session("uf") = rslogin("uf_pj")
session("cep") = rslogin("cep_pj")
session("bairro") = rslogin("bairro_pj")
session("url") = "pedidos_pj_on.asp"
end if
else
session("tipo") = "pf"
session("cod") = rslogin("cod_pf")
session("end") = rslogin("endereco_pf")
session("num") = rslogin("num_pf")
session("comp") = rslogin("complemento_pf")
session("cid") = rslogin("cidade_pf")
session("uf") = rslogin("uf_pf")
session("cep") = rslogin("cep_pf")
session("bairro") = rslogin("bairro_pf")
session("url") = "pedidos_pf_on.asp"
End if
session("usuario") = Usuario
SESSION("A") = 0
response.redirect("checar.asp")
end if
%>
:: www.sindpass.org.br ::
<%=session("msgped")%>
JÁ
SOU CADASTRADO
NÃO
SOU CADASTRADO
Para
efetuar pedidos de Vales-Transporte, é
necessário fazer o Cadastro
clicando no botão "Quero
me cadastrar". Caso você já
seja cadastrado, basta inserir seu nome de "Usuário",
sua "Senha"
e clicar no botão "Entrar".
