% varIdAutor = CInt(Session("idUsu")) sql = "SELECT * FROM autores WHERE id = " & varIdAutor Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, MeuDB, 3, 3 %>
Nome: " size="40" maxlength="255">
E-mail: " size="40" maxlength="255">
Senha (no máximo 8 caracteres): " size="40" maxlength="255">
Perfil: <%= rs("perfil") %>