<% wEmpresa=request.item("Empresa") Set DataBase = Server.CreateObject("ADODB.Connection") DataBase.Open session("stringconexaoplan") SQL = "SELECT * FROM Empresas Where Empresa = '" & wEmpresa & "'" Set oRs = DataBase.Execute(sql) %>

EMPRESAS - DETALHES

 
Nome : <%=oRs("Nome")%>
CNPJ :
<%=oRs("CNPJ")%> Insc. Municipal : <%=oRs("Inscricao_Municipal")%>
Endereço : <%=oRs("Endereco")%>
Número :
<%=oRs("Numero")%> Complemento : <%=oRs("Complemento")%>
Bairro : <%=oRs("Bairro")%> Cidade : <%=oRs("Cidade")%>
Estado : <%=oRs("Estado")%> Cep : <%=oRs("Cep")%>
Telefone : <%=oRs("Telefone")%> Fax : <%=oRs("Fax")%>
E_Mail : <%=oRs("E_Mail")%>
Home Page : <%=oRs("Home_Page")%>
Contato : <%=oRs("Contato_Nome")%>
Telefone : <%=oRs("Contato_Telefone")%> Celular : <%=oRs("Contato_Celular")%>
E_Mail : <%=oRs("Contato_E_Mail")%>
     
Observações : <%=oRs("OBSERVACAO")%>
     
   

"> Alterar

  "> Excluir