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