PLANEJAMENTO

<% Dim wSistema wSISTEMA=request.item("Sistema") wNOME=request.item("NOME") Set DataBase = Server.CreateObject("ADODB.Connection") DataBase.Open session("stringconexaoplan") SQL = "UPDATE Sistemas SET Nome = '" & wNome & "' Where Sistema = '" & wSistema & "'" Set oRs = DataBase.Execute(sql) %>

SISTEMAS - ALTERAR



		Sistema Alterado com Sucesso!