<% Login=request.item("Login") Senha=request.item("Senha") Empresa=request.item("Empresa") Atividade=request.item("Atividade") Set Database = Server.CreateObject("ADODB.Connection") Database.Open session("stringconexaobomdesorte") wSQL = "UPDATE EMPRESAS SET ATIVO = 'S', ATIVIDADE = '" & ATIVIDADE & "' Where EMPRESA = " & Empresa & "" Set rstemp = Database.Execute(wSQL) SQL = "SELECT * FROM EMPRESAS Where EMPRESA = " & Empresa & "" Set rstemp = Database.Execute(SQL) %>

 

Empresa Liberada com Sucesso!

 

Ela já aparece na &Atividade=<%=rstemp("Atividade")%>">Rede Bom de Sorte