<%
if not session("20072412") then Response.Redirect ("index.asp?erro=4")
response.expires = 0
response.expiresabsolute = Now() - 1
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%@Language=VBScript.Encode%>
<%Response.Buffer=True
'Declarando variáveis
Dim cdErro
Dim strMsg
'Recebendo código do erro
cdErro = cstr(Request.QueryString ("erro"))
'inicializando variável
strMsg = ""
'Atribui mensagem de acordo com o código do erro
Select case cdErro
case "1"
strMsg = "Favor digitar uma senha válida."
case "2"
strMsg = "Favor digitar um usuário válido."
case "3"
strMsg = "Senha e/ou Usuário inválidos."
case "4"
strMsg = "Favor efetuar o login no Sistema."
case "5"
strMsg = "Seu Login expirou."
end select %>
Fabrica de Moveis - Goiania - Goias
<%#@~^KgAAAA==./2Kxk+RSDbO+,J@!ty@*E',/YM\/TP[r@!&ty@*r0wsAAA==^#~@%>Informe
os dados abaixo para acessar o sistema
