% 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
"> Alterar