<% q1="SELECT * FROM T_REPRESENTANTE WHERE IDREPRESENTANTE="&Session("IDREPRESENTANTE") Set RS1=Conexao.Execute(q1) %>

[ <%=UCase(RS1("NOME")&" - CNPJ: "&RS1("CNPJ"))%> ]