Problemas com carrinho de compras p/ lojas centralizadas

[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

% >

Edited October 15, 2011 by joersbrasil

[Espartaco]

Olá, bom dia...

Tenta criar uma session para a loja e uma para a compra

No carrinho você colocaria:

set rsCar= Conexao.Execute ("SELECT * FROM pedidos WHERE pedido_id="&Session("OrdemId")&" and loja="&Session("LojaId")&"")

Lá na página que adiciona o pedido ao carrinho, tu poderia fazer algo como:

If Session("OrdemId") = "" Then
     Sql = "SELECT MAX(pedido_id) AS max_pedido_id FROM pedidos where loja="&Session("LojaId")&"" 
     Set rsMax = Server.CreateObject("ADODB.Recordset")     
     rsMax.Open Sql, ConStr, 3, 3
            If IsNull(rsMax("max_pedido_id")) Then
                novo_pedido_id = 10000
    Else
                novo_pedido_id = rsMax("max_pedido_id") + 1
            End If
        Session("OrdemId") = Cint(novo_pedido_id)
End If

[joersbrasil]

Olá, bom dia...

Tenta criar uma session para a loja e uma para a compra

No carrinho você colocaria:

set rsCar= Conexao.Execute ("SELECT * FROM pedidos WHERE pedido_id="&Session("OrdemId")&" and loja="&Session("LojaId")&"")

Lá na página que adiciona o pedido ao carrinho, tu poderia fazer algo como:

If Session("OrdemId") = "" Then
     Sql = "SELECT MAX(pedido_id) AS max_pedido_id FROM pedidos where loja="&Session("LojaId")&"" 
     Set rsMax = Server.CreateObject("ADODB.Recordset")     
     rsMax.Open Sql, ConStr, 3, 3
            If IsNull(rsMax("max_pedido_id")) Then
                novo_pedido_id = 10000
    Else
                novo_pedido_id = rsMax("max_pedido_id") + 1
            End If
        Session("OrdemId") = Cint(novo_pedido_id)
End If

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

%>

Edited October 18, 2011 by joersbrasil

[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

-------------------------------------------------------------------------------------------------------------------------------------------------