desconto na compra

[Marostegan 0]

olá pessoal, estou com o seguinte problema:

 

esse código abaixo é da parte de carrido da loja virtual

estou precisando do seguinte: quando a compra do cara for maior que 500,00 ele irá receber um desconto de 20% no total da compra

 

e eu não faço idéia de como fazer isso...

 

;//

 

o código:

 

<%page="carrinho"rodape = "no"If (Request("mode") = "changeItem") And (Request("cep_frete") <> "") Then	'Recria a sessão de autenticação	session("logado") = "yes"End If%><!--#INCLUDE FILE="cep_frete.asp" --><table height="100%" width="100%" border="0" cellspacing="0" cellpadding="0">	<tr>		<td colspan="3" valign="top" height="30"><!--#INCLUDE FILE="cabecalho.asp" --></td>	</tr>	<tr>		<td valign="top" height="10%" width="10%" class="TBLlatesquerda"><!--#INCLUDE FILE="menu.asp" --></td>		<td valign="top" height="95%" align="center"><%			Response.Buffer = true			permissao="write"			strMode = Request("mode")						If request("codigo_cor") <> "" Then				codigo_cor = "_c" & request("codigo_cor")			Else				codigo_cor = "_c" & "0"			End If						If request("codigo_cor") <> "" Then				codigo_cor = request("codigo_cor")			Else				codigo_cor = "0"			End If			If request("codigo_tamanho") <> "" Then				codigo_tamanho = request("codigo_tamanho")			Else				codigo_tamanho = "0"			End If						codigo_corTemp = "_c" & codigo_cor			codigo_tamanhoTemp = "_t" & codigo_tamanho			AdicionalCods = codigo_corTemp & codigo_tamanhoTemp						codigo_produto = Trim(request("codigo_produto") & AdicionalCods)	   			If session("id_transacao") = "" Then				session("id_transacao") = Gerar_id_transacao(session.sessionID)			End if			If strMode = "delete" or strMode = "updateItem" Then				Select Case strMode					Case "updateItem"						If VerificaExistenciaArquivo(Application("DiretorioPedidos")&session("id_transacao")&".xml") Then							altera_xmlpedidos session("id_transacao")				   						Else							Response.redirect "carrinho_vazio.asp"						End if					Case "delete"						If VerificaExistenciaArquivo(Application("DiretorioPedidos")&session("id_transacao")&".xml") Then							deleteItem_xmlpedidos session("id_transacao"), request("codigo_produto"),"atualiza_quantidades"							If pegaValorAtrib(Application("XMLArquivoConfiguracao"),"dados/configuracao_dados","Estoque") = "sim" Then								Call Atualiza_Estoque(request("codigo_produto"),"delete",request("quantidade_produto"),"0")							End if						End if					End Select			ElseIf strMode = "comprar" Then				Set RS_Produto = CreateObject("ADODB.Recordset")				Set RS_Produto.ActiveConnection = Conexao				RS_Produto.CursorLocation = 3				RS_Produto.CursorType = 0				RS_Produto.LockType =  3				RS_Produto.Open "SELECT  codigo_produto, codigo_categoria, nome_produto, quantidade_produto, preco_unitario, desconto, peso, data_inicio, data_fim  FROM Produtos WHERE codigo_produto=" & request("codigo_produto") & " AND sigla_idioma= '" & varLang & "'", Conexao				Set RS_Cambios = CreateObject("ADODB.Recordset")				Set RS_Cambios.ActiveConnection = Conexao					RS_Cambios.CursorLocation = 3					RS_Cambios.CursorType = 0					RS_Cambios.LockType =  1					RS_Cambios.Open "SELECT valor_moeda, simbolo_moeda FROM IdiomaseCambios WHERE sigla_idioma='"&varLang&"'", Conexao					VarValor_Cambio = RS_Cambios("valor_moeda")					VarSimbolo_Moeda = RS_Cambios("simbolo_moeda")					Session("Valor_Cambio") = VarValor_Cambio					RS_Cambios.Close				Set RS_Cambios = Nothing				preco_unitario_reajustado_0 = FormatNumber(RS_Produto("preco_unitario")/(VarValor_Cambio),2)				preco_unitario_reajustado_0Real = FormatNumber(RS_Produto("preco_unitario"))					preco_unitario_reajustado = preco_unitario_reajustado_0					preco_unitario_reajustadoReal = preco_unitario_reajustado_0Real					If RS_Produto("data_inicio") <> "00:00:00"  Then						If RS_Produto("data_inicio") <= Date then							TempoCorrente = DateDiff("d", date(),RS_Produto("data_fim")) 							If TempoCorrente >= 0 Then								TempoValido = DateDiff("d", RS_Produto("data_inicio"), RS_Produto("data_fim")) 								If (TempoValido >= 0 ) and (RS_Produto("desconto") <> "0" )Then									preco_unitario_reajustado_1 = FormatNumber(preco_unitario_reajustado_0 * (RS_Produto("desconto")/100))									preco_unitario_reajustado = preco_unitario_reajustado_0 - preco_unitario_reajustado_1									preco_unitario_reajustadoReal = preco_unitario_reajustado_0Real - preco_unitario_reajustado_1								End if							End if 						End if 					End if 					VarCodigo_produto=RS_Produto("codigo_produto") & AdicionalCods					VarCodigo_categoria = RS_Produto("codigo_categoria")					VarNome_produto = RS_Produto("nome_produto")					VarQuantidade_produto = "1"					VarPreco_unitario = preco_unitario_reajustado*(VarValor_Cambio)					VarPreco_unitario = FormatNumber(preco_unitario_reajustadoReal)					VarDesconto =  RS_Produto("desconto")					VarPeso =  RS_Produto("peso")					VarCor = codigo_cor					VarTamanho = codigo_tamanho					Call Cria_pedidoTemp(session("id_transacao"),VarCodigo_produto,VarCodigo_categoria,VarNome_produto,VarQuantidade_produto,VarPreco_unitario,VarDesconto,VarPeso,VarCor,VarTamanho,varLang,VarSimbolo_Moeda,VarValor_Cambio)					If pegaValorAtrib(Application("XMLArquivoConfiguracao"),"dados/configuracao_dados","Estoque") = "sim" Then										Call Atualiza_Estoque(VarCodigo_produto,"novo",VarQuantidade_produto,vazio)					End if				RS_Produto.close				Set RS_Produto = Nothing			End If			If CDbl(Application("DiasCookie")) <> CDbl("0") Then			'Grava o id_transacao deste pedido em um cookie.			response.cookies(Application("nomeConfiguracao"))("data") = now			response.cookies(Application("nomeConfiguracao"))("id_transacao") = session("id_transacao")							response.cookies(Application("nomeConfiguracao")).expires =  now + Application("DiasCookie")			Else				response.cookies(Application("nomeConfiguracao")).expires = Now - 5			End If			' Caso esta página seja chamada diretamente sem item de de compra ou o arquivo XML do pedido não for localizado			' haverá um redirecionamento para página de carrinho vázio.			If Not VerificaExistenciaArquivo(Application("DiretorioPedidos")&session("id_transacao")&".xml") Then				Response.redirect ("carrinho_vazio.asp")			End If			%>			<!--#INCLUDE FILE="lista_pedidos.asp" -->			<%			'Monta uma pre-visulizacao da forma de pagamento, caso exista para a mesma			Call Mostra_frete()			If Session("valor_frete") > FormatNumber("0") Or Session("frete_gratuito") = "ativo" Then			%>				<!--#INCLUDE FILE="lista_meiospagamentos.asp" -->			<%			End if			If (Request("mode") = "changeItem") Or (Request("mode") = "updateItem") Then				If (Request("meio_pgto") <> "") Then %>					<script>						check_meiopag('<%= Request("meio_pgto")%>');					</script>			<% 				ElseIf (Session("forma_pagamento") <> "") Then 			%>					<script>						check_meiopag('<%= Session("forma_pagamento")%>');					</script>			<% 				End If			End If 			%>			</td>		<td valign="top" height="10%" width="10%" class="TBLlatdireita"><!--#INCLUDE FILE="lateral_servicos.asp" --></td>	</tr>	<tr>		<td colspan="3" valign="top"><!--#INCLUDE FILE="rodape.htm" --></td>	</tr></table><% If Session("msgErroFrete") <> "" Then %><script> valida_pesquisar_cep(); </script><% Session("msgErroFrete") = emptyEnd IfIf (Request("mode") = "changeItem") And (Request("cep_frete") <> "") Then%>	<script>		document.frm.cep.value = '<%= Request("cep_frete")%>';		executar_pesquisar_cep();	</script><% End If %>

 

obs.: esse desconto q existe funciona só pra 1 produto quando você cadastra no painel de controle com desconto... mas eu preciso que esse 20% seja em cima do total das compras (independente de quais produtos forem)

[Marostegan 0]

tem essa outra página que acredito ser a que realmente vai receber o código

 

<%If permissao = "write" Then	estilo  = "itensPedido_write"ElseIf permissao = "read" Then	estilo  = "itensPedido_read"End ifSet RS_Cambios = CreateObject("ADODB.Recordset")Set RS_Cambios.ActiveConnection = ConexaoRS_Cambios.CursorLocation = 3RS_Cambios.CursorType = 0RS_Cambios.LockType =  1RS_Cambios.Open "SELECT valor_moeda, simbolo_moeda FROM IdiomaseCambios WHERE sigla_idioma='"&varLang&"'", ConexaovarValor_Cambio = RS_Cambios("valor_moeda")VarSimboloMoeda = RS_Cambios("simbolo_moeda")RS_Cambios.CloseSet RS_Cambios = Nothing'Atualiza a forma de pagamento no XML do pedidoIf Request("id_transacao") <> "" And Request("tipo") <> "" Then	If Request("id_transacao") <> "" Then		session("id_transacao") = Request("id_transacao")	End if	set docxml=server.createobject("microsoft.xmldom")	existe_pedidoTemp = docxml.load(Application("DiretorioPedidos")&session("id_transacao")&".xml")	If existe_pedidoTemp=true then		docxml.load(Application("DiretorioPedidos")&session("id_transacao")&".xml")		set pedido=docxml.documentElement		Set dados_pedido = pedido.SelectSingleNode("dados_pedido")		Set objAtualizaPedido = pedido.selectSingleNode("dados_pedido[@id_transacao="&session("id_transacao")&"]")		dados_pedido.SetAttribute "forma_pagamento",request("tipo")		If request("tipo") = "Boleto" Then		dados_pedido.SetAttribute "BoletoTipo",request("BoletoTipo")		End if		docxml.save(Application("DiretorioPedidos")&session("id_transacao")&".xml")	Else		Response.redirect "default.asp?lang="&varLang	End if	set docxml = NothingEnd If'Ajusta a URL da loja para usoIf Session("URLloja") <> "" Then	varURLloja = Session("URLloja") & "/"End If%><table bgcolor="#FFFFFF" width="100%" border="0" align="center" cellpadding="0" cellspacing="10">	<form id="frmEditContact" name="frmEditContact" method="post" action="<%= varURLloja %>carrinho.asp">	<input type="hidden" name="mode" value="updateItem">	<input type="hidden" name="sigla_idioma" value="<%=pegaValorAtrib(Application("DiretorioPedidos")&session("id_transacao")&".xml","dados_pedido","sigla_idioma")%>">	<input type="hidden" name="pais_frete" value="">	<input type="hidden" name="frete" value="">	<input type="hidden" name="opcao_frete" value="">	<input type="hidden" name="cep_frete" value="">	<input type="hidden" name="meio_pgto" value="<%= Request("meio_pgto") %>">	<input type="hidden" name="lang" value="<%=varLang%>">	<tr bgcolor="#CC0000">		<td align="center" height="18" valign="middle"><B><FONT COLOR="#FFFFFF"><%=Application("middleTxtTitItensPedidos")%></FONT></B></td>	</tr>	<tr>		<td align="center"  valign="top">			<table width="100%" border=0 align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">				<tr bgcolor="#EFEFEF">					<td align="center"><B><%=Application("middleTxtTitCodigo")%></B></td>					<%If VerificaExistenciaDado("codigo_cor","cores",VAZIO,VAZIO) Then%>						<td align="center"><B><%=Application("MiddleTxtTitCor")%></B></td>					<%End if%>					<%If VerificaExistenciaDado("codigo_tamanho","tamanhos",VAZIO,VAZIO) Then%>						<td align="center"><B><%=Application("MiddleTxtTitTamanho")%></B></td>					<%End if%>					<td align="center"><B><%=Application("middleTxtTitNomeProduto")%></B></td>					<td width="80" align="center"><B> <%=Application("middleTxtTitVlrUnitario")%></B></td>					<td align="center"><B><%=Application("middleTxtTitQuantidade")%></B></td>					<%If permissao = "write" Then%>						<td width="46" align="center"><B><%=Application("middleTxtTitExcluir")%></B></A></td>					<%End if%>					<td width="80" align="center"><B> <%=Application("middleTxtTitTotal")%></B></td>				</tr><%			Call abre_xmlpedido(session("id_transacao"), objXML, objRoot) 			Set raiz_dados_pedido = objRoot.selectSingleNode("dados_pedido[@id_transacao="&session("id_transacao")&"]")			Set states = objXML.getElementsByTagName("dados_pedido[@id_transacao="&session("id_transacao")&"]/produto") 			n_states = states.length			for i = 0 to (n_states - 1)			Set pagto = states.item(i)			ArrCodigo_produto = ArrCodigo_produto & pagto.getAttribute("codigo_produto") & ","			ArrQuantidade_produtoVazio = ArrQuantidade_produtoVazio & "0" & ","					vSplitCodPed = Split(pagto.getAttribute("codigo_produto"),"_")%>				<tr bgcolor="#FFFFFF">					<td align="center"><input type="hidden" name="codigo_produto" value="<%=pagto.getAttribute("codigo_produto")%>"><%=vSplitCodPed(0)%></td>					<%If VerificaExistenciaDado("codigo_cor","cores",VAZIO,VAZIO) Then					%>						<td align="center"><%If pagto.getAttribute("codigo_cor") <> "0" Then%><%=Pega_Cor(pagto.getAttribute("codigo_cor"))%><%End if%></td>					<%End if%>					<%If VerificaExistenciaDado("codigo_tamanho","tamanhos",VAZIO,VAZIO) Then					%>						<td align="center"><%If pagto.getAttribute("codigo_tamanho") <> "" Then%><%=Pega_Tamanho(pagto.getAttribute("codigo_tamanho"))%><%End if%></td>					<%End if%>					<td><%=pagto.getAttribute("nome_produto")%></td>					<td align="right"><%=abvmoeda%> <%=FormatNumber(pagto.getAttribute("preco_unitario")*FatorCambio(varValor_Cambio))%></td>					<td align="center"><%If permissao = "write" Then%><input TYPE="TEXT" NAME="quantidade_produto" value="<%=pagto.getAttribute("quantidade_produto")%>" SIZE="5" CLASS="FORMbox"><%Else%><%=pagto.getAttribute("quantidade_produto")%><%End if%></td>					<%If permissao = "write" Then						If pegaValorAtrib(Application("XMLArquivoConfiguracao"),"dados/configuracao_dados","Estoque") = "sim" Then						%>							<input type="hidden" name="quantidade_maxima" value="<%=Pega_DadoBanco("Produtos","quantidade_produto","codigo_produto",vSplitCodPed(0))%>"><input type="hidden" name="quantidade_atual" value="<%=pagto.getAttribute("quantidade_produto")%>">						<%End if%>						<td width="46" align="center"><A href="carrinho.asp?mode=delete&codigo_produto=<%=pagto.getAttribute("codigo_produto")%>&quantidade_produto=<%=pagto.getAttribute("quantidade_produto")%>"><img src="config/templates/<%=varLang%>/<%=varSkin%>/excluir.gif" border="0" bgcolor=""></A></td>					<%End if%>					<td align="right" bgcolor="#FFFFFF"><%=abvmoeda%> <%=FormatNumber(pagto.getAttribute("total_parcial")*FatorCambio(varValor_Cambio))%></td>				</tr><%			Set pagto = Nothing			next			Set states = Nothing			Session("pais_frete") = raiz_dados_pedido.getAttribute("pais_frete")			Session("cep_frete") = raiz_dados_pedido.getAttribute("cep_frete")			Session("opcao_frete") = raiz_dados_pedido.getAttribute("opcao_frete")			Session("valor_frete") = raiz_dados_pedido.getAttribute("valor_frete")			Session("peso_total")  = raiz_dados_pedido.getAttribute("peso_total")			If Usuario_Valido = "2" Then			raiz_dados_pedido.SetAttribute "logado",1			raiz_dados_pedido.SetAttribute "user_id",Request.form("user_id")			session("user_id") = Request.form("user_id")			session("logado") = "yes"			objXML.save (Application("DiretorioPedidos")&session("id_transacao")&".xml")			End If						If raiz_dados_pedido.getAttribute("forma_pagamento") <> "0" Then			Session("forma_pagamento") = raiz_dados_pedido.getAttribute("forma_pagamento")			End if			'------------------------------------			If request("tipo") <> "" And page <> "autentica" Then			If Request("id_transacao") <> "" Then			session("id_transacao") = Request("id_transacao")			End if			set docxml=server.createobject("microsoft.xmldom")			existe_pedidoTemp = docxml.load(Application("DiretorioPedidos")&session("id_transacao")&".xml")			If existe_pedidoTemp=true then			docxml.load(Application("DiretorioPedidos")&session("id_transacao")&".xml")			set pedido=docxml.documentElement			Set dados_pedido = pedido.SelectSingleNode("dados_pedido")			Set objAtualizaPedido = pedido.selectSingleNode("dados_pedido[@id_transacao="&session("id_transacao")&"]")			dados_pedido.SetAttribute "forma_pagamento",request("tipo")			docxml.save(Application("DiretorioPedidos")&session("id_transacao")&".xml")			Else			Response.redirect "default.asp?lang="&varLang			End if			set docxml = Nothing											End if			'------------------------------------			pesofrete  = raiz_dados_pedido.getAttribute("peso_total")			Call fecha_xmlpedido(session("id_transacao")) 			If raiz_dados_pedido.getAttribute("valor_subtotal") = "0,00" Or raiz_dados_pedido.getAttribute("valor_subtotal") = "0" Then			Response.redirect "carrinho_vazio.asp?lang="& varLang			End If			'Exibe o botão de excluir todos os produdos do carrinho de compras.			If permissao = "write" Then						'Será utilizado no controle de estoque ativo, estamos finalizando a integração.			ArrCodigo_produto = Mid(ArrCodigo_produto,1,Len(ArrCodigo_produto)-1)			ArrQuantidade_produtoVazio =  Mid(ArrQuantidade_produtoVazio,1,Len(ArrQuantidade_produtoVazio)-1)						'Define o número de agrupamento de celulas (td) conforme a existência de CORES e TAMANHOS cadastrados			'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''			'Verifica se existe cores cadastrados			varColspan = 4			If Pega_Cor(vazio) = Empty  Then				TemCor = 0			Else				TemCor = 1				End If	  			'Verifica se existe tamanhos cadastrados			If Pega_tamanho(vazio) = Empty  Then				TemTamanho = 0			Else				TemTamanho = 1				End If			TemFinal = TemCor + TemTamanho			Select Case TemFinal			Case 0				varColspan = "4"			Case 1 				varColspan = "5"			Case 2 				varColspan = "6"			End Select			''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''			'Fim da definição%>		 			<tr>				<td colspan="<%=varColspan%>" align="right" bgcolor="#FFFFFF"><%= Application("MiddleTxtExcluirProd")%> >></td>				<td bgcolor="#FFFFFF" align="center"> 				<%If pegaValorAtrib(Application("XMLArquivoConfiguracao"),"dados/configuracao_dados","Estoque") = "sim" Then%><A href="carrinho.asp?mode=updateItem&codigo_produto=<%=ArrCodigo_produto%>&quantidade_produto=<%=ArrQuantidade_produtoVazio%>"><%Else%><A href="carrinho_vazio.asp"><%End if%><img src="config/templates/<%=varLang%>/<%=varSkin%>/excluir.gif" border="0" alt="Exluir todos os produtos"></A></td><td bgcolor="#FFFFFF"></td>			</tr>			<%End if%>			</table>		</td>	</tr>	<tr>		<td align="center" valign="top">			<table width="100%" border=0 align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">				<tr>					<%If permissao = "write" Then%><td width="202" height="47" align="center" bgcolor="#FFFFFF" bordercolor="#FFFFFF"><A href="default.asp?lang=<%=varLang%>"><IMG SRC="config/templates/<%=varLang%>/<%=varSkin%>/botaocomprarmais.gif" ALT="" border="0"></A></td>					<td width="202" height="47" align="center" bgcolor="#FFFFFF"><%If pegaValorAtrib(Application("XMLArquivoConfiguracao"),"dados/configuracao_dados","Estoque") = "sim" Then%><a href="java script: atualiza_carrinho();"><%Else%><a href="java script: document.frmEditContact.submit();"><%End If%><img src="config/templates/<%=varLang%>/<%=varSkin%>/bot_recalculo.gif"  width="202" height="47" border="0"></a></td><%End if%>					<td  align="right"  bgcolor="#EFEFEF">						<table  border="0" cellpadding="0" cellspacing="4" bgcolor="#EFEFEF">							<tr>								<td align="right"><b><%=Application("middleTxtSubtotal")%>:</b></td>								<td align="right"><%=FormatNumber(raiz_dados_pedido.getAttribute("valor_subtotal")*FatorCambio(varValor_Cambio))%></td>							</tr>							<tr>								<td align="right"><b><%=Application("middleTxtTaxaEnvio")%>:</b></td>								<td align="right"><%=FormatNumber(raiz_dados_pedido.getAttribute("valor_frete")*FatorCambio(varValor_Cambio))%></td>							</tr>							<tr>								<td align="right"><b><%=Application("middleTxtTotal")%>:</b></td>								<td align="right"><%=raiz_dados_pedido.getAttribute("simbolo_moeda")%>  <%=FormatNumber(raiz_dados_pedido.getAttribute("valor_total")*FatorCambio(varValor_Cambio))%></td>							</tr>						</table>					</td>				</tr>			</table>		</td>	</tr><%If raiz_dados_pedido.getAttribute("forma_pagamento") <> "0" Then%>	<tr>		<td valign="top">			<table border="0" width="100%" cellpadding="3" cellspacing="3">				<tr id="dados_opt_pgto">					<td><%=Application("middleTxtOpcaoPagtoSel")%>: <%= retorna_NomeVisPagamento(raiz_dados_pedido.getAttribute("forma_pagamento"))%></td>				</tr>				<tr>					<td>						<table border="0" width="100%" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">							<%							If page = "confirmacao" Then								Call exibe_dados_pagamento(raiz_dados_pedido.getAttribute("forma_pagamento"))							End if							%>						</table>					</td>				</tr>			</table>		 </td>	</tr><%End ifIf permissao <> "write" ThenIf page <> "recibo" And page <> "iniciatransacao" Or compra = "negada" Then%><tr>	<td align="center">		<table border="0" width="100%" cellpadding="0" cellspacing="0" class="itensPedido_branco">			<tr id="dados_bto">				<td align="center" class="teste">					<%If readonly = "readonly" And page <> "recibo" Then%>						<input TYPE="Button" value="<%=Application("BttAlterarDados")%>" class="BTTN1" onclick="java script:history.go(-1)">  						<%If raiz_dados_pedido.getAttribute("forma_pagamento") <> "Bradesco" Then%>						<input TYPE="button" value="<%If page = "confirmacao" Then Response.write Application("BttFinalizarCompra") Else Response.write Application("BttGravarDados") End if%>" class="bttn2" onclick="define_parcelas(); document.Confirmacao.submit();">						<%End If%>					<%End if%>				</td>			</tr>		</table>	</td></tr><%End ifEnd IfSet raiz_dados_pedido = Nothing%></form></table><script language="JavaScript">function define_parcelas() {	for(a=0;a<document.frmEditContact.elements.length;a++){		//posta o número de parcelas para Amex / Redecard / Visa		if(document.frmEditContact.elements[a].name == 'parcelas'){			document.Confirmacao.dados_adicionais.value = document.frmEditContact.parcelas.value;			break;		}		//posta os dados adicionais para ABN		if(document.frmEditContact.elements[a].name == 'abn_formapgto'){			document.Confirmacao.dados_adicionais.value = document.frmEditContact.abn_formapgto.value + '|' + document.frmEditContact.abn_garantia.value + '|' + document.frmEditContact.abn_entrada.value + '|' + document.frmEditContact.abn_vencto.value;			break;		}	}}function chama_transacao() {	var tempIFrame=document.createElement('iframe');	tempIFrame.setAttribute('id','iframe_transacao');	tempIFrame.setAttribute('name','iframe_transacao');	tempIFrame.style.border			= '0px';	tempIFrame.style.width			= '0px';	tempIFrame.style.height			= '0px';	tempIFrame.setAttribute('src','inicia_transacao.asp?forma_pagamento=VISA&visanet_parcelas=01');	IFrameObj = document.body.appendChild(tempIFrame);}</script>

 

 

 

alguem poderia me dizer como faz esse comando?

 

(se a compra for maior ou = a 500,00 recebe 20% de desconto sobre o valor final) ??

 

brigadaum

[WebASP 0]

você pegou uma loja pronta isso e ruim huahua oideo codigos prontos você nunca sabe onde por algo certo pq não da desconto depois que ele fizer a compra?

[Veronica Gravino 0]

Oi, Então eu passei pelo mesmo problema essa semana, só que minha loja nao está usando 'Application'Mas você devia fazer assim, procura o nome do campo que está fazendo a soma dos pedidos, deve ser algo como, 'valorTotal' dae você faz assim: if ValorTotal < = '500' then desconto = ValorTotal *0.20vDesconto=ValorTotal -descontoend ifAlgo assim...Espero que tenha entendido..xau!

[Marostegan 0]

viw... eu entendi +/- o código... esse desconto eu tenho que criar uma variável...mais em que parte do código eu coloco isso??é que essa loja é pronta da locaweb, e eu preciso mtooo fazer essa alteração... ;///mas não estou conseguindo...obrigado pela ajuda...

[Marostegan 0]

pessoal, dá uma força ai!

[WebASP 0]

Bem é complicado pegar apenas um pedaço do codigo e dar a solução eu irei te passar a logica que eu usaria e ai você tenta ok?Vai na pagina onde finaliza o pedido que aparece algo assim"Parabens Antonio sua compra acada de ser finalizada e você devera efetuar o pagamento de 1.000,00"correto?Ai você ve a variavel que mostra este 1.000 e ve se o valor é maior que 500 e ai mesmo altera ok ? e mostrando pra ele apenas 800,00Ai no banco de dados eu criaria mais um campo chamado Desconto s/nPois se tiver dado o desconto ele marca ai como s = sim porem no banco de dados o valro final ainda ficaria 1.000 ok?Ai pronto você sabera uqe aquele cliente teve desconto mais o valor rel dele é 1.000 e para o cliente mostraria apenas 800Deu pra entender?