<% option explicit ' response.buffer = false dim DS, RS dim sCorpo, sFlag sFlag = request("flag") if sFlag = "" then sFlag = 1 else sFlag = cint(sFlag) end if select case sFlag case 1: sCorpo = "
"&_ "Usuário:

" &_ "
Senha:

" &_ "
" &_ "
" &_ "
" &_ "

[VOLTAR]
" case 2: set DS = Server.CreateObject("ADODB.Connection") DS.Open("Driver={Mysql}; Server=localhost;Database=centralm_1;UID=centralm_1;PWD=123456") 'DS.Open("dsn=developdesk;UID=root;PWD=;") set RS = DS.Execute("select * from pessoa where pes_login='" & lcase(request("login")) & "' and pes_senha='" &_ lcase(request("senha")) & "'") if not rs.eof then session("centralm_login") = "OK" sCorpo = "
"&_ "Empresa: " & rs("pes_nome") & "

" &_ "
Listar todos" &_ "


Buscar Palavra:" &_ "
"&_ "" &_ "" &_ "" &_ "" &_ "
" &_ "
Buscar Codigo:" &_ "
"&_ "" &_ "" &_ "" &_ "" &_ "
" &_ "

[VOLTAR]
" else sCorpo = "

"&_ "Usuário inexistente ou senha inválida!"&_ "

"&_ "[VOLTAR]"&_ "
" end if end select set DS = nothing set RS = nothing %> *** CENTRAL Embalagens, Manuseio, Transporte, Distribuição e Logística ***
CENTRAL Embalagens, Manuseio, Transporte, Distribuição e Logística CENTRAL Embalagens, Manuseio, Transporte, Distribuição e Logística  
CENTRAL Embalagens, Manuseio, Transporte, Distribuição e Logística CENTRAL Embalagens, Manuseio, Transporte, Distribuição e Logística
MPA Multimídia
CENTRAL Embalagens, Manuseio, Transporte, Distribuição e Logística CENTRAL Embalagens, Manuseio, Transporte, Distribuição e Logística  
 
Restrito

























© 2002-2008 - Central Armazenamento, Transportes e Manuseio Ltda - Todos os direitos reservados
Melhor visualização em Internet Explorer em resolução mínima de 800 x 600 pixels
Desenvolvido por MPA Informática
central@centralmanuseio.com.br
Página Inicial
Empresa
Estrutura
Serviços
Clientes
Contato
Restrito