<!-- #include file="funcoes.asp" -->
<%
if request("cupomdesconto") <> "" then
set verc = conexao.execute("SELECT * FROM cupom WHERE codigo='"&request("cupomdesconto")&"' and utilizado='n'")
if verc.eof or verc.bof then
response.redirect "carrinhodecompras.asp?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")
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 idcompra='"&intOrderID&"' AND idprod='"&produtoz&"' and especificacoes='"&request("esp")&"';")
end if

	if Cstr(CEP) = Cstr("") then
		response.redirect "carrinhodecompras.asp?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")
end if

if Cstr(CEP) = Cstr("") then
	response.redirect "carrinhodecompras.asp?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 idcompra='" & intOrderID & "'")
	if pedidos.eof then

	else
		while not pedidos.EOF
		idprod = pedidos("idprod")
		quantidade = pedidos("quantidade")
		set produtos = conexao.Execute("SELECT preco, nome, peso FROM produtos WHERE idprod="&idprod&";")
		preco = produtos("preco")
		peso = produtos("peso")
		nome = produtos("nome")
		intProdID = idprod
		strProdNome = nome
		pesoz = peso
		intProdPrice = preco
		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?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") = "nao"
 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
%>