Hirsa - A medida certa

EMPRESA

ÁREAS DE ATUAÇÃO

SERVIÇOS

REPRESENTADAS

PRODUTOS

COTAÇÃO

NOTÍCIAS

CONTATO

TRABALHE CONOSCO

ASSISTÊNCIA TÉCNICA

LABORATÓRIO DE VAZÃO

ACOMPANHAMENTO ONLINE

Através do site, nossos clientes poderão acompanhar o andamento dos serviços prestados aos equipamentos enviados para manutenção, desde a sua chegada ao nosso departamento técnico, até a conclusão do mesmo.

A consulta poderá ser feita com privacidade, sigilo e segurança, pois cada cliente receberá um login e senha de acesso.

Para acessar, favor preencha os dados abaixo:

<% ' BEGIN LOGON PROCEDURE dologin = request.form("login") usn = request.form("username") psw = request.form("password") if request.cookies("logoncookie")("cookname")<>"" then usn = request.cookies("logoncookie")("cookname") psw = request.cookies("logoncookie")("cookpass") dologin = "login" end if if request.form("logoff")="logoff" then dologin = "no" session("logon")="no" session("usn") = "" session("admin") = "no" response.cookies("logoncookie").expires = date -1 end if 'decide whether to login or not if dologin ="login" then set dataconn = server.createobject ("ADODB.connection") set rs1 = server.createobject ("ADODB.recordset") dataconn.Open "provider=microsoft.jet.oledb.4.0;data source= " & server.mappath ("dados/cadastro.mdb") & "" MYSQL = "SELECT * FROM members WHERE usern = '" & usn & "'" rs1.open MYSQL, dataconn, 1, 3 if not rs1.EOF or not rs1.BOF then 'username checker if psw = (rs1("passwo")) then 'check password session("logon") = "yes" session("usn") = usn if rs1("level") = "admin" then session("admin") = "yes" if request.form("rem") = "yes" then 'checkbox and create cookie response.cookies("logoncookie").Expires = date + 31 response.cookies("logoncookie")("cookname")= usn response.cookies("logoncookie")("cookpass")= psw end if else session("logon") = "no" 'incorect password error errmess="Acesso Negado" end if else errmess="Acesso Negado" 'incorrect username error end if rs1.close() dataconn.close() end if 'show user logged in if session("logon") = "yes" then call logonyes else 'show login required call logonno response.write errmess end if ' END LOGIN PROCEDURE %>

<% function logonno() %>

Usuário:
Senha:

<% end function function logonyes() response.write "You are logged on as " & session("usn") response.redirect "consultar.asp" if session("admin") = "yes" then response.write "
Admin Level Logon" %>

<% end function %>