<%@language="vbscript" codepage="1252"%> <crossmidia>
<% dim usr, nome usr = session("usuario_comum_login") if usr <> empty then nome = session("usuario_comum_nome") dim rs, sql, coment_msg sql = "SELECT * from usuarios_comuns where nome='"&nome&"' and usuario = '"&usr&"'" call abreCon set rs=conexao.execute(sql) response.write "

Área de assinantes

" response.write "

Olá, "&nome&"

"&vbnewline response.write "

Sair" response.write " | Sou outro usuário

" response.write "

Seus dados

"&vbnewline response.write "

Nome: "&nome&"
"&vbnewline response.write "Nome de usuário: "&usr&"
"&vbnewline response.write "E-mail: "&rs("email")&"
"&vbnewline response.write "

Editar meus dados - Ir para a página inicial

"&vbnewline set rs=nothing sql = "select * from comentarios where usuario = '"&usr&"'" set rs=conexao.execute(sql) response.write "
"&vbnewline response.write "

Seus comentários

"&vbnewline if not rs.eof then dim comOk, comAg comOk=0 comAg=0 rs.filter = "status='ok'" do while not rs.eof comOk = comOk+1 rs.movenext loop rs.filter = "status='aguardando'" do while not rs.eof comAg = comAg+1 rs.movenext loop response.write "

Você tem "&comOk&" comentários publicados e "&comAg&" aguardando aprovação.

" else response.write "

Você não tem nenhum comentário registrado

" end if response.write "
"&vbnewline set rs=nothing call fechaCon else dim errN, msg errN = request.querystring("erro") select case errN case 1: msg = "

Os dados que você inseriu parecem inválidos. Tente novamente.

" case 2: msg = "

Usuário não encontrado. Esqueceu sua senha?

" case else: msg = "" end select %>

Login

<%=msg%> Usuário Senha

<% dim logg, msgCad logg = request.QueryString("log") if logg = "user_exist" then response.write "

Este nome de usuário já existe. Escolha outro nome ou email.

" else response.write "

Ainda não tem cadastro?

" end if %>

Preencha o formulário abaixo para ter acesso a comentários, receber newsletter e outras vantagens.
Todos os campos são obrigatórios.

Nome / Razão Social:

Pessoa Física
Pessoa Jurídica

E-mail:

CPF / CNPJ:

Área de Atuação:

Usuário:

Senha:


<% end if %>