<%@language="vbscript" codepage="1252"%> <crossmidia> <% fSenha = request.form("senhaCad") session("senhaOK") = false if fSenha <> empty then dim sql, rs, sqlSenha, rsSenha, fSenha, lixo lixo = array("'","""","<"," and "," or ","=","%","#") for i=0 to ubound(lixo) fSenha = replace(fSenha,lixo(i),"") next sqlSenha = "SELECT * FROM usuarios_comuns WHERE usuario = '"&session("usuario_comum_login")&"' AND password = '"&fSenha&"'" call abreCon set rsSenha=conexao.execute(sqlSenha) if rsSenha.eof then session.Abandon() session.Contents.RemoveAll() response.Redirect("login.asp?erro=1") else session("senhaOK") = true end if end if %>

Área de assinantes

<% if session("senhaOk") then sql = "select * from usuarios_comuns where usuario = '"&session("usuario_comum_login")&"' AND nome='"&session("usuario_comum_nome")&"'" call abreCon set rs=conexao.execute(sql) if rs.eof then response.redirect "login.asp" function verPess(ident) if rs("pessoa") = ident then response.Write("checked=""checked""") end function %>

Edite seus dados abaixo

" />

Nome / Razão Social:
<%=rs("nome")%>

/>Pessoa Física
/>Pessoa Jurídica

E-mail:
<%=rs("email")%>

CPF / CNPJ:
<%=rs("cpf")%>

Área de Atuação:
<%=rs("atuacao")%>

Usuário:
<%=rs("usuario")%>

Senha:
Para manter a mesma senha, deixe como está
" />

<% set rs=nothing call fechaCon %> <%else%>

Para continuar, digite sua senha:

  |  
<%end if%>