<%
dim final, objXMLHTTP, primeira_tarifa, ValorBox, segunda_tarifa, url_correios, peso, SEDEX, SEDEX10, ceporigem

SEDEX = "N"
SEDEX10 = "N"
ceporigem = "01222010"

'#########################################
'FRETE GRATUITO PARA COMPRAS A CIMA DE 350 REAIS EM SP
'#########################################
if totalShipPrice >= 400.00 and UCase(shippingLocCountry) = "BR" and (shippingLocState = "SP") then
	erase shipArray
	redim shipArray(100,1)
	shiparray(0,0) = 0
	shiparray(0,1) = "(FRETE GRATUITO)"
else

'###########################################################
'CÁLCULO DE FRETE PARA CAPITAIS E INTERIOR A PARTIR DO PESO ADICIONAL
'###########################################################

if totalShipWeight > 1 then
  peso = fix(totalShipWeight + 1)

select case shippingLocState
case "AC", "AP", "AM", "CE", "MA", "PA", "RN"
  if Ucase(shippingCity) = "RIO BRANCO" OR Ucase(shippingCity) = "MACAPA" OR Ucase(shippingCity) = "MACAPÁ" OR Ucase(shippingCity) = "MANAUS" OR Ucase(shippingCity) = "FORTALEZA" OR Ucase(shippingCity) = "SÃO LUIZ" OR Ucase(shippingCity) = "SAO LUIZ" OR Ucase(shippingCity) = "BELEM" OR Ucase(shippingCity) = "BELÉM" OR Ucase(shippingCity) = "NATAL" Then
    peso = (peso - 1) * 10
  else
    peso = (peso - 1) * 12.8
  end if

case "AL", "SE"
  if Ucase(shippingCity) = "ARACAJU" OR Ucase(shippingCity) = "MACEIÓ" OR Ucase(shippingCity) = "MACEIO" Then
    peso = (peso - 1) * 8
  else
    peso = (peso - 1) * 10.6
  end if

case "BA", "MT", "TO"
  if Ucase(shippingCity) = "SALVADOR" OR Ucase(shippingCity) = "PALMAS" OR Ucase(shippingCity) = "CUIABA" OR Ucase(shippingCity) = "CUIABÁ" Then
    peso = (peso - 1) * 7
  else
    peso = (peso - 1) * 9.6
  end if

case "DF", "ES", "MS", "RS"
  if Ucase(shippingCity) = "BRASILIA" OR Ucase(shippingCity) = "BRASÍLIA" OR Ucase(shippingCity) = "VITORIA" OR Ucase(shippingCity) = "VITÓRIA" OR Ucase(shippingCity) = "CAMPO GRANDE" OR Ucase(shippingCity) = "PORTO ALEGRE" Then
    peso = (peso - 1) * 4
  else
    peso = (peso - 1) * 6.4
  end if

case "GO"
  if Ucase(shippingCity) = "GOIANIA" OR Ucase(shippingCity) = "GOIÂNIA" Then
    peso = (peso - 1) * 6
  else
    peso = (peso - 1) * 8.5
  end if

case "MG", "SC", "RJ", "PR"
  if Ucase(shippingCity) = "BELO HORIZONTE" OR Ucase(shippingCity) = "CURITIBA" OR Ucase(shippingCity) = "RIO DE JANEIRO" OR Ucase(shippingCity) = "FLORIANOPOLIS" OR Ucase(shippingCity) ="FLORIANÓPOLIS" Then
    peso = (peso - 1) * 3
  else
    peso = (peso - 1) * 5.4
  end if

case "PB", "PE", "PI", "RO"
  if Ucase(shippingCity) = "JOAO PESSOA" OR Ucase(shippingCity) = "JOÃO PESSOA" OR Ucase(shippingCity) = "RECIFE" OR Ucase(shippingCity) = "TEREZINA" OR Ucase(shippingCity) ="PORTO VELHO" Then
    peso = (peso - 1) * 9
  else
    peso = (peso - 1) * 11.7
  end if

case "RR"
  if Ucase(shippingCity) = "BOA VISTA" Then
    peso = (peso - 1) * 12
  else
    peso = (peso - 1) * 15
  end if

case "SP"
  if Ucase(shippingCity) = "SAO PAULO" OR Ucase(shippingCity) = "SÃO PAULO" Then
    peso = (peso - 1) * 1
  else
    peso = (peso - 1) * 1.3
  end if
end select

for f = 0 to Ubound(shipArray) 
  if len(shipArray(f,0)) > 0 and isNumeric(shipArray(f,0)) then
    shiparray(f,0) = shiparray(f,0) + peso
  end if
next
end if

'#########################################
'FRETE CALCULADO DIRETO DO SITE DOS CORREIOS
'#########################################
if SEDEX = "S" Then
url_correios="http://www.correios.com.br/encomendas/precos/calculo.cfm?Servico=40010&CepDestino=" & shippingzip & "&CepOrigem=" & ceporigem & "&Peso=" & peso & "&AvisoRecebimento=N&ValorDeclarado=0&MaoPropria=N"
	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 = replace(replace(left(right(segunda_tarifa,len(segunda_tarifa)-6),5),"&",""),".",",")

	shipArray(99,0) = final/100
	shipArray(99,1) = "SEDEX CONVENCIONAL ONLINE"
end if

if SEDEX10 = "S" Then
url_correios="http://www.correios.com.br/encomendas/precos/calculo.cfm?Servico=40215&CepDestino=" & shippingzip & "&CepOrigem=" & ceporigem & "&Peso=" & peso & "&AvisoRecebimento=N&ValorDeclarado=0&MaoPropria=N"
	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 = replace(replace(left(right(segunda_tarifa,len(segunda_tarifa)-6),5),"&",""),".",",")

	shipArray(100,0) = final/100
	shipArray(100,1) = "SEDEX 10"
end if
end if

%>