<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: lista_meiospagamentos.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 23/08/07 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#- If session("logado") = "" Then actionForm = Application("URLSiteSeguro") & "/autentica.asp" Else actionForm = Application("URLSiteSeguro") & "/check_usuario.asp" End if %> "> "> "> "> <%If request("URLloja") <> "" Then%> "> <%Else%> "> <%End IF%>

<%=Application("middleTxtTitSelFormaPagto")%>
<% Call abre_ArquivoXML(Application("XMLMeiosPagamentos"),FctobjXML,FctobjRoot) Set configuracao = FctobjRoot.selectSingleNode("configuracao") Set itens = configuracao.getElementsByTagName("pagto[@disponivel='sim']") If configuracao.getAttribute("exibir_texto") = "não" Then VarNumcolunas = 4 %> <% Else VarNumcolunas = 0 %> <% End if n_itens = itens.length If n_itens = 0 Then %> <% Else for i = 0 to (n_itens - 1) Set pagto = itens.item(i) %> <%If VarNumcolunas = 0 Then%> <%End if%> <% VarContador= VarContador + 1 If VarContador >= VarNumcolunas Then %> <% If i < (n_itens - 1) Then %> <% End If VarContador=0 End if Set pagto = Nothing next End If %> <%= Application("MiddleTxtMeioPagVazio")%> "><%response.write pagto.getAttribute("info") %> .gif" <%If n_itens = 1 Then%>onClick="document.OpcaoPag.tipo.checked=true; document.frmEditContact.meio_pgto.value='<%=pagto.getAttribute("nome_pagto")%>';"<%Else%> onClick="document.OpcaoPag.tipo[<%= i %>].checked=true; document.frmEditContact.meio_pgto.value='<%=pagto.getAttribute("nome_pagto")%>';"<%End If%> style="cursor: hand;"> <%If pagto.getAttribute("nome_pagto") = "Boleto" Then%> "> <%End if%> <%response.write pagto.getAttribute("descricao_pagamento")%>

<% Set itens = Nothing Set configuracao = Nothing Call fecha_ArquivoXML(Application("XMLMeiosPagamentos"),FctobjXML,FctobjRoot) %>