Carrinho de Compras

kania · Março 9, 2006

Pessoal ja estou a quase uma semana trabalhando em cima de um carrinho de compras e não consigo resolvero um problema, o carrinho adciona o produto a ele, porem se você teantar continua a compra ele não da eero aparentemente, mas o produto não aparece no carrinho, somente o primeiro produto comprado a parece os outros não. abaixo os códigos. LINK PARA TESTE

PAGINA QUE EFETUA A COMPRA

<!-- #include file="topo.asp" --><%'Inserir a compra no banco de dadosSub adicionac(nOrderID, nProductID, nQuant)textosql = "INSERT INTO pedidos (id, idprod, quantidade) values ("&nOrderID&", "&nProductID&", "&nQuant&")"abredb.Execute(textosql)Response.Redirect "carrinhodecompras.asp"End SubintProdID = Request.form("intProdID")intQuant = Request.form("intQuant")intOrderID = cstr(Session("orderID"))'Incrementa o Contador do Produto. Este é usado para fazer os campeões de venda.'Set rs = abredb.execute("SELECT contador FROM produtos WHERE idprod=" & intProdID)'if VersaoDb = 1 Then'abredb.execute("UPDATE produtos SET contador='" & rs("contador") + 1 & "' WHERE idprod='" & intProdID & "'")'else'abredb.execute("UPDATE produtos SET contador=" & rs("contador") + 1 & " WHERE idprod=" & intProdID)'end iftextosql = "SELECT * FROM pedidos WHERE id ='" & intOrderID & "' AND idprod ='" & intProdID & "';"set adiciona = abredb.Execute(textosql)if adiciona.EOF thentxtInfo = "adicionado"  adicionac intOrderID, intProdID, intQuantestadozx = mid(request("frete"),2,3)intOrderIDx = cstr(Session("orderID"))set rsProdx = abredb.Execute("SELECT peso FROM produtos WHERE id="&intProdID&";")peso = rsProdx("peso")rsProdx.closeset rsProdx = nothing'Chama dados do produtoSet rsProdInfo = abredb.Execute("SELECT * FROM produtos where id="&intProdID)idsessao = rsProdInfo("secao")nome = rsProdInfo("titulo_texto")Set nomes = abredb.Execute("SELECT * FROM secoes where id="&idsessao)strNome = nomes("titulo_texto")nomes.Closeset nomes = NothingrsProdInfo.Closeset rsProdInfo = Nothingend ifif Cstr(session("PesoTotalCep")) = Cstr("") thenresponse.redirect "compra.asp?prodid="&intProdID&"&item="&txtInfoelse'Chama os produtos compradosintOrderID = Session("orderID")set pedidos = abredb.Execute("SELECT idprod, quantidade FROM pedidos WHERE id='" & intOrderID & "'")if pedidos.eof thenresponse.redirect "compra.asp?prodid="&intProdID&"&item="&txtInfoelsewhile not pedidos.EOFidprod = pedidos("idprod")quantidade = pedidos("quantidade")set produtos = abredb.Execute("SELECT valor_venda, nome, peso FROM produtos WHERE id="&idprod&";")preco = produtos("valor_venda")peso = produtos("peso")nome = produtos("nome")intProdID = idprodstrProdNome = nomepesoz = pesointProdPrice = precointQuant = quantidadeif session("estado") = "" thenintFrete = 0elseintFrete = valorfreteend if'Calcula o total do freteintTotalFrete = intTotalFrete + (intQuant * intProdPrice)	intTotal = intTotalFrete + intFrete	subpreco = formatNumber(intProdPrice,2)totpreco = formatNumber((intQuant * intProdPrice),2)pesototal = 1 + FormatNumber(pesototal, 3) + FormatNumber((produtos("peso") * intQuant), 3) - 1produtos.Closeset produtos = Nothingpedidos.MoveNextwendend ifpedidos.Closeset pedidos = NothingSession("PesoTotalFrete") = FormatNumber(pesototal, 3)suacompra = formatNumber(intTotal,2)'--> Session("PesoTotalFrete") 'Peso Total'--> application("CORREIOSseucep11") 'CEP da Loja'--> application("CORREIOSmaop11") 'Mao Propria'--> application("CORREIOSaviso11") 'Aviso de Recebimento'--> session("PesoTotalCep") 'CEP do cliente'--> suacompra 'Valor DeclaradoUrlRetorno = "http://" & request.servervariables("Server_Name") & request.servervariables("Url")UrlRetorno = Replace(UrlRetorno, "comprar.asp", "compra.asp?prodid="&intProdID&"&item="&txtInfo)if Session("PesoTotalFrete") < 1 then   Session("PesoTotalFrete")=1   else   if instr(Session("PesoTotalFrete"),",")<>0 then	  Session("PesoTotalFrete")=replace(Session("PesoTotalFrete"),",",".")   end ifend ifSet objXMLHTTP = CreateObject("Microsoft.XMLHTTP")objXMLHTTP.open "post", "http://www.correios.com.br/encomendas/precos/calculo.cfm?Servico=40010&CepDestino=" & session("PesoTotalCep") & "&CepOrigem=" & application("CORREIOSseucep11") & "&Peso=" & Session("PesoTotalFrete") & "&AvisoRecebimento=" & application("CORREIOSaviso11") & "&ValorDeclarado=" & Replace(suacompra, ".", "") & "&MaoPropria=" & application("CORREIOSmaop11"),falseobjXMLHTTP.sendValorBox = objXMLHTTP.responseTextset objXMLHTTP = nothingprimeira_tarifa = right(valorbox,len(valorbox)-instr(valorbox,"Tarifa"))segunda_tarifa = right(primeira_tarifa,len(primeira_tarifa)-instr(primeira_tarifa,"Tarifa"))final = replace(replace(left(right(segunda_tarifa,len(segunda_tarifa)-6),5),"&",""),".",",")session("PesoTotalValor")=finalresponse.redirect UrlRetorno'Fecha banco de dadosabredb.Closeset abredb = Nothing%><table width=590 align=center><tr><td><font face=<%=fonte%> style=font-size:11px><b><br>Atualizando... por favor aguarde.</b></td></tr></table>   </td></tr>  </table></td></tr> </table><%end if%>

SE TUDO CORRETO NA PAGINA ANTERIOR ELE IRA PARA A COMPRA.ASP PARA PROCESSAR

<!-- #include file="topo.asp" --><%'Requisita os dados para gravar o produto compradointOrderID = cstr(Session("orderID"))intProdID = request.querystring("prodid")tipo = request.querystring("item")if tipo = "existente" thentxtInfo = strLg156elsetxtInfo = strLg157end ifSet rsProdInfo = abredb.Execute("SELECT * FROM produtos where idprod="&intProdID&"")idsessao = rsProdInfo("idsecao")nome = rsProdInfo("nome")rsProdinfo.closeset rsProdinfo = nothing'Chama o idsessao do subdepartamentoSet subnomes = abredb.Execute("SELECT titulo_texto,id_secao FROM categorias where id_secao="&idsessao)strIdsessao = subnomes("id_secao")strSubnome = subnomes("titulo_texto")subnomes.Closeset subnomes = Nothing'Chama o nome do departamentoSet nomes = abredb.Execute("SELECT titulo_texto FROM secoes where id="&strIdsessao)strNome = nomes("titulo_texto")nomes.Closeset nomes = Nothing%>			<table><tr><td align="left" valign="top">						   <table border="0" cellspacing="4" cellpadding="4" width=590>						  <tr><td><font face="<%=fonte%>" style=font-size:11px;color:000000><%=strLg273%> > <a href=default.asp style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg4%>';return true;"><b><%=strLg4%></b></a> > <b><%= strNome %></b> > <a href=sessoes.asp?secao=<%=strIdsessao%>&categorias=<%=idsessao%> style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%= strSubNome %>';return true;"><b><%= strSubNome %></b></a> > <%= nome %></b></a> <br><br><table border=0 cellspacing=0 width=100% cellpadding=0><tr><td height=5></td></tr><tr><td height=1 bgcolor=<%=cor3%>></td></tr><tr><td height=5></td></tr></table><br><br><p align=center><font style=font-size:17px; color=#000000><b><%= txtInfo %></b></font><p align=center><a href=produtos.asp?produto=<%=intProdID%> style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg41%>';return true;"><font  style=font-size:11px;><b>:: <%=strLg41%> ::</b></a> <br><p align=center><a href=carrinhodecompras.asp><img src="<%=dirlingua%>/imagens/finalizar_compras.gif" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg51%>';return true;" border=0></a><br><br><a href=default.asp><img src="<%=dirlingua%>/imagens/continuar_compras.gif" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg68%>';return true;" border=0></a></p> <table border=0 cellspacing=0 width=100% cellpadding=0><tr><td height=5></td></tr><tr><td height=1 bgcolor=<%=cor3%>></td></tr><tr><td height=5></td></tr></table></font><b><%=strLg52%></b><table border=0 cellspacing=0 width=100% cellpadding=0><tr><td height=5></td></tr><tr><td height=1 bgcolor=<%=cor3%>></td></tr><tr><td height=5></td></tr></table>										  <table align=left><tr><%'Seleciona os dados para oferta'=========================seleciona idprod e idcompra da tabela pedidos=========================set ofertas = abredb.Execute("select idprod,id from pedidos where idprod='"&intProdID&"';")if ofertas.eof thenrandomizenumx = right(rnd,1)'=========================seleciona 3 produtos para randomizar caso não tenha compra ainda=========================set fim= abredb.Execute("select id,produto,desconto,estoque from produtos")contador = 0while not fim.eof and contador < 3precito = formatcurrency(fim("desconto"),2)precitoMaior = formatcurrency(fim("valor_venda"),2)%>													  <td>													<table BORDER="0" CELLSPACING="1" CELLPADDING="0"><tr><td bgcolor=#bfbfbf>													 	   <table BORDER="0" CELLSPACING="1" CELLPADDING="3"><tr><td bgcolor=#ffffff>																  <table align=center width=177 cellspacing="1" cellpadding="1">																   <tr><td valign=center width=180 height=100><font style=font-size:11px;font-family:<%=fonte%>><b><font color=000000><%=fim("produto")%></b><br><br><b>																   <%=strLg29%></b> 																   <%if predito < precitoMaior then%>																   <%=precitoMaior%>																   <%else%>																   <%= precito%>																   <%end if%><br><b><%=strLg28%></b> <%if fim("estoque") = "s" then response.write strLg26 else response.write strLg27 end if%><div align=right><br><a href="produtos.asp?produto=<%=fim("id")%>"  onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg30%>';return true;" style="color:#FFFFFF;text-decoration:none;"><img src=<%=dirlingua%>/imagens/detalhes.gif border="0" align=absbottom></a></div></td></tr>																   </table>														  </table>													</table>											   </td><%contador = contador + 1fim.movenextwendfim.closeset fim = nothingelsecodigo = ofertas("id")ofertax = ofertas("id")'=============seleciona pedidos para randomizar onde produto diferente do comprado========================='	 set ofertas2 = abredb.Execute("select idprod from pedidos where idcompra = '"&compracv&"' and idprod<>'"&intProdID&"';")'	 if ofertas2.eof then'	 else'	 codigo = ofertas2("idprod")'	 ofertas2.close'	 set ofertas2 = nothing			 set ofertas3 = abredb.Execute("select id,produto,desconto,estoque from produtos where id<>"&codigo&";")			 contador3 = 0			 while not ofertas3.eof and contador3 < 3			 precito2 = formatcurrency(ofertas3("desconto"),2)			 precitoMaior2 = formatcurrency(fim("valor_venda"),2)%>													  <td>													<table BORDER="0" CELLSPACING="1" CELLPADDING="0"><tr><td bgcolor=#bfbfbf>													 	   <table BORDER="0" CELLSPACING="1" CELLPADDING="3"><tr><td bgcolor=#ffffff>																  <table align=center width=177 height=100 cellspacing="1" cellpadding="1">																   <tr><td valign=center width=180 height=100%><font style=font-size:11px;font-family:<%=fonte%>><b><font color=000000><%=ofertas3("nome")%></b><br><br><b><%=strLg29%></b> 																   <%If precito2 < precitoMaior2 then%>																   <%= precitoMaior2%>																   <%Else%>																   <%=precito2%>																   <%End If%><br><b><%=strLg28%></b> <%if ofertas3("estoque") = "s" then response.write strLg26 else response.write strLg27 end if%><div align=right><br><a href="produtos.asp?produto=<%=ofertas3("id")%>"  onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg30%>';return true;" style="color:#FFFFFF;text-decoration:none;"><img src=<%=dirlingua%>/imagens/detalhes.gif border="0" align=absbottom></a></div></td></tr>																   </table>														  </table>													</table>											   </td><%			  contador3 = contador3 + 1			  ofertas3.movenext			  wend			  ofertas3.close			  set ofertas3 = nothingend ifofertas.closeset ofertas = nothing%>													  </tr></table></td></tr>									</table></td></tr>					</table>				<!-- '#include file="baixo.asp" -->

E AI ENTÃO MONTA O CARRINHO DE COMPRAS

<!-- #include file="topo.asp" -->

<table border="0" cellspacing="4" cellpadding="4" width=590><tr><td><font face="<%=fonte%>" style=font-size:11px;color:000000> <a href=default.asp style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg4%>';return true;"><b><%=strLg4%></b></a> » <%=strLg1%><br>

<font face="<%=fonte%>" style=font-size:10px;color:#808080>

1. <%=strLg282%> </font>

2. <%=strLg283%>

3. <%=strLg284%>

4. <%=strLg285%></td></tr><tr><td height=5></td></tr></table>

<%

'Chama os produtos comprados

set pedidos = abredb.Execute("SELECT idprod, quantidade FROM pedidos WHERE id='" & intOrderID & "'")

if pedidos.eof then

Session("orderID") = "" %>

<br><br><div align=center><p><font face=<%=fonte%> style='font-size:15px'><b><%=strLg49%><br> <%=strLg50%><br><br></b><a href=default.asp><img src="<%=dirlingua%>/imagens/continuar.gif" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg68%>';return true;" border=0></a><b></font></p></div><table border=0 cellspacing=0 width=100% cellpadding=0><tr><td height=5></td></tr><tr><td height=1 bgcolor=<%=cor3%>></td></tr><tr><td height=5></td></tr></table></td></tr>

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

</table>

<%

response.end

else

intOrderID = cstr(Session("orderID"))

%>

<%

'*** Se no login do cliente (comprareg.asp) foi detectado que o cliente informou CEP diferente do cadastro, força o cliente recalcular o frete com o seu CEP correto

if request.querystring("rec")="s" then

session("PesoTotalCep")=request.querystring("cep")

end if

%>

<font face="<%=fonte%>" style=font-size:13px><strong><%=strLg65%></strong></font></p><p><font face="<%=fonte%>" style=font-size:10px;color:000000><%=strLg56%><br><%=strLg57%></font></p><font face="<%=fonte%>" style=font-size:10px;color:red><%=request.querystring("erro")%></font><form action="atualizapedido.asp" method="post" name="registro1">

<tr bgcolor="<%=cor3%>"><td width="15%" align="left" valign="center" nowrap><font color="#000000" face="<%=fonte%>" style=font-size:11px;><strong><%=strLg58%><strong></font></strong></strong></td><td width="39%" align="left" valign="center" nowrap><font color="#000000" face="<%=fonte%>" style=font-size:11px;><strong><%=strLg59%><strong></font></strong></strong></td><td width="16%" align="left" valign="center"><font color="#000000" face="<%=fonte%>" style=font-size:11px;><strong><%=strLg60%><strong></font></strong></strong></td><td width="20%" align="right" valign="center" nowrap><font color="#000000" face="<%=fonte%>" style=font-size:11px;><strong><%=strLg61%><strong></font></strong></strong></td><td width="10%" align="right" valign="center" nowrap><font color="#000000" face="<%=fonte%>" style=font-size:11px;><strong><%=strLg62%><strong></font></strong></strong></td></tr>

<%

while not pedidos.EOF

idprod = pedidos("idprod")

quantidade = pedidos("quantidade")

'set produtos = abredb.Execute("SELECT A.desconto, A.Valor_venda, A.produto, A.peso, B.QTDMAXIMA, B.ESTOQUE AS B FROM produtos AS A, produtos AS B WHERE A.id = B.ID AND A.id="&idprod&";")

'if produtos.eof then

'Session("orderID") = ""

'response.redirect "carrinhodecompras.asp"

'end if

preco = produtos("desconto")

preco2 = produtos("valor_venda")

peso = produtos("peso")

nome = produtos("produto")

Maximo = produtos("QTDMAXIMA")

EsT = produtos("B")

intProdID = idprod

strProdNome = nome

pesoz = peso

intProdPrice = preco

intProdPrice2 = preco2

intQuant = quantidade

if session("estado") = "" then

intFrete = 0

else

intFrete = valorfrete

end if

'Calcula o total do frete

if intProdPrice > intProdPrice2 then

intTotalFrete = intTotalFrete + (intQuant * intProdPrice)

intTotal = intTotalFrete + intFrete

subpreco = formatcurrency(intProdPrice,2)

totpreco = formatcurrency((intQuant * intProdPrice),2)

else

intTotalFrete = intTotalFrete + (intQuant * intProdPrice2)

intTotal2 = intTotalFrete + intFrete

subpreco2 = formatcurrency(intProdPrice2,2)

totpreco2 = formatcurrency((intQuant * intProdPrice2),2)

end if

%>

function AbortEntry(sMsg, eSrc){window.alert(sMsg);eSrc.focus();}

function HandleError<%= intProdID %>(eSrc){var val = parseInt(eSrc.value);

if (isNaN(val)){

document.registro1.quant<%= intProdID %>.value = '<%=intQuant%>';

document.estado.quant<%= intProdID %>.value = '<%=intQuant%>';

}

// if (val > <%=Maximo%>){

// alert('<%=strLg270%> <%=Maximo%> <%=strLg271%>');

// document.registro1.quant<%= intProdID %>.value = '<%=intQuant%>';

// }

if ((val > <%=produtos("B")%>) && (<%=MAXIMO%> > <%=produtos("B")%>))

{

/// Avisa qdo o cliente tenta comprar mais do que tem no estoque (e ve se nao passa do Maximo)

alert('<%=strLg277&" "&produtos("B")&" "& strLg278%>');

if(confirm("<%=strLg279&" "&produtos("B")&" "& strLg280%>")==true)

{

document.registro1.quant<%= intProdID %>.value = '<%= produtos("B") %>';

document.registro1.submit();

}

else

{

document.registro1.quant<%= intProdID %>.value = '<%=intQuant%>';

document.registro1.quant<%= intProdID %>.select;

}

else

{

/// Avisa q o cliente pode só comprar um maximo X do produto

if (val > <%=MAXIMO%>)

{

alert('<%=strLg270%> <%=MAXIMO%> <%=strLg271%>');

document.registro1.quant<%= intProdID %>.value = '<%=MAXIMO%>';

document.registro1.quant<%= intProdID %>.focus();

}

if (val <= 0) {

document.registro1.quant<%= intProdID %>.value = '<%=intQuant%>';

}

</script>

function jumpTo(URL_List){

var URL = URL_List.options[url_List.selectedIndex].value;

window.location.href = URL;

}

</SCRIPT>

<tr><td width="15%" valign="center" align="left"><font face="<%=fonte%>" size="2"> <input name="quant<%= intProdID %>" size="2" value="<%=intQuant%>" <% If mostrar_limite_max_prod_compra="Sim" then%> onChange="HandleError<%= intProdID %>(this)" <% End If %> style=font-size:11px;font-family:<%=fonte%>; maxlength=2></font></td><td width="39%" align="left"><a href="produtos.asp?produto=<%= intProdID %>" ><font face="<%=fonte%>" style=font-size:11px;color:000000><b><%= strProdNome %></b></font></a></td><td width="16%" align="right">

<font face="<%=fonte%>" style=font-size:11px;color:000000>

<%if intProdPrice > intProdPrice2 then%>

<%= subpreco %></font></td><td width="20%" align="right"><font face="<%=fonte%>" style=font-size:11px;color:000000>

<%= totpreco %></font></td><td width="10%" align="right">

<%else%>

<%= subpreco2 %></font></td><td width="20%" align="right"><font face="<%=fonte%>" style=font-size:11px;color:000000>

<%= totpreco2 %></font></td><td width="10%" align="right">

<%end if%>

<a onclick="return confirm('Você quer remover este produto da sua compra?')" href="atualizapedido.asp?acao=remover&produto=<%= intProdID %>&vvcep=<%=session("PesoTotalCep")%>&qtd=<%= intQuant %>" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg62%>';return true;" ><img src=<%=dirlingua%>/imagens/del.gif border=0></a></td></tr>

<%

pesototal = 1 + formatcurrency(pesototal, 3) + formatcurrency((produtos("peso") * intQuant), 3) - 1

pedidos.MoveNext

wend

pedidos.Close

set pedidos = Nothing

produtos.Close

set produtos = Nothing

Session("PesoTotalFrete") = formatcurrency(pesototal, 3)

'Valor total da compra

if intTotal > intTotal2 then

totaldasuacompra = formatcurrency(intTotal,2)

suacompra = 1 + formatcurrency(intTotal,2) + formatcurrency(session("PesoTotalValor"), 2) - 1

suacompra = formatcurrency(suacompra, 2)

else

totaldasuacompra = formatcurrency(intTotal2,2)

suacompra = 1 + formatcurrency(intTotal2,2) + formatcurrency(session("PesoTotalValor"), 2) - 1

suacompra = formatcurrency(suacompra, 2)

end if

%>

<tr><td valign="center" align="left" colspan=3><font face="<%=fonte%>" style=font-size:11px;color:000000><strong><%=strLg63%><strong></font></strong></strong></td><td colspan="3" align="right" valign="center">

<font face="<%=fonte%>" style=font-size:11px;color:000000><strong><b><%= totaldasuacompra %></b><strong></font></strong></strong></td></tr>

<% '***Script Visivel/Invisivel %>

var isNS = navigator.appName.indexOf("Netscape") != -1

var isIE = navigator.appName.indexOf("Microsoft") != -1

function show1() {

if (isNS) document.layers["d1"].visibility = "show";

if (isIE) document.all.d1.style.visibility = "visible";

}

function hide1() {

if (isNS) document.layers["d1"].visibility = "hide";

if (isIE) document.all.d1.style.visibility = "hidden";

}

function show2() {

if (isNS) document.layers["d2"].visibility = "show";

if (isIE) document.all.d2.style.visibility = "visible";

}

function hide2() {

if (isNS) document.layers["d2"].visibility = "hide";

if (isIE) document.all.d2.style.visibility = "hidden";

}

function show3() {

if (isNS) document.layers["d3"].visibility = "show";

if (isIE) document.all.d3.style.visibility = "visible";

}

function hide3() {

if (isNS) document.layers["d3"].visibility = "hide";

if (isIE) document.all.d3.style.visibility = "hidden";

}

function show4() {

if (isNS) document.layers["d4"].visibility = "show";

if (isIE) document.all.d4.style.visibility = "visible";

}

function hide4() {

if (isNS) document.layers["d4"].visibility = "hide";

if (isIE) document.all.d4.style.visibility = "hidden";

}

</script>

<tr><td valign="center" align="left" colspan=6><font face="<%=fonte%>" style=font-size:11px;color:000000><strong>Forma de Entrega:<strong></font></strong></strong><font face="<%=fonte%>" style=font-size:11px;color:000000><strong><b>

<% If entrega_motoboy="Sim" then %>

<% End If %>

<% If entrega_encomenda="Sim" then %>

<% End If %>

<% If entrega_download="Sim" then %>

<% End If %>

<% If entrega_sedex="Sim" then %>

<input type="radio" value="sedex" name="opcao_entrega" onClick="show3();hide1();hide2()" <%if session("modo_entrega")="sedex" then response.write "checked"%>> Sedex

<% End If %>

style="visibility:visible;position:absolute;"

<% else %>

style="visibility:hidden;position:absolute;"

<% End If %>>

<%

estaos = request("frete")

if estaos="acc" then e1 = "selected" end if

if estaos="acx" then e2 = "selected" end if

if estaos="alc" then e3 = "selected" end if

if estaos="alx" then e4 = "selected" end if

if estaos="apc" then e5 = "selected" end if

if estaos="apx" then e6 = "selected" end if

if estaos="amc" then e7 = "selected" end if

if estaos="amx" then e8 = "selected" end if

if estaos="bac" then e9 = "selected" end if

if estaos="bax" then e10 = "selected" end if

if estaos="cec" then e11 = "selected" end if

if estaos="cex" then e12 = "selected" end if

if estaos="dfc" then e13 = "selected" end if

if estaos="dfx" then e14 = "selected" end if

if estaos="esc" then e15 = "selected" end if

if estaos="esx" then e16 = "selected" end if

if estaos="goc" then e17 = "selected" end if

if estaos="gox" then e18 = "selected" end if

if estaos="mac" then e19 = "selected" end if

if estaos="max" then e20 = "selected" end if

if estaos="mtc" then e21 = "selected" end if

if estaos="mtx" then e22 = "selected" end if

if estaos="msc" then e23 = "selected" end if

if estaos="msx" then e24 = "selected" end if

if estaos="mgc" then e25 = "selected" end if

if estaos="mgx" then e26 = "selected" end if

if estaos="pac" then e27 = "selected" end if

if estaos="pax" then e28 = "selected" end if

if estaos="pbc" then e29 = "selected" end if

if estaos="pbx" then e30 = "selected" end if

if estaos="prc" then e31 = "selected" end if

if estaos="prx" then e32 = "selected" end if

if estaos="pec" then e33 = "selected" end if

if estaos="pex" then e34 = "selected" end if

if estaos="pic" then e35 = "selected" end if

if estaos="pix" then e36 = "selected" end if

if estaos="rjc" then e37 = "selected" end if

if estaos="rjx" then e38 = "selected" end if

if estaos="rnc" then e39 = "selected" end if

if estaos="rnx" then e40 = "selected" end if

if estaos="rsc" then e41 = "selected" end if

if estaos="rsx" then e42 = "selected" end if

if estaos="roc" then e43 = "selected" end if

if estaos="rox" then e44 = "selected" end if

if estaos="rrc" then e45 = "selected" end if

if estaos="rrx" then e46 = "selected" end if

if estaos="scc" then e47 = "selected" end if

if estaos="scx" then e48 = "selected" end if

if estaos="spc" then e49 = "selected" end if

if estaos="spx" then e50 = "selected" end if

if estaos="sec" then e51 = "selected" end if

if estaos="---" then e52 = "selected" end if

if estaos="toc" then e53 = "selected" end if

if estaos="tox" then e54 = "selected" end if %>

<font face="<%=fonte%>" style=font-size:11px;color:000000><strong>Valor da entrega em </strong></font><form name="estado"><select name="estado" style=font-size:10px;font-family:<%=fonte%>; onChange="jumpTo(this);"><option value=""><%=strLg185%></option> <option value="">--------------------------------------</option>

<option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_ac%>acc" <%=e1%>>Acre - Capital</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_ac%>acx" <%=e2%>>Acre - Interior</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_al%>alc" <%=e3%>>Alagoas - Capital</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_al%>alx" <%=e4%>>Alagoas - Interior</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_ap%>apc" <%=e5%>>Amapá - Capital</option> <option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_ap%>apx" <%=e6%>>Amapá - Interior</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_am%>amc" <%=e7%>>Amazonas - Capital</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_am%>amx" <%=e8%>>Amazonas - Interior</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_ba%>bac" <%=e9%>>Bahia - Capital</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_ba%>bax" <%=e10%>>Bahia - Interior</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_ce%>cec" <%=e11%>>Ceará - Capital</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_ce%>cex" <%=e12%>>Ceará - Interior</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_df%>dfc" <%=e13%>>Distrito Federal - Capital</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_df%>dfx" <%=e14%>>Distrito Federal - Interior</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_es%>esc" <%=e15%>>Espirito Santo - Capital</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_es%>esx" <%=e16%>>Espirito Santo - Interior</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_go%>goc" <%=e17%>>Goiás - Capital</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_go%>gox" <%=e18%>>Góiás - Interior</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_ma%>mac" <%=e19%>>Maranhão - Capital</option>

<option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_ma%>max" <%=e20%>>Maranhão - Interior</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_mt%>mtc" <%=e21%>>Mato Grosso - Capital</option><option value="atualizapedido.asp?modo_entrega=encomenda&estado=<%=estado_mt%

kania · Março 10, 2006

Ninguem pessoal....

Salgado · Março 10, 2006

Separe em seu código a parte que acrescenta os dados ao Carrinho por gentileza?

Entrar

Arquivado

Carrinho de Compras

Recommended Posts

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante