<% 'verificar sessão if session("numUsuario") = "" then response.write("") Else Dim numUsuario numUsuario = session("numUsuario") end if 'Abrir conexão com o banco de dados Dim conn set conn = server.createobject("ADODB.Connection") conn.open DSNString Dim rs %> Administração
     
 

  <% set rs = conn.execute(" Select * from Usuarios where numUsuario=" & numUsuario) If not rs.eof then response.write rs("nome") End if rs.close set rs = nothing %>