Selecionar Uma Opção De Pagamento

[smez]

Bom pessoal, tenho esse script abaixo, que vai mostrar no site as formas de pagamentos disponivel,

como que eu faço, para quando o usuario escolher uma forma de pagamento ele fica automatico para todos os produto a mesma forma.

Ex. quando eu clicar em um produto ele vai mostrar os dados do produto, as condiçoes de pagamentos, se o usuário escolher avista, as outras opções não aparecem mais nos outros produtos, so vai aparecer a condição de pagamento avista.

<!--tabela de formas de pagamento-->

<!--pagamento a vista-->

<%If RS_Produto("preco_unitario_vista") > 0 then%>

<tr><td><table width="100%">

<tr class="FUNDOTABproduto"><td height="15" colspan="2" align="center"valign="middle" style="cursor:crosshair" onClick="<% call del_tipo_pag() %>">

<B><span class="TXTTABproduto"><%=Application("middleTxtPagtoAvista")%></span></B></td></tr>

<%

'Leitura do arquivo de configuração dos meios de pagamento

Call abre_ArquivoXML(Application("XMLMeiosPagamentos"),FctobjXML,FctobjRoot)

'Set objeto de leitura do Nó

Set configuracao = FctobjRoot.selectSingleNode("configuracao")

'Set objeto de leitura dos atributos

Set itens = configuracao.getElementsByTagName("pagto[@disponivel=sim]")

'Identifica número itens para o Loop

n_itens = itens.length

'Loop das formas de pagamentos disponíveis

for i = 0 to (n_itens - 1)

'Set objeto de leitura de atributos configurados

Set pagto = itens.item(i)

'Lista primeiro as formas de pagamentos a vista

If pagto.getAttribute("permite_parcelamento") = "não" Then

'### Pagamentos a vista

%>

<tr><td width="100%" align="right" height="15">

<table width="100%" cellpadding="0" cellspacing="1">

<tr><td height="15" width="8%" align="center" valign="middle" class="FUNDOoptpagproduto1">

<%If session("tipoPag")="" OR session("tipoPag")= "vista" then%>

<input type="radio" name="tipo_Pag" id="tipovista" value="vista" onClick="tipo_pag(vista)" onMouseDown="tipo_pagj(this.value)">

<%end if%>

</td>

<td height="15" width="50%" align="center" valign="middle" class="FUNDOoptpagproduto1"><%=pagto.getAttribute("nome_visualizacao")%></td>

<%' Verifica se a quantidade de produto é superior a 0 (Zero)

If RS_Produto("quantidade_produto") <= "0" Then%>

<td width="40%" align="center" valign="middle" class="FUNDOoptpagproduto2"><%= Application("MiddleTxtSobConsulta") %></td>

<%Else%>

<td width="50%" align="center" valign="middle" class="FUNDOoptpagproduto2"><%=abvmoeda%>&nbsp;&nbsp;<%= FormatNumber(valor_produto)%></td>

<%End If%>

</tr></table></td></tr>

<% 'Define quais meios de pagamentos permitem o parcelamento

ElseIf pagto.getAttribute("permite_parcelamento") = "sim" Then

permite_parcelamento = "sim"

End If

'Destroi o objeto de leitura do XML

Set pagto = Nothing

Next

'### Fim dos Pagamentos a vista

'### Pagamentos parcelados

'Lista apenas os pagamentos que permitem parcelamentos e suas parcalas.

If permite_parcelamento="sim" Then

%>

<tr class="FUNDOTABproduto"><td height="15" colspan="2" align="center" valign="middle">

<B><span class="TXTTABproduto"><%=Application("middleTxtPagtoParcelado")%></span></B></td></tr>

<%

'Identifica número itens para o Loop

n_itens = itens.length

'Loop das formas de pagamentos disponíveis

for i = 0 to (n_itens - 1)

'Set obeto de leitura de atributos configurados

Set pagto = itens.item(i)

'Lista primeiro as formas de pagamentos a vista

If pagto.getAttribute("permite_parcelamento") = "sim" Then

%>

<tr><td width="100%" align="right" height="15">

<table width="100%" cellpadding="0" cellspacing="1"><tr>

<td height="15" width="50%" align="center" valign="middle" class="FUNDOoptpagproduto3">

<%=pagto.getAttribute("nome_visualizacao")%></td>

<td width="50%" align="center" valign="middle" class="FUNDOoptpagproduto4">

<%=pagto.getAttribute("num_parcelas")%> x de <%=abvmoeda%>&nbsp;&nbsp;

<%response.write FormatNumber((valor_produto)/ pagto.getAttribute("num_parcelas"))%></td>

</tr></table></td></tr>

<%

End If

'Destroi o objeto de leitura do XML

Set pagto = Nothing

Next

End if

%>

</table></td></tr>

<%End if%>

<!--14 dias-->

<%If RS_Produto("preco_unitario_14") > 0 then%>

<tr><td><table width="100%"><tr class="FUNDOTABproduto">

<td width="90%" align="center" valign="middle">

<B><span class="TXTTABproduto"><%=Application("middleTxtPagto14")%></span></B>

</td></tr>

<%

'Leitura do arquivo de configuração dos meios de pagamento

Call abre_ArquivoXML(Application("XMLMeiosPagamentos"),FctobjXML,FctobjRoot)

'Set objeto de leitura do Nó

Set configuracao = FctobjRoot.selectSingleNode("configuracao")

'Set objeto de leitura dos atributos

Set itens = configuracao.getElementsByTagName("pagto[@disponivel=sim]")

'Identifica número itens para o Loop

n_itens = itens.length

%>

<tr><td width="100%" align="right" height="15" colspan=2>

<table width="100%" cellpadding="0" cellspacing="1"><tr>

<!--Check tipoPag 14 dias-->

<td width="8%" align="center" valign="middle" class="FUNDOoptpagproduto1">

<%If session("tipoPag")="" OR session("tipoPag")="14" then%>

<input type="radio" name="tipo_Pag" id="tipo14" value="14" onClick="tipo_pag(14)" onMouseDown="java script:tipo_pagj(this.value)">

<%end if%>

</td>

<td height="15" width="50%" align="center" valign="middle" class="FUNDOoptpagproduto1">Boleto Banc&aacute;rio</td>

<%' Verifica se a quantidade de produto é superior a 0 (Zero)

If RS_Produto("quantidade_produto") <= "0" Then%>

<td width="40%" align="center" valign="middle" class="FUNDOoptpagproduto2"><%= Application("MiddleTxtSobConsulta") %></td>

<%Else%>

<td width="50%" align="center" valign="middle" class="FUNDOoptpagproduto2"><%=abvmoeda%>&nbsp;&nbsp;<%= FormatNumber(valor_produto_14)%></td>

<%End If%>

</tr>

</table>

</td>

</tr>

<%

'Destroi o objeto de leitura do XML

Set pagto = Nothing

If permite_parcelamento="sim" Then

%>

<tr class="FUNDOTABproduto">

<td height="15" align="center" valign="middle">

<B><span class="TXTTABproduto"><%=Application("middleTxtPagtoParcelado")%></span></B></td></tr>

<%

'Identifica número itens para o Loop

n_itens = itens.length

'Loop das formas de pagamentos disponíveis

for i = 0 to (n_itens - 1)

'Set obeto de leitura de atributos configurados

Set pagto = itens.item(i)

'Lista primeiro as formas de pagamentos a vista

If pagto.getAttribute("permite_parcelamento") = "sim" Then

%>

<tr>

<td width="100%" align="right" height="15">

<table width="100%" cellpadding="0" cellspacing="1"><tr>

<td height="15" width="50%" align="center" valign="middle" class="FUNDOoptpagproduto3">

<%=pagto.getAttribute("nome_visualizacao")%></td>

<td width="50%" align="center" valign="middle" class="FUNDOoptpagproduto4">

<%=pagto.getAttribute("num_parcelas")%> x de <%=abvmoeda%>&nbsp;&nbsp;

<%response.write FormatNumber((valor_produto)/ pagto.getAttribute("num_parcelas"))%></td>

</tr></table></td></tr>

<%

End If

'Destroi o objeto de leitura do XML

Set pagto = Nothing

Next

End if

%>

</table>

</td>

</tr>

<%End If%>

<!--28 dias-->

<%If RS_Produto("preco_unitario_28") > 0 then%>

<tr>

<td>

<table width="100%">

<tr class="FUNDOTABproduto">

<td height="15" colspan="2" align="center" valign="middle">

<B><span class="TXTTABproduto"><%=Application("middleTxtPagto28")%></span></B></td></tr>

<%

'Leitura do arquivo de configuração dos meios de pagamento

Call abre_ArquivoXML(Application("XMLMeiosPagamentos"),FctobjXML,FctobjRoot)

'Set objeto de leitura do Nó

Set configuracao = FctobjRoot.selectSingleNode("configuracao")

'Set objeto de leitura dos atributos

Set itens = configuracao.getElementsByTagName("pagto[@disponivel=sim]")

'Identifica número itens para o Loop

n_itens = itens.length

%>

<tr>

<td width="100%" align="right" height="15" colspan=2>

<table width="100%" cellpadding="0" cellspacing="1">

<tr>

<!--Check tipoPag 28 dias-->

<td width="8%" align="center" valign="middle" class="FUNDOoptpagproduto1">

<%If session("tipoPag")="" OR session("tipoPag")="28" then%>

<input type="radio" name="tipo_Pag" id="tipo28" value="28" onClick="<%' call tipo_pag(28) %>" onMouseDown="tipo_pagj(this.value)">

<%end if%></td>

<td height="15" width="50%" align="center" valign="middle" class="FUNDOoptpagproduto1">Boleto Banc&aacute;rio</td>

<%' Verifica se a quantidade de produto é superior a 0 (Zero)

If RS_Produto("quantidade_produto") <= "0" Then%>

<td width="50%" align="center" valign="middle" class="FUNDOoptpagproduto2"><%= Application("MiddleTxtSobConsulta") %></td>

<%Else%>

<td width="50%" align="center" valign="middle" class="FUNDOoptpagproduto2"><%=abvmoeda%>&nbsp;&nbsp;<%= FormatNumber(valor_produto_28)%></td>

<%End If%>

</tr>

</table>

</td>

</tr>

<%'Lista apenas os pagamentos que permitem parcelamentos e suas parcelas.

If permite_parcelamento="sim" Then%>

<tr class="FUNDOTABproduto">

<td height="15" colspan="2" align="center" valign="middle">

<B><span class="TXTTABproduto"><%=Application("middleTxtPagtoParcelado")%></span></B></td>

</tr>

<%'Identifica número itens para o Loop

n_itens = itens.length

'Loop das formas de pagamentos disponíveis

for i = 0 to (n_itens - 1)

'Set obeto de leitura de atributos configurados

Set pagto = itens.item(i)

'Lista primeiro as formas de pagamentos a vista

If pagto.getAttribute("permite_parcelamento") = "sim" Then

%>

<tr>

<td width="100%" align="right" height="15">

<table width="100%" cellpadding="0" cellspacing="1"><tr>

<td height="15" width="40%" align="center" valign="middle" class="FUNDOoptpagproduto3">

<%=pagto.getAttribute("nome_visualizacao")%></td>

<td width="50%" align="center" valign="middle" class="FUNDOoptpagproduto4">

<%=pagto.getAttribute("num_parcelas")%> x de <%=abvmoeda%>&nbsp;&nbsp;

<%response.write FormatNumber((valor_produto)/ pagto.getAttribute("num_parcelas"))%></td>

</tr></table></td></tr>

<%

End If

'Destroi o objeto de leitura do XML

Set pagto = Nothing

Next

End if%>

</table></td></tr>

<!--fim tabela de formas de pagamento-->

<%End If%>

[.Andreia.]

Se o que mudar for dados do banco, use AJAX, se for apenas visual (campos), use DIVs (javascript)