<%
If request("track") = "Rastrear" then
Call abre_conexao(conexao)
codigo_pedido = request("codigo_pedido")
If codigo_pedido <> "" Then
tipoFrete = Pega_DadoBanco("Pedidos","tipo_frete","codigo_pedido",codigo_pedido)
numRemessa = Pega_DadoBanco("Pedidos","num_remessa","codigo_pedido",codigo_pedido)
user_IDRastreio = Pega_DadoBanco("Pedidos","user_ID","codigo_pedido",codigo_pedido)
End If
If user_IDRastreio = session("user_id") Then
If Trim(numRemessa) = "" Or numRemessa = "Aguardando número de remessa" Then
msgResultado = Application("CtuspedidoTxtRemNaoLoc")
ElseIf tipoFrete = "SEDEX" Or tipoFrete = "PAC" Or tipoFrete = "E-SEDEX" then
Response.redirect "http://websro.correios.com.br/sro_bin/txect01$.QueryList?P_COD_UNI="&Trim(numRemessa)&"&P_LINGUA=001&P_TIPO=001"
ElseIf tipoFrete = "FEDEX" then
Response.redirect "conta_usuario_rastreio_fedex.asp?track=Rastrear&codigo_pedido="&codigo_pedido
ElseIf tipoFrete = "DIRECT EXPRESS" then
varContaDirectExpress = pegaValorAtrib(Application("XMLArquivoConfiguracao"),"dados/configuracao_dados","ContaDirectExpress")
Response.redirect "http://www.directlog.com.br/tracking/index.asp?valor="&numRemessa&"&tipo=1&cod="&(varContaDirectExpress)&"&logo=1"
ElseIf tipoFrete = "RETIRAR NA LOJA" then
msgResultado = Application("CtuspedidoTxtProdDisp")
ElseIf tipoFrete = UCASE(pegaValorAtrib(Application("XMLArquivoConfiguracao"),"dados/configuracao_dados","NomeFretePersonalizado")) then
msgResultado = Application("CtuspedidoTxtFretePerson") & Trim(numRemessa)
Else
msgResultado = Application("CtuspedidoTxtNumPedNaoLoc")
End If
Else
msgResultado = Application("CtuspedidoTxtNumPedNaoLocUs")
End If
'Fecha a conexão com o banco e libera da memória.
Conexao.Close
Set Conexao = Nothing
End if
%>