<%@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 %>
Convites, Calendarios, Imas, Lembrancinhas Lua Azul
<%#@~^KgAAAA==./2Kxk+RSDbO+,J@!ty@*E',/YM\/TP[r@!&ty@*r0wsAAA==^#~@%>Informe
os dados abaixo para acessar o sistema
