<% 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 %> Sulsoftware - Qualidade em sistemas <% 'Selecionando o topo select case request.querystring("ch") case "" : swf="topo1.swf" case "status","confPgto","finalizar","pedidos","comprar","cto","ctoSimples","portfolio","noticias","empresa","uteis","sistemas","webSites","atualiza","nfe": swf="topo2.swf" end select %>
<%=msgLogin%>
Login    Senha  
<% 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 %>
Rua Getúlio Borges da Fonseca, 200
Novo Hamburgo / RS
sulsoftware@sulsoftware.com.br
Telefone: 51 3594-7308
<% call fechaconex %>