<% wCliente=request.item("Cliente") wEmpresa=request.item("Empresa") wLogin=request.item("Login") wSenha=request.item("Senha") Set DataBase = Server.CreateObject("ADODB.Connection") DataBase.Open session("stringconexaobomdesorte") SQL = "Delete From Clientes Where Cliente = '" & wCliente & "'" Set oRs = DataBase.Execute(sql) SQL = "Delete From Beneficiarios Where Titular = '" & wCliente & "'" Set oRs = DataBase.Execute(sql) %>
Funcionário e Beneficiários Excluídos com Sucesso!
Voltar