<% Response.addHeader "pragma", "no-cache" Response.CacheControl = "Private" Response.Expires = 0 Response.Buffer = TRUE Session.TimeOut = 20 %> <% Dim Acao, errr, idVerificado, tipoVerificado, digitoUsuario, Conexao Set Conexao = MyConConexaoAbrir() If Session("digitoUsuarioLogado") <> "" Then idVerificado = VerificaLogSessao(Session("digitoUsuarioLogado"), 1) digitoUsuario = VerificaLogSessao(Session("digitoUsuarioLogado"), 2) tipoVerificado = VerificaLogSessao(Session("digitoUsuarioLogado"), 3) If VerificaLogSessao(Session("digitoUsuarioLogado"), 4) Then errr = 1 'usuário válido com sessão - mostra compras - tipo compatível Else errr = 2 'usuário inválido com sessão End If Else errr = 3 'usuário inválido sem sessão End If %> RDC


<%'aqui indicação de qual page estou%>
<%'parte que fica abaixo da linha%>
<%'aqui corpo principal da page%>
MINHAS COMPRAS
Essa República é a verdadeira terra das oportunidades. Só aqui você vai poder também encontrar uma grande variedade de produtos à venda para a sua empresa. São oportunidades para fazer bons negócios e conhecer outras pessoas no mesmo ramo. CADASTRE-SE AQUI. Se você já é cadastrado, faça o seu login abaixo.
<% Select Case errr Case 1 %>
No momento, nenhuma operação de compra consta
em nosso banco de dados.
<% Case 2 %>
Usuário não existente. Informe administrador do site.

ESQUECI MINHA SENHA
<% Case 3 %>

ESQUECI MINHA SENHA
<% End Select 'final corpo principal%>