%
dim rs, conex
call abreconex
if request.form("login") <> "" and request.form("senha") <> "" then
login=apostrofe(request.form("login"))
senha=apostrofe(request.form("senha"))
set rs = conex.execute("SELECT cod, nome, sistemas, responsavel, contrato FROM clientes WHERE usuario='"&login&"' AND senha = '"&senha&"'")
if rs.eof then
msgLogin="
Dados incorretos"
else
if rs("contrato") = "S" then
session("nome")=rs("nome")
session("cod_cli")=rs("cod")
session("sistemas")=rs("sistemas")
Randomize
session("hashAcesso") = rnd
dataRef = cstr(year(date())) + cstr(right("0" & month(date()),2)) + cstr(right("0" & day(date()),2))
set rs2 = conex.execute("UPDATE clientes SET hashAcesso = '"&dataRef & "-" & session("hashAcesso")&"' WHERE cod=" & rs("cod"))
response.redirect "index.asp?ch=atualiza"
else
msgLogin="Essa área é destinada a clientes com contrato.
Para maiores informações entre em contato conosco."
end if
end if
end if
%>
<%=msgLogin%>
| ||
<% select case request.querystring("ch") case "" : %> <% case "empresa" : %> <% case "noticias" : %> <% case "portfolio" : %> <% case "uteis","cto" : %> <% case "sistemas" : %> <% case "webSites" : %> <% case "nfe" : %> <% case "atualiza" : %> <% case "ctoSimples" : %> <% case "comprar" : %> <% case "pedidos" : %> <% case "finalizar" : %> <% case "confPgto" : %> <% case "status" : %> <% end select %> | ||
Home Quem somos Sistemas Web sites Portfólio Suporte Contato |
||
|