<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.4
' Data: 07/05/07
' Arquivo: conta_usuario_rastreio_pedido.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 12/05/08
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-
%>
<%
'Caso a página corrente não seja o carrinho de compras é feito a checagem de caracteres.
If page <> "carrinho" Then
'Verifica a existência de caracteres inválidos inclui neste caso palavras como UPDATE/DELETE/SELECT/ETC...
Call Valida_Request()
Else
'Verifica a existência de caracteres inválidos, apenas caracteres.
Call Valida_RequestCarrinho()
End if
'Carrega a configuração dos caminhos a serem usuados na Loja
Call identifica_caminhos()
If request("lang") <> "" Then
Session("requestIdioma") = request("lang")
varLang = Session("requestIdioma")
End If
'Caso exista um cookie de algum pedido anterior o id_transacao será recriado a partir dele.
If session("id_transacao") = "" And Request.Cookies(Application("NomeLoja"))("id_transacao") <> "" Then
session("id_transacao") = Request.Cookies(Application("NomeLoja"))("id_transacao")
session("user_id") = Request.Cookies(Application("NomeLoja"))("user_id")
End if
'Se existir a id_transacao o idioma de exibição será capturado do arquivo do pedido
If session("id_transacao") <> "" Then
If VerificaExistenciaArquivo(Application("DiretorioPedidos")&session("id_transacao")&".xml") Then
varLangUser = pegaValorAtrib(Application("DiretorioPedidos")&session("id_transacao")&".xml","dados_pedido","idioma")
session("varLangUser") = varLangUser
Else
session("id_transacao") = ""
session("varLangUser") = ""
End If
End If
If varLangUser <> "" Then
varLang = varLangUser
Else
varLang = Application("varLang")
End if
varSkin = "default"
'Assume a string dos idiomas configurados
checkIdioma = Application("idiomasconfigurados")
veIdiomas = Split(checkIdioma, ",")
'Checa se o usuário está autenticado
If Session("logado") = "" Then
Response.Redirect "autentica.asp?lang="&varLang&"&tipo_acesso=conta"
End if
%>
<%= Application("nome_loja")%>
<%
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
%>