<%
Dim UsuarioDigitado
UsuarioDigitado=Request.Form("usu")
Dim SenhaDigitada
SenhaDigitada=Request.Form("pwd")
EstadoUsuario="aindanao"
Dim UsuarioReal
Dim SenhaReal
UsuarioReal = "zurich"
SenhaReal = "risco10"
If UsuarioDigitado = UsuarioReal And SenhaDigitada = SenhaReal Then
EstadoUsuario = "logado"
Else
EstadoUsuario = "desconectado"
End If
Dim erro1
erro1 = "erro.asp?nome=" & UsuarioDigitado & "&senha=" & SenhaDigitada
If EstadoUsuario = "desconectado" Then
Response.Redirect(erro1)
End If
%>
Zurich Brasil Seguros
Bem-vindo ao Sistema de Classificação de Riscos da Zurich ("Zurich Risk Grading")
O Zurich Risk Grading foi criado para ajudar nossos clientes e corretores a melhor entenderem nossa classificação de riscos e nosso processo de seleção, permitindo o trabalho conjunto na redução dos riscos e ajudando a Zurich e seus clientes.
