<% strLogin = Session("Usuario") sql1 = "SELECT * FROM autores WHERE login = '" & strLogin & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql1, MeuDB, 3, 3 %>

Olá <%= rsUser("nome") %>!

Você quer incluir/editar uma nota sua,
um artigo de outra pessoa ou um link?

<% if rsUser("tipo") <> 2 then %>


Quer convidar alguém para escrever no blog?

<% end if %>


<% if rsUser("perfil") = EMPTY then %> VOCÊ PRECISA EDITAR SEU PERFIL!!! :-) CLIQUE AQUI.

<% else %> Você pode também alterar seu perfil.

<% end if if rsUser("tipo") = 0 then %>

"pinga" o technorati

<% end if %>




<% if rsUser("tipo") <> 2 then %> Outras ações:

comentarios | categorias | cadastrad@s | estatísticas

<% end if %>