<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.5 ' Data: 12/09/06 ' Arquivo: cabecalho.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 04/04/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("nomeConfiguracao"))("id_transacao") <> "" Then session("id_transacao") = Request.Cookies(Application("nomeConfiguracao"))("id_transacao") 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","siglaidioma") 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, ",") %> <% 'Abre conexão com o Banco de dados Call abre_conexao(conexao) 'Carrega as applications com os textos configuráveis Server.execute("config/templates/"&varLang&"/textos_lang.asp") ' Monta a URL da loja If page = "recibo" Then 'Para a página de recibo sURLloja = Application("URLloja") & "/carrinho_vazio.asp?redirect=default" Else 'Para as demais páginas sURLloja = Application("URLloja") & "?lang=" & varLang End If %>

<% If Application("ExibirNomeLoja") <> "não" Then %> <% End If %> <%=Application("nomeloja")%>   <% If UBound(veIdiomas) <> 0 Then If Session("requestIdioma") <> "" Then If InStr(Session("URLloja"),Application("nomeConfiguracao")) Then %> .gif" border="0"> /carrinho_vazio.asp?redirect=sim"><%=Application("topTxtAlterarIdioma")%> <% Else %> .gif" border="0"> /carrinho_vazio.asp?redirect=sim"><%=Application("topTxtAlterarIdioma")%> <% End if Else If checkIdioma <> "" Then Vetor = Split(checkIdioma, ",") If Ubound(Vetor) <> 0 Then For I = 0 To Ubound(Vetor) If Request.querystring.key(Vetor(I)) <> "lang" Then querystring = Replace(Request.querystring(),"lang="&Vetor(I)&"&","") End if %> <% Next End If End If End If End If %>

<%If navegacaocompra = "fim" Then%><%=Application("topTxtMenuEsquerdo")%><%Else response.write Application("topTxtBusca") End if%> <%If navegacaocompra <> "fim" Then%> <%=Application("topLinkHome")%> | "" Then%>href="conta_usuario_cadastro.asp?lang=<%= varLang %>"<%Else%>href="autentica.asp?lang=<%= varLang %>&tipo_acesso=conta"<%End if%> class="MNcabecalho"><%=Application("topLinkCadastro")%> <%If Application("tipoconfiguracao")="lojavirtual" Then%>| <%=Application("topLinkRastrearPedido")%> | "" Then%>href="conta_usuario_mostra_pedido.asp?lang=<%= varLang %>&condicao=todos"<%Else%>href="autentica.asp?lang=<%= varLang %>&tipo_acesso=conta"<%End if%> class="MNcabecalho"><%=Application("topLinkHistoricoPedidos")%> <%End if%> <%End if%>