Ir para conteúdo
Fórum Script Brasil

joersbrasil

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    7

  • Registro em

  • Última visita

Sobre joersbrasil

joersbrasil's Achievements

0

Reputação

  1. joersbrasil
    Precisava de uma ajuda rápidamente em um script ajax Quero que quando selecione o estado apareça um loading.gif até que carregue todas as cidade referentes ao estado selecionado, e aí sim substituí o loading.gif pela combobox. Vocês podem me ajudar com isso gostaria de dar um visual mais profissional, ficaria muito grato. O script funciona perfeitamente só gostaria de acrescentar este recurso. Segue o script abaixo. //inicio do script ajax var xmlHttp /* Essa function manda a ID selecionada do combo de estados para a pgina que ir filtrar as cidades */ function MandaID(str) { xmlHttp=GetXmlHttpObject() if (xmlHttp==null) { alert ("Este browser no suporta HTTP Request") return } var url="seleciona_cidade.asp" // o arquivo que ir executar a SQL das cidades url=url+"?id_estado="+str // recebe o ID do estado para filtrar as cidade url=url+"&sidjs="+Math.random() xmlHttp.onreadystatechange=stateChanged xmlHttp.open("GET",url,true) xmlHttp.send(null) } /* Essa function ira exibir o resultado na DIV */ function stateChanged() { if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete") { document.getElementById("exibe_cidade").innerHTML=xmlHttp.responseText } } /* Instancia */ function GetXmlHttpObject() { var objXMLHttp=null if (window.XMLHttpRequest) { objXMLHttp=new XMLHttpRequest() } else if (window.ActiveXObject) { objXMLHttp=new ActiveXObject("Microsoft.XMLHTTP") } return objXMLHttp } function ExibeIds() { var Estado = document.getElementById('state'); var Cidade = document.getElementById('city'); if (Estado.value != '' && Cidade.value != '') alert('ID do estado : ' + Estado.value + ' (' + Estado.options[Estado.options.selectedIndex].text + ')' + '\n\n' + 'ID da cidade : ' + Cidade.value + ' (' + Cidade.options[Cidade.options.selectedIndex].text + ')'); } // fim do script ajax
  2. joersbrasil
    Pra facilitar a vida de vocês estou postando uma ferramenta muito útil a todos. Este script faz com que carregue automaticamente sem recarregar a página os dados de um banco de dados qualquer. Para isto basta carregar o arquivo apropriado. É igual ao recurso do facebook carrega os posts automaticamente. Qualquer dúvidas fale comigo em: joersbrasil@gmail.com <html> <style> body{margin: 0px;} </style> <body> <script type="text/javascript"> function Ajax(){ var xmlHttp; try{ xmlHttp=new XMLHttpRequest();// Firefox, Opera 8.0+, Safari } catch (e){ try{ xmlHttp=new ActiveXObject("Msxml2.XMLHTTP"); // Internet Explorer } catch (e){ try{ xmlHttp=new ActiveXObject("Microsoft.XMLHTTP"); } catch (e){ alert("No AJAX!?"); return false; } } } xmlHttp.onreadystatechange=function(){ if(xmlHttp.readyState==4){ document.getElementById('ReloadThis').innerHTML=xmlHttp.responseText; setTimeout('Ajax()',990); } } xmlHttp.open("GET","Seu_arquivo_aqui",true); xmlHttp.send(null); } window.onload=function(){ setTimeout('Ajax()',990); } </script> <div id="ReloadThis"></div> </body> </html>
  3. joersbrasil
  4. joersbrasil
    Estou com serio problema para validar e-mail e login ou valida um ou valida outro, mas um sempre acaba indo para o banco mySql: Alguém pode me ajudar por favor? Ficarei imensamente grato! Segue o código abaixo: <% Dim email,redirloja if request("acao") = "incluir" then 'INFORMAÇÃO PARA LOGIN DA LOJA ************************ email = hash(Request.Form("email")) redirloja = request.form("redirloja") 'Checa se já existe esse usuario set chk_usuario = conexao.Execute("SELECT email FROM loja WHERE email='"& email & "'") If Not (chk_usuario.EOF) Then login = "" login="sim" Dim chk_usuario set chk_usuario = conexao.Execute("SELECT redirloja FROM loja WHERE redirloja = '"& redirloja & "'")' verifica se o e-mail já existe no banco If Not (chk_usuario.EOF) or redirloja = "images" or redirloja = "produtos" or redirloja = "images" or redirloja = "emails" or redirloja = "js" or redirloja = "lang" Then %> <tr width=100% bgcolor="#FBFDE1"><td width=100% valign=midlle><font color=red>Esse E-mail (<strong><%=hash(email)%></strong>) já está em uso!</font><br>Tente um outro novamente.</td></tr> <% end if %> <tr width=100% bgcolor="#FBFDE1"><td width=100% valign=midlle><font color=red>Esse Nome para a loja (<strong><%=redirloja%></strong>) já está em uso!</font><br>Tente um outro novamente.</td></tr> <% Else conexao.execute("INSERT INTO loja(email,redirloja) values('"&email&"','"&redirloja&"')") ' grava os dados no banco %> <tr width=100% bgcolor="#DCE7DE"><td width=100% valign=midlle><h3>Seus dados foram cadastrados com sucesso</h3></td></tr> <% login="não" End If End if If Not (login = "não") Then 'esconde o formulário de cadastro %>
  5. joersbrasil
    PROBLEMA RESOLVIDO! Mas mesmo assim fico muito grato pelo seu interesse, se eu puder ajuda-lo em algo me procure. Me add no MSN cvidesign@hotmail.com Coloquei este código abaixo no carrinhodecompras.asp Simulei que se o carrinho está vazio mostrar compras ------------------------------------------------------------------------------------------------------------------------------------------------- set rs = conexao.execute("SELECT * FROM compras Order where idlojista = '"& session("lojaid") &"' by idcompra desc") if rs.eof then Session("orderID") = 1 session("valor_cpdesconto") = null session("valor_cpvalor") = null session("utilizando_cupomdesconto") = "não" conexao.Execute("INSERT INTO compras (cotacao, idcompra, datacompra, status,idlojista) values ('"&loja("cotacao_dia")&"','" &session("orderID") & "', '" & dia & "/"&mes&"/"&year(date)&"', 'Compra em Aberto','"& IDLoja &"')") else Session("orderID") = rs("idcompra") + 1 conexao.Execute("INSERT INTO compras (cotacao, idcompra, datacompra, status,idlojista) values ('"&loja("cotacao_dia")&"', " &session("orderID") & ", '" & dia & "/"&mes&"/"&year(date)&"','Compra em Aberto','"& IDLoja &"')") end if -------------------------------------------------------------------------------------------------------------------------------------------------
  6. joersbrasil
    Te mando o arquivo Atualizapedido.asp para você dar uma analisada. <% if request("cupomdesconto") <> "" then set verc = conexao.execute("SELECT * FROM cupom where idlojista = '"& IDLoja &"' and codigo='"&request("cupomdesconto")&"' and utilizado='n'") if verc.eof or verc.bof then response.redirect "carrinhodecompras.asp?IDLoja="& IDLoja &"&erro=O cupom desconto informado já foi utilizado ou não é válido !" else session("utilizando_cupomdesconto") = "sim" session("valor_cpdesconto") = verc("valor") session("tipo_cpdesconto") = verc("tipo") session("cupomdesconto") = verc("codigo") end if end if set verc = nothing set rsceploja=conexao.execute("select cep from loja id = "& IDLoja) ceploja = rsceploja("cep") CEP = request("cep1") & request("cep2") if CEP = "" then cep = session("PesoTotalCep") else session("cep_entrega") = cep end if 'Request("vvcep") session("PesoTotalCep") = Replace(Replace(Replace(Replace(CEP, "-", ""), "/", ""), "\", ""), "'", "") 'Remove os itens do carrinho do compras if request.querystring("acao") = "remover" then produtoz = request.querystring("produto") intOrderID = cstr(Session("orderID")) conexao.Execute("DELETE FROM pedidos where idlojista = '"& IDLoja &"' and idcompra='"&intOrderID&"' AND idprod='"&produtoz&"' and especificacoes='"&request("esp")&"';") end if if Cstr(CEP) = Cstr("") then response.redirect "carrinhodecompras.asp?IDLoja="& IDLoja &"&Tarifa=0" end if 'cria o valor do frete session("estado2") = request("frete") 'Retorna se a compra estiver vazia if cstr(Session("orderID")) = "" then response.redirect("carrinhodecompras.asp?IDLoja="& IDLoja &"") end if if Cstr(CEP) = Cstr("") then response.redirect "carrinhodecompras.asp?IDLoja="& IDLoja &"&Tarifa=0" end if 'CALCULO DE FRETE USANDO A ROTINA DOS CORREIOS 'Chama os produtos comprados intOrderID = Session("orderID") set pedidos = conexao.Execute("SELECT idprod, quantidade FROM pedidos where idlojista = '"& IDLoja &"' and idcompra='" & intOrderID & "'") if pedidos.eof then else while not pedidos.EOF idprod = pedidos("idprod") quantidade = pedidos("quantidade") set produtos = conexao.Execute("SELECT preço, nome, peso FROM produtos where idlojista = '"& IDLoja &"' and idprod="&idprod&";") preço = produtos("preço") peso = produtos("peso") nome = produtos("nome") intProdID = idprod strProdNome = nome pesoz = peso intProdPrice = preço intQuant = quantidade if session("estado") = "" then intFrete = 0 else intFrete = valorfrete end if 'Calcula o total do frete intTotalFrete = 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) - 1 produtos.Close set produtos = Nothing pedidos.MoveNext wend end if pedidos.Close set pedidos = Nothing Session("PesoTotalFrete") = FormatNumber(pesototal, 3) suacompra = formatNumber(intTotal,2) UrlRetorno = "http://" & request.servervariables("Server_Name") & request.servervariables("Url") UrlRetorno = Replace(UrlRetorno, "atualizapedido.asp", "carrinhodecompras.asp?IDLoja="& IDLoja &"&atualiza=ok") if Session("PesoTotalFrete") < 1 then Session("PesoTotalFrete")=1 else if instr(Session("PesoTotalFrete"),",")<>0 then Session("PesoTotalFrete")=replace(Session("PesoTotalFrete"),",",".") else if Session("PesoTotalFrete") > 30 then Session("PesoTotalFrete")=30 end if end if end if If cep >= 69900000 And cep <= 69999999 Then If cep >= 69900000 And cep <= 69920999 Then Estado = estado_ac &"acc" session("Frete_local") = "Acre - Capital" else Estado = estado_ac &"acx" session("Frete_local") = "Acre - Interior" end if ElseIf cep >= 57000000 And cep <= 57999999 Then If cep >= 57000000 And cep <= 57099999 Then Estado = estado_al &"alc" session("Frete_local") = "Alagoas - Capital" else Estado = estado_al &"alx" session("Frete_local") = "Alagoas - Interior" end if ElseIf cep >= 68900000 And cep <= 68999999 Then If cep >= 68900000 And cep <= 68909999 OR cep >= 68925000 And cep <= 68929999 Then Estado = estado_ap &"apc" session("Frete_local") = "Amapá - Capital" else Estado = estado_ap &"apx" session("Frete_local") = "Amapá - Interior" end if ElseIf cep >= 69000000 And cep <= 69899999 Then If cep >= 69000000 And cep <= 69099999 Then Estado = estado_am &"amc" session("Frete_local") = "Amazonas - Capital" else Estado = estado_am &"amx" session("Frete_local") = "Amazonas - Interior" end if ElseIf cep >= 40000000 And cep <= 48999999 Then If cep >= 40000000 And cep <= 43849999 OR cep >= 44450000 And cep <= 44470999 Then Estado = estado_ba &"bac" session("Frete_local") = "Bahia - Capital" else Estado = estado_ba &"bax" session("Frete_local") = "Bahia - Interior" end if ElseIf cep >= 60000000 And cep <= 63999999 Then If cep >= 60000000 And cep <= 61699999 OR cep >= 61900000 And cep <= 61939999 Then Estado = estado_ce &"cec" session("Frete_local") = "Ceará - Capital" else Estado = estado_ce &"cex" session("Frete_local") = "Ceará - Interior" end if ElseIf cep >= 70000000 And cep <= 72799999 Then If cep >= 70000000 And cep <= 72799999 OR cep >= 73000999 And cep <= 73699999 Then Estado = estado_df &"dfc" session("Frete_local") = "Distrito Federal - Capital" else Estado = estado_df &"dfx" session("Frete_local") = "Distrito Federal - Interior" end if ElseIf cep >= 29000000 And cep <= 29999999 Then If cep >= 29000000 And cep <= 29184999 Then Estado = estado_es &"esc" session("Frete_local") = "Espirito Santo - Capital" else Estado = estado_es &"esx" session("Frete_local") = "Espirito Santo - Interior" end if ElseIf cep >= 72800000 And cep <= 76999999 Then If cep >= 74000000 And cep <= 74999999 OR cep >= 75250000 And cep <= 75259999 Then Estado = estado_go &"goc" session("Frete_local") = "Goiás - Capital" else Estado = estado_go &"gox" session("Frete_local") = "Góiás - Interior" end if ElseIf cep >= 65000000 And cep <= 65999999 Then If cep >= 65000000 And cep <= 65099999 Then Estado = estado_ma &"mac" session("Frete_local") = "Maranhão - Capital" else Estado = estado_ma &"max" session("Frete_local") = "Maranhão - Interior" end if ElseIf cep >= 78000000 And cep <= 78899999 Then If cep >= 78000000 And cep <= 78169999 Then Estado = estado_mt &"mtc" session("Frete_local") = "Mato Grosso - Capital" else Estado = estado_mt &"mtx" session("Frete_local") = "Mato Grosso - Interior" end if ElseIf cep >= 79000000 And cep <= 79999999 Then If cep >= 79000000 And cep <= 79124999 Then Estado = estado_ms &"msc" session("Frete_local") = "Mato Grosso do Sul - Capital" else Estado = estado_ms &"msx" session("Frete_local") = "Mato Grosso do Sul - Interior" end if ElseIf cep >= 30000000 And cep <= 39999999 Then If cep >= 30000000 And cep <= 34999999 Then Estado = estado_mg &"mgc" session("Frete_local") = "Minas Gerais - Capital" else Estado = estado_mg &"mgx" session("Frete_local") = "Minas Gerais - Interior" end if ElseIf cep >= 66000000 And cep <= 68899999 Then If cep >= 66000000 And cep <= 67999999 Then Estado = estado_pa &"pac" session("Frete_local") = "Pará - Capital" else Estado = estado_pa &"pax" session("Frete_local") = "Pará - Interior" end if ElseIf cep >= 58000000 And cep <= 58999999 Then If cep >= 58000000 And cep <= 58099999 Then Estado = estado_pb &"pbc" session("Frete_local") = "Paraiba - Capital" else Estado = estado_pb &"pbx" session("Frete_local") = "Paraiba - Interior" end if ElseIf cep >= 80000000 And cep <= 87999999 Then If cep >= 80000000 And cep <= 83189999 OR cep >= 83300000 And cep <= 83349999 OR cep >= 83400000 And cep <= 83749999 OR cep >= 83800000 And cep <= 83939999 Then Estado = estado_pr &"prc" session("Frete_local") = "Parana - Capital" else Estado = estado_pr &"prx" session("Frete_local") = "Parana - Interior" end if ElseIf cep >= 50000000 And cep <= 56999999 Then If cep >= 50000000 And cep <= 53989999 OR cep >= 54000000 And cep <= 54799999 Then Estado = estado_pe &"pec" session("Frete_local") = "Pernambuco - Capital" else Estado = estado_pe &"pex" session("Frete_local") = "Pernambuco - Interior" end if ElseIf cep >= 64000000 And cep <= 64999999 Then If cep >= 64000000 And cep <= 64999999 Then Estado = estado_pi &"pic" session("Frete_local") = "Piauí - Capital" else Estado = estado_pi &"pix" session("Frete_local") = "Piauí - Interior" end if ElseIf cep >= 20000000 And cep <= 28999999 Then If cep >= 20000000 And cep <= 23799999 OR cep >= 24000000 And cep <= 24799999 Then Estado = estado_rj &"rjc" session("Frete_local") = "Rio de Janeiro - Capital" else Estado = estado_rj &"rjx" session("Frete_local") = "Rio de Janeiro - Interior" end if ElseIf cep >= 59000000 And cep <= 59999999 Then If cep >= 59000000 And cep <= 59149999 Then Estado = estado_rn &"rnc" session("Frete_local") = "Rio Grande do Norte - Capital" else Estado = estado_rn &"rnx" session("Frete_local") = "Rio Grande do Norte - Interior" end if ElseIf cep >= 90000000 And cep <= 99999999 Then If cep >= 90000000 And cep <= 91999999 Then Estado = estado_rs &"rsc" session("Frete_local") = "Rio Grande do Sul - Capital" else Estado = estado_rs &"rsx" session("Frete_local") = "Rio Grande do Sul - Interior" end if ElseIf cep >= 78900000 And cep <= 78999999 Then If cep >= 78900000 And cep <= 78924999 Then Estado = estado_ro &"roc" session("Frete_local") = "Rondônia - Capital" else Estado = estado_ro &"rox" session("Frete_local") = "Rondônia - Interior" end if ElseIf cep >= 69300000 And cep <= 69399999 Then If cep >= 69300000 And cep <= 69339999 Then Estado = estado_rr &"rrc" session("Frete_local") = "Roraima - Capital" else Estado = estado_rr &"rrx" session("Frete_local") = "Roraima - Interior" end if ElseIf cep >= 77000000 And cep <= 77999999 Then If cep >= 77000000 And cep <= 77299999 Then Estado = estado_to &"toc" session("Frete_local") = "Tocantins - Capital" else Estado = estado_to &"tox" session("Frete_local") = "Tocantins - Interior" end if ElseIf cep >= 88000000 And cep <= 89999999 Then If cep >= 88000000 And cep <= 88149999 OR cep >= 88160000 And cep <= 888179999 Then Estado = estado_sc &"scc" session("Frete_local") = "Santa Catarina - Capital" else Estado = estado_sc &"scx" session("Frete_local") = "Santa Catarina - Interior" end if ElseIf cep >= 01000000 And cep <= 19999999 Then If cep >= 01000000 And cep <= 09999999 Then Estado = estado_sp &"spc" session("Frete_local") = "São Paulo - Capital" else Estado = estado_sp &"spx" session("Frete_local") = "São Paulo - Interior" end if ElseIf cep >= 49000000 And cep <= 49999999 Then If cep >= 49000000 And cep <= 49099999 Then Estado = estado_se &"sec" session("Frete_local") = "Sergipe - Capital" else Estado = estado_se &"sex" session("Frete_local") = "Sergipe - Interior" end if End If pesoz = int(pesototal) estadozx = mid(estado,2,3) fretexz = right(estado,1) numerox = left(estado,1) '41017 - Encomenda Normal url_correios = "http://www.correios.com.br/encomendas/precos/calculo.cfm?servico=41106&cepDestino="& session("PesoTotalCep") &"&CepOrigem="& loja("cep") &"&peso="& Session("PesoTotalFrete") &"" Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP") objXMLHTTP.open "post", url_correios,false objXMLHTTP.send ValorBox = objXMLHTTP.responseText set objXMLHTTP = nothing p = right(valorbox,len(valorbox)-instr(valorbox,"Tarifa")) s = right(p,len(p)-instr(p,"Tarifa")) enc = replace(replace(left(right(s,len(s)-6),5),"&",""),".",",") enc = replace(enc, "e", "") enc = replace(enc, "r", "") enc = replace(enc, "a", "") enc = replace(enc, "u", "") enc = replace(enc, "i", "") if enc = "0rr" then session("frete_encomenda") = "não" else session("frete_encomenda") = enc end if '40010 = Sedex Convencional url_correios="http://www.correios.com.br/encomendas/precos/calculo.cfm?Servico=40010&CepDestino="& session("PesoTotalCep") &"&CepOrigem="& ceploja &"&Peso="& Session("PesoTotalFrete") &"&ValorDeclarado="& Replace(PesoValorTotal, ".", "") &"&MaoPropria="& mao_propria Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP") objXMLHTTP.open "post", url_correios,false objXMLHTTP.send ValorBox = objXMLHTTP.responseText set objXMLHTTP = nothing primeira_tarifa = right(valorbox,len(valorbox)-instr(valorbox,"Tarifa")) segunda_tarifa = right(primeira_tarifa,len(primeira_tarifa)-instr(primeira_tarifa,"Tarifa")) final_sedex = replace(replace(left(right(segunda_tarifa,len(segunda_tarifa)-6),5),"&",""),".",",") final_sedex = left(final_sedex,instr(final_sedex,"e")-1) 'end if 'session("PesoTotalValor") = final session("Frete_sedex") = final_sedex 'Opção de SEDEX 10 '40215 = Sedex 10 ' url_correios="http://www.correios.com.br/encomendas/precos/calculo.cfm?Servico=40215&CepDestino="& session("PesoTotalCep") &"&CepOrigem="& loja("cep") &"&Peso="& Session("PesoTotalFrete") &"" ' Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP") ' objXMLHTTP.open "post", url_correios,false ' ' objXMLHTTP.send ' ValorBox = objXMLHTTP.responseText ' set objXMLHTTP = nothing ' RESPONSE.WRITE ValorBox 'response.end ' primeira_tarifa = right(valorbox,len(valorbox)-instr(valorbox,"Tarifa")) ' segunda_tarifa = right(primeira_tarifa,len(primeira_tarifa)-instr(primeira_tarifa,"Tarifa")) ' final_sedex_10 = replace(replace(left(right(segunda_tarifa,len(segunda_tarifa)-6),5),"&",""),".",",") ' final_sedex_10 = left(final_sedex_10,instr(final_sedex_10,"e")-1) 'session("Frete_sedex_10") = final_sedex_10 'Opção de SEDEX À COBRAR '40045 = Sedex à cobrar url_correios="http://www.correios.com.br/encomendas/precos/calculo.cfm?Servico=40045&CepDestino="& session("PesoTotalCep") &"&CepOrigem="& loja("cep") &"&Peso="& Session("PesoTotalFrete") &"&AvisoRecebimento=n&ValorDeclarado="& Replace(suacompra, ".", "") &"&MaoPropria="& mao_propria Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP") objXMLHTTP.open "post", url_correios,false objXMLHTTP.send ValorBox = objXMLHTTP.responseText set objXMLHTTP = nothing primeira_tarifa = right(valorbox,len(valorbox)-instr(valorbox,"Tarifa")) segunda_tarifa = right(primeira_tarifa,len(primeira_tarifa)-instr(primeira_tarifa,"Tarifa")) final_sedex_cobrar = replace(replace(left(right(segunda_tarifa,len(segunda_tarifa)-6),5),"&",""),".",",") session("Frete_sedex_cobrar") = final_sedex_cobrar if right(estado,3) = loja("mtb") then session("motoboy") = True session("Frete_motoboy") = loja("valor_motoboy") else session("motoboy") = False end if if request("frete") = "sedex" then session("modo_entrega") = "sedex" session("PesoTotalValor") = session("frete_sedex") elseif request("frete") = "sedex_10" then session("modo_entrega") = "sedex_10" session("PesoTotalValor") = session("frete_sedex_10") elseif request("frete") = "carta_registrada" then session("modo_entrega") = "carta_registrada" session("PesoTotalValor") = loja("carta_registradavalor") elseif request("frete") = "transportadora" then session("modo_entrega") = "Transportadora" session("PesoTotalValor") = 0 elseif request("frete") = "sedex_cobrar" then session("modo_entrega") = "sedex_cobrar" session("PesoTotalValor") = session("Frete_sedex_cobrar") elseif request("frete") = "encomenda" or request("frete") = "" then session("modo_entrega") = "encomenda" session("PesoTotalValor") = session("frete_encomenda") elseif request("frete") = "motoboy" then session("modo_entrega") = "motoboy" session("PesoTotalValor") = session("Frete_motoboy") elseif request("frete") = "transcobrar" then session("modo_entrega") = "transportadora_cobrar" session("PesoTotalValor") = 0 end if response.redirect UrlRetorno %>
  7. joersbrasil
    Estou com um probleminha sério e nem sei como resolver isto. Estou desenvolvendo um shopping virtual com lojas centralizadas no MySql. 1º Problema o rs.recordcount não funciona de jeito nenhum com o MySql. 2º Tenho uma loja centralizadas através de indices, meu problema maior é no carrinho de compras, porque quando eu estou na loja IDLoja=9 eu faço uma compra até aí tudo ok ele add beleza o item, mas se eu mudo de IDLoja para IDLoja=4 e volto logo após para IDLoja=9 o carrinho está vazio, mas se eu add um produto novamente no IDLoja=9 aparece de volta o produto anterior que comprei antes e o atual comprado, ficando assim os 2 produtos inserdos. Gostaria de mudar de loja e permanecer os itens comprados nela. Façam o teste se quiserem: http://www.cvidesign.com.br/store efetuem uma compra lá no IDLoja=4 ou 9 apenas estes tem produtos cadastrados p/ testar. Compre vai inserir no carrinho, depois mude para o outro IDLoja, logo em seguida volte para o IDLoja que você comprou. Segue o script abaixo para dar fazer uma analize Não sei! Mas desconfio que o problema é por aqui: < % while not pedidos.eof set prod = conexao.execute("SELECT * FROM produtos where idlojista = '"& IDLoja &"' and idprod='"&pedidos("idprod")&"'") if prod("transportadora")="Sim" then session("sotransportadora")="Sim" end if pesototal = 1 + FormatNumber(pesototal, 3) + FormatNumber((prod("peso") * pedidos("quantidade")), 3) - 1 Session("PesoTotalFrete") = FormatNumber(pesototal, 3) if prod("moeda") = "dolar" then preco_produto = formatNumber(prod("preço")*loja1("cotacao_dia"), 2) else preco_produto = formatNumber(prod("preço"), 2) end if totalumprod = formatNumber(pedidos("quantidade") * preco_produto,2) totalprod = formatnumber(1 + totalprod + totalumprod - 1,2) session("total_produtos") = totalprod valortotaldacompra = 1 + session("PesoTotalValor") + totalprod - 1 if session("utilizando_cupomdesconto") = "sim" then if session("tipo_cpdesconto") = "dinheiro" then valortotal = 1+session("PesoTotalValor")+totalprod-session("valor_cpdesconto")-1 else valortotal = 1 + session("PesoTotalValor")+totalprod - (1 + session("PesoTotalValor")+totalprod * session("valor_cpdesconto") / 100) end if else valortotal = 1 + session("PesoTotalValor") + totalprod - 1 end if % >
×
×
  • Criar Novo...