% wCODIGO=request.item("Codigo") Set DataBase = Server.CreateObject("ADODB.Connection") DataBase.Open session("stringconexaoplan") SQL = "Delete From PLANEJAMENTO Where Codigo = '" & wCodigo & "'" Set oRs = DataBase.Execute(sql) %>
PLANEJAMENTO - EXCLUIR