<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: conta_usuario_rastreio_fedex.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 19/06/07 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#- %> <% 'Carrega a configuração dos caminhos a serem usuados na Loja Call identifica_caminhos() varLang = Application("varLang") If request("lang") <> "" Then Session("requestIdioma") = request("lang") varLang = Session("requestIdioma") End If 'Assume a string dos idiomas configurados checkIdioma = Application("idiomasconfigurados") veIdiomas = Split(checkIdioma, ",") %> <% rodape = "no" 'Checa se o usuário está autenticado If Session("logado") = "" Then Response.Redirect "autentica.asp?lang="&varLang&"&tipo_acesso=conta" End If Server.execute("config/templates/"&varLang&"/textos_lang.asp") Dim aTracking(500,2) Dim aDetails(500,8) codigo_pedido = Request.form("codigo_pedido") If codigo_pedido <> "" Then 'Abre conexão com o Banco de dados Call abre_conexao(conexao) 'Resgata o número AWB do banco de dados Set AWBNumberFEDEX = Server.CreateObject("ADODB.Recordset") Set AWBNumberFEDEX.ActiveConnection = Conexao AWBNumberFEDEX.CursorLocation = 3 AWBNumberFEDEX.CursorType = 0 AWBNumberFEDEX.LockType = 1 'AWBNumberFEDEX.Open "SELECT Transacao_Fedex.fdx_awbnumber, Transacao_Fedex.codigo_pedido, Pedidos.user_id FROM Transacao_Fedex INNER JOIN Pedidos ON Transacao_Fedex.codigo_pedido = Pedidos.codigo_pedido WHERE Pedidos.user_id = '"& Session("user_id") &"' AND Transacao_Fedex.codigo_pedido=" & codigo_pedido, Conexao AWBNumberFEDEX.Open "SELECT Transacao_Fedex.fdx_awbnumber, Transacao_Fedex.codigo_pedido FROM Transacao_Fedex WHERE Transacao_Fedex.codigo_pedido=" & codigo_pedido, Conexao If Not AWBNumberFEDEX.EOF Then awbNumber = AWBNumberFEDEX("fdx_awbnumber") Else awbError = "O pedido solicitado não foi localizado. Possívelmente a mercadoria ainda não foi despachada ao FEDEX." End If AWBNumberFEDEX.close Set AWBNumberFEDEX = Nothing If awbNumber <> "" Then If Application("FedExGateway")="TESTE" Then hostFEDEX = Application("URLTESTEFEDEX") Else hostFEDEX = Application("URLPRODFEDEX") End If urlFEDEX = "https://" & hostFEDEX & "/GatewayDC" TS = "0,""403""1534,""Y""1537,""" & awbNumber & """1538,""0""99,""""" Dim xmlhttp Set xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1") xmlhttp.Open "POST",urlFEDEX,"false" xmlhttp.setRequestHeader "Referer","FedEx" xmlhttp.setRequestHeader "Host", hostFEDEX xmlhttp.setRequestHeader "Accept","image/gif, image/jpeg, image/pjpeg,text/plain, text/html, */*" xmlhttp.setRequestHeader "Content-Type","image/gif" xmlhttp.setRequestHeader "Content-Length", cStr(len(TS)) xmlhttp.send TS ResultBytes= xmlhttp.responseBody status = xmlhttp.status statustext = xmlhttp.statusText End If End If %>

<%=Application("CtusfedexTxtTitFedexRastreio")%> <%=Application("CtusfedexTxtNrPed")%>: "> <% If awbError <> "" Then %> <%= awbError %> <% End If If awbNumber <> "" Then bStartName = false bStartValue = false nTrackingValue = 0 sFieldName = "" sFieldValue = "" nArrayIndex = 0 For index = 1 To UBound( ResultBytes ) + 1 ResStr = ResStr & Chr(AscB(MidB( ResultBytes, index, 1 ))) If Right(ResStr,1) = """" Then If Right(ResStr,2) = ",""" Then bStartValue = true bStartName = false sFieldValue = "" If len(sFieldName) > 0 Then sFieldName = Left(sFieldName, len(sFieldName) - 1) Else bStartName = true bStartValue = false aTracking(nArrayIndex,1) = sFieldName aTracking(nArrayIndex,2) = sFieldValue nArrayIndex = nArrayIndex + 1 sFieldName = "" End If Else If bStartName Then sFieldName = sFieldName + Right(ResStr,1) ElseIf bStartValue Then sFieldValue = sFieldValue + Right(ResStr,1) End If End If Next nDetailIndex = 0 For nI = 1 To Ubound(aTracking) If aTracking(nI,1) = "" Then Exit For If Left(aTracking(nI,1),4) = "1171" Then aDetails(nDetailIndex,1) = aTracking(nI,2) sTrackingCount = right(aTracking(nI,1),Len(aTracking(nI,1)) - InStrRev(aTracking(nI,1),"-")) nDetailIndex = nDetailIndex + 1 ElseIf Left(aTracking(nI,1),4) = "1159" Then aDetails(nDetailIndex,2) = aTracking(nI,2) ElseIf Left(aTracking(nI,1),4) = "1168" Then aDetails(nDetailIndex,3) = aTracking(nI,2) ElseIf Left(aTracking(nI,1),4) = "1711" Then aDetails(nDetailIndex,4) = aTracking(nI,2) ElseIf Left(aTracking(nI,1),4) = "1160" Then aDetails(nDetailIndex,5) = aTracking(nI,2) ElseIf Left(aTracking(nI,1),4) = "1164" Then aDetails(nDetailIndex,6) = aTracking(nI,2) ElseIf Left(aTracking(nI,1),4) = "1162" Then aDetails(nDetailIndex,7) = aTracking(nI,2) ElseIf Left(aTracking(nI,1),4) = "1163" Then aDetails(nDetailIndex,8) = aTracking(nI,2) ElseIf Left(aTracking(nI,1),4) = "29-1" Then %> <%=Application("CtusfedexTxtNrAWB")%>:<%=aTracking(nI,2)%> <% ElseIf Left(aTracking(nI,1),4) = "15-1" Then %> <%=Application("CtusfedexTxtCidadeDest")%>:<%=aTracking(nI,2)%> <% ElseIf Left(aTracking(nI,1),4) = "50-1" Then %> <%=Application("CtusfedexTxtPaisDest")%>:<%=aTracking(nI,2)%> <% ElseIf Left(aTracking(nI,1),6) = "1704-1" Then %> <%=Application("CtusfedexTxtServ")%>:<%=aTracking(nI,2)%> <% ElseIf Left(aTracking(nI,1),6) = "1706-1" Then %> <%=Application("CtusfedexTxtRec")%>:<%=aTracking(nI,2)%> <% End If If aTracking(nI,1) = "1159-1-1" Then %> <%=Application("CtusfedexTxtSitAt")%>:<%=aTracking(nI,2)%> <% End If If aTracking(nI,1) = "2" Then awbError = "erro" %> <%=Application("CtusfedexTxtErro")%>: <%If aTracking(nI,2) = "500139" Then%> <%=Application("CtusfedexTxtNrInv")%> <%ElseIf aTracking(nI,2) = "9040" Then%> <%=Application("CtusfedexTxtPacNEnc")%> <%Else%> <%=aTracking(nI,2)%> - <%=aTracking(nI+1,2)%> <%End If%> <% End If Next If awbError = "" Then %> <% sColor = "#EFEFEF" For nI = 1 To eval(sTrackingCount) If sColor = "#EFEFEF" Then sColor = "#FFFFFF" Else sColor = "#EFEFEF" End If %> <% Next %>  <%=Application("CtusfedexTxtSitPac")%>  <%=Application("CtusfedexTxtCidade")%> <%=Application("CtusfedexTxtPais")%> <%=Application("CtusfedexTxtData")%> <%=Application("CtusfedexTxtHora")%> <% If aDetails(nI,3) <> "" Then Response.Write(" "&aDetails(nI,4)) Else Response.Write(" "&aDetails(nI,2)) End If %>  <%=aDetails(nI,5)%> <%=aDetails(nI,6)%> <%=mid(aDetails(nI,7),7,2)&"/"&mid(aDetails(nI,7),5,2)&"/"&mid(aDetails(nI,7),1,4)%> <%=mid(aDetails(nI,8),1,2)&":"&mid(aDetails(nI,8),3,2)&":"&mid(aDetails(nI,8),5,2)%> <% End If Set xmlhttp = nothing Conexao.Close Set Conexao = Nothing End If %>