<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.5 ' Data: 12/09/06 ' Arquivo: mapasite.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 16/10/08 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#- rodape = "no" %>
<%= Application("MapaSiteTxtTit")%>

<%= Application("MapaSiteTxt")%>

<%= Application("MapaSiteTxtProd")%>:

<% 'Query de consulta a tabela Categorias Query_categorias = "SELECT codigo_chave, codigo_categoria, nome_categoria, sigla_idioma FROM Categorias WHERE sigla_idioma = '"&varLang&"'" 'Cria objeto para consultar as categorias Set RS_Categorias = Server.CreateObject("ADODB.Recordset") 'Conexão ADO Set RS_Categorias.ActiveConnection = Conexao RS_Categorias.CursorLocation = 3 RS_Categorias.CursorType = 0 RS_Categorias.LockType = 1 'Executa a query RS_Categorias.Open Query_categorias If Not RS_Categorias.EOF Then 'Loop dos registros encontrados na tebela categorias DO UNTIL RS_Categorias.EOF %> "> <%= RS_Categorias("nome_categoria")%>
<% 'Query de consulta a tabela subcategorias Query_subcategorias = "SELECT codigo_chave, codigo_subcategoria, codigo_categoria, nome_subcategoria, descricao_subcategoria, sigla_idioma FROM Subcategorias WHERE codigo_categoria = " & RS_Categorias("codigo_categoria") & " AND sigla_idioma = '"&varLang&"' ORDER BY nome_subcategoria" 'Cria objeto para consultar Subcategorias Set RS_SubCategorias = CreateObject("ADODB.Recordset") 'Conexão ADO Set RS_SubCategorias.ActiveConnection = Conexao RS_SubCategorias.CursorLocation = 3 RS_SubCategorias.CursorType = 0 RS_SubCategorias.LockType = 1 'Executa a query de consulta RS_SubCategorias.Open Query_subcategorias If not RS_SubCategorias.EOF Then 'Loop dos registros encontrados na tebela categorias DO UNTIL RS_SubCategorias.EOF Response.write "  - " & RS_SubCategorias("nome_subcategoria") & "
" RS_SubCategorias.MoveNext LOOP End If 'Fecha e libera da memória o objeto de Recordset de consulta a tabela Subcategorias RS_SubCategorias.Close Set RS_SubCategorias = Nothing RS_Categorias.MoveNext Loop End if 'Fecha e libera da memória o objeto de Recordset de consulta a tabela categorias RS_Categorias.Close Set RS_Categorias = Nothing %>

<%= Application("MapaSiteTxtAutoAtend")%>:

 <%=Application("topLinkCadastro")%>
<%If Application("tipoconfiguracao")="lojavirtual" Then%>  <%=Application("topLinkRastrearPedido")%>
 <%=Application("topLinkHistoricoPedidos")%>
<%End if%>

<%= Application("MapaSiteTxtInfoUteis")%>:

<% ArquivoTextosAdicionais = Application("DiretorioTemplates") & varLang & "\" & "configuracao\textosadicionais.xml" 'Abre o arquivo XML: XMLTextosAdicionais Call abre_ArquivoXML(ArquivoTextosAdicionais,FctobjXML,FctobjRoot) 'Seta objeto para o nó Set menu = FctobjRoot.selectSingleNode("configuracao") 'Seta objeto para os atributos. Set itens = menu.getElementsByTagName("infos[@ativo='sim']") 'Verifica o númeto de itens n_itens = itens.length 'Loop para captura dos itens for i = 0 to (n_itens - 1) Set pagto = itens.item(i) Response.write " " & pagto.getAttribute("titulo") & "
" 'Libera objeto da memória Set pagto = Nothing Next 'Libera objeto da memória Set itens = Nothing 'Libera objeto da memória Set menu = Nothing %>

<%= Application("MapaSiteTxtSobreLoja")%>:

 <%=Application("bottomLinkMapaSite")%>
 <%=Application("bottomLinkContatos")%>

<%= Application("MapaSiteTxtLoja")%>:

 <%= Application("NomeLoja")%>
<%= Application("EnderecoLoja")%> - <%= Application("BairroLoja")%>
<%= Application("CidadeLoja")%> / <%= Application("EstadoLoja")%>
<%= Application("CEPLoja")%>
<%= Application("MapaSiteTxtTel")%>: (<%= Application("DDDFoneLoja")%>) <%= Application("FoneLoja")%>
<%= Application("MapaSiteTxtFax")%>: (<%= Application("DDDFaxLoja")%>) <%= Application("FaxLoja")%>