<%
Set Database = Server.CreateObject("ADODB.Connection")
Database.Open StringConexao
wID_Vendedor=request.item("ID_Vendedor")
wID_Plano=request.item("ID_Plano")
wCOMISSAO1=request.item("COMISSAO1")
wCOMISSAO2=request.item("COMISSAO2")
wCOMISSAO3=request.item("COMISSAO3")
wCOMISSAO4=request.item("COMISSAO4")
wCOMISSAO5=request.item("COMISSAO5")
SQL=" UPDATE VENDEDORES_PLANOS SET PRC_COMISSAO1 = " & wComissao1 & ", PRC_COMISSAO2 = " & wComissao2 & ", PRC_COMISSAO3 = " & wComissao3 & ", PRC_COMISSAO4 = " & wComissao4 & ", PRC_COMISSAO5 = " & wComissao5
SQL=SQL & " WHERE ID_VENDEDOR = " & wID_VENDEDOR & " AND ID_PLANO = " & wID_PLANO
Set TabPlanos = Database.Execute(SQL)
%>
|
|
|
Cadastro Concluído |
|
|
|
 |
|