Postagens
Male
Ola, por favor, estou com um problema e não estou conseguindo resolver..
é uma loja exmplo inicialmente desenvolvida pela Locaweb, que agora é opem source.. baixei os arquivos e estou tentando instalar..
acredito ter feito tudo certo, porem está me retornando um erro:
Erro de tempo de execução do Microsoft VBScript erro '800a01a8'
Objeto necessário: 'RS_Produto.ActiveConnection'
/funcoes/funcoes.asp, line 340
meu código na pagina funcoes.asp aparentemente está ok.. me ajudem por favor..
funcoes.asp
<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
'########################################################################################################
'SUB abre_conexao
' - Abre conexão com o banco de dados
' - Chamada no arquivo layout_inicio.asp
'SUB fecha_conexao
' - Fecha conexão com o banco de dados
' - Chamada no arquivo layout_termino.asp
'########################################################################################################
Sub abre_conexao(conexao)
'Define o objeto de conexão ao banco de dados
Set Conexao = CreateObject("ADODB.Connection")
'Chama a funcão de carregamento do arquivo XML
Call abre_ArquivoXML(Application("XMLArquivoConfiguracao"),FctobjXML,FctobjRoot)
'Verifica a existência do arquivo XML
existe_configuracao = FctobjXML.load(Application("XMLArquivoConfiguracao"))
'Define o objeto de raiz do documento
Set FctobjRoot = FctobjXML.documentElement
'Se o arquivo XML existir haverá a leitura do mesmo
If existe_configuracao = True Then
'Define o objeto de leitura dos NÓS
Set configuracao = FctobjRoot.selectSingleNode("dados/configuracao_dados")
Application("TipoBanco") = configuracao.getAttribute("TipoBanco")
If Application("TipoBanco") = "mssql" Then
' Verifica se foi específicado uma base SQL
If configuracao.getAttribute("BaseBD") <> "" Then
baseMssql = configuracao.getAttribute("BaseBD")
' Caso contrário define a base com o mesmo nome do usuário SQL
Else
baseMssql = configuracao.getAttribute("UsuarioBD")
End If
Application("StringConexaoBanco") = "PROVIDER=SQLOLEDB.1;DATA SOURCE=" & configuracao.getAttribute("EnderecoBD") & ";DATABASE=" & baseMssql & " ;UID=" & configuracao.getAttribute("UsuarioBD") & " ;PWD=" & configuracao.getAttribute("SenhaBD") & ";"
ElseIf Application("TipoBanco") = "mysql" Then
' Verifica se foi específicado uma base MySQL
If configuracao.getAttribute("BaseBD") <> "" Then
baseMysql = configuracao.getAttribute("BaseBD")
' Caso contrário define a base com o mesmo nome do usuário MySQL
Else
baseMysql = configuracao.getAttribute("UsuarioBD")
End If
Application("StringConexaoBanco") = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & configuracao.getAttribute("EnderecoBD") & ";PORT=3306;DATABASE=" & baseMysql & ";USER=" & configuracao.getAttribute("UsuarioBD") & ";PASSWORD=" & configuracao.getAttribute("SenhaBD") & ";OPTION=3;"
End If
Application("NomeLoja") = configuracao.getAttribute("NomeLoja")
'Destroi o objeto de leitura do nó
Set configuracao =Nothing
End If
'Destrói o objeto de raiz do documento
Set FctobjRoot = Nothing
'Abre o banco de dados
Conexao.open Application("StringConexaoBanco")
End sub
sub fecha_conexao
'Fecha conexão com o banco de dados
Conexao.Close
'Destrói o objeto de conexão
Set Conexao=nothing
End Sub
'########################################################################################################
'--> FIM SUB abre_conexao
'--> FIM SUB fecha_conexao
'########################################################################################################
'========================================================================================================
'########################################################################################################
'SUB menu_categorias
' - Lista Categorias e Subcategorias cadastradas
' - Chamada no arquivo CATEGORIAS.ASP
'########################################################################################################
Sub menu_categorias()
queryORDERBY = "ORDER BY " & Application("OrdemCategoria")
'Query de consulta a tabela Categorias
Query_categorias = "SELECT codigo_chave, codigo_categoria, nome_categoria, descricao_categoria, sigla_idioma FROM Categorias WHERE sigla_idioma = '"&varLang&"' " & queryORDERBY
'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 RS_Categorias.EOF then
%>
<table width="172" cellpadding="0" cellspacing="0">
<tr>
<td style="padding-top:2px;padding-bottom:2px;padding-left:10px;padding-right:10px" class="MNlatesquerda"><%= Application("MenuTxtCatVazio")%></td>
</tr>
</table>
<%
Else
'Loop dos registros encontrados na tebela categorias
DO UNTIL RS_Categorias.EOF
'Atribui o calor do codigo_categoria a session("codigo_categoria")
session("codigo_categ") = RS_Categorias("codigo_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 = " & session("codigo_categ") & " 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
%>
<table width="172" cellpadding="0" cellspacing="0">
<%
'Verifica se existe subcategoria
'Caso exista a navegação será a partir da subcategoria
If not RS_SubCategorias.EOF Then
ExisteCategoria="sim"
%>
<tr>
<td style="padding-top:2px;padding-bottom:2px;padding-left:10px;padding-right:10px"><img src="config/templates/<%=varLang%>/<%=varSkin%>/seta.gif" width="6" height="7" border="0"> <a href="produtos.asp?lang=<%=varLang%>&tipo_busca=categoria&codigo_categoria=<%=RS_Categorias("codigo_categoria")%>" onclick="mostraDados('<%=RS_Categorias("codigo_categoria")%>');" class="MNlatesquerda"><%= RS_Categorias("nome_categoria")%></font></td>
</tr>
<%
'Não existindo subcategoria a navegação será a partir da categoria
Else
%>
<tr>
<td style="padding-top:2px;padding-bottom:2px;padding-left:10px;padding-right:10px"><img src="config/templates/<%=varLang%>/<%=varSkin%>/seta.gif" width="6" height="7" border="0"> <a href="produtos.asp?lang=<%=varLang%>&tipo_busca=categoria&codigo_categoria=<%=RS_Categorias("codigo_categoria")%>" <%If CDbl(RS_Categorias("codigo_categoria")) = CDbl(request("codigo_categoria")) And request("codigo_subcategoria") = "" Then %>class="MNlatesquerdaAtivo"<%Else%>class="MNlatesquerda"<%End If%>><%=fontcolor%><%= RS_Categorias("nome_categoria")%></font></td>
</tr>
<%
'Fim da verificação de existência de subcategoria
End If
If ExisteCategoria = "sim" then%>
<%If CDbl(RS_Categorias("codigo_categoria")) = CDbl(request("codigo_categoria")) Then%>
<tr id="<%=RS_Categorias("codigo_categoria")%>" style="display:'';">
<%Else%>
<tr id="<%=RS_Categorias("codigo_categoria")%>" style="display:none;">
<%End if%>
<td align="left" style="padding-top:2px;padding-bottom:2px;padding-left:10px;padding-right:10px">
<%
'Loop dos registros encontrados na tebela categorias
DO UNTIL RS_SubCategorias.EOF
If CDbl(RS_SubCategorias("codigo_subcategoria")) = CDbl(request("codigo_subcategoria")) Then
Response.write " <span class='MNlatesquerdaAtivo'>-</span> <a href='produtos.asp?lang="&varLang&"&tipo_busca=subcategoria&codigo_categoria="&RS_Categorias("codigo_categoria")&"&codigo_subcategoria="&RS_SubCategorias("codigo_subcategoria")&"' class='MNlatesquerdaAtivo'>" & RS_SubCategorias("nome_subcategoria") & "</a></span><br>"
Else
Response.write " <span class='MNlatesquerda'>-</span> <a href='produtos.asp?lang="&varLang&"&tipo_busca=subcategoria&codigo_categoria="&RS_Categorias("codigo_categoria")&"&codigo_subcategoria="&RS_SubCategorias("codigo_subcategoria")&"' class='MNlatesquerda'>"& fontcolor & RS_SubCategorias("nome_subcategoria") & "</a></span><br>"
End if
RS_SubCategorias.MoveNext
LOOP
%>
</td>
</tr>
<%
End If
%>
<tr>
<td><img src="config/templates/<%=varLang%>/<%=varSkin%>/regua1x1.gif" height="1"></td>
</tr>
</table>
<%
'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
End sub
'########################################################################################################
'--> FIM SUB menu_categorias
'########################################################################################################
'========================================================================================================
'########################################################################################################
'SUB menu_servicos
' - Lista textos adicionais exibido na lateraln direita da loja
' - Chamado no arquivo lateral_servicos.asp
'########################################################################################################
Sub menu_servicos(fctLang,fctPosicao,fctClass)
If fctPosicao = "vertical" Then
AdicionalCHR = "<br><br>"
AdicionalIMG = "<img src='config/templates/"&varLang&"/"&varSkin&"/seta.gif' width='6' height='7' border='0'> "
ElseIf fctPosicao = "horizontal" Then
AdicionalCHR = " | "
End if
ArquivoTextosAdicionais = Application("DiretorioTemplates") & fctLang & "\" & "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 AdicionalIMG&"<a href='infos.asp?lang="&varLang&"&codigo_texto="&pagto.getAttribute("codigo_texto")&"' class='"&fctClass&"'>" & pagto.getAttribute("titulo") & "</a>" & AdicionalCHR
'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
End Sub
'########################################################################################################
'--> FIM SUB menu_categorias
'########################################################################################################
'========================================================================================================
'########################################################################################################
'SUB exibe_produtos
' - Lista os RS_Produto cadastrados com as opções COMPRA/DESCRIÇÃO/INDICAR
' - Chamada no arquivo RS_Produto.ASP
'########################################################################################################
Sub exibe_produtos()
'Query_produtos monta uma string para consulta no banco de dados
' Define a ordem de exibição dos produtos
If Request("orderby") <> "" Then
queryORDERBY = "ORDER BY Produtos." & Request("orderby")
Else
queryORDERBY = "ORDER BY Produtos." & Application("OrdemProduto")
End If
' Oculta a possibilidade de ordem dos produtos
exibeOrdemProd = False
'Se a busca partir de uma categoria
If request("tipo_busca") = "categoria" Then
Query_produtos = "SELECT Produtos.codigo_produto, Produtos.codigo_categoria, Produtos.codigo_subcategoria, Produtos.codigo_marca, Produtos.codigo_produto_loja, Produtos.nome_produto, Produtos.descricao_produto, Produtos.autor, Produtos.codigo_isbn, Produtos.tamanhos, Produtos.cores, Produtos.preco_base, Produtos.preco_unitario, Produtos.desconto, Produtos.moeda, Produtos.quantidade_produto, Produtos.img_produtoPQN, Produtos.img_produtoGRD, Produtos.img_produto_adic01PQN, Produtos.img_produto_adic01GRD, Produtos.img_produto_adic02PQN, Produtos.img_produto_adic02GRD, Produtos.img_produto_adic03PQN, Produtos.img_produto_adic03GRD, Produtos.peso, Produtos.destaque_vitrine, Produtos.promocao, Produtos.data_inicio, Produtos.data_fim, Produtos.disponivel, Produtos.sigla_idioma FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria = Produtos.codigo_categoria WHERE Produtos.codigo_categoria = "&request("codigo_categoria")&" AND Produtos.sigla_idioma = '"&varLang&"' AND Categorias.sigla_idioma = '"&varLang&"' AND Produtos.disponivel = 1 " & queryORDERBY
' Habilita a possibilidade de ordem dos produtos
exibeOrdemProd = True
'Se a busca partir de uma subcategoria
ElseIf request("tipo_busca") = "subcategoria" Then
Query_produtos = "SELECT Produtos.codigo_produto, Produtos.codigo_categoria, Produtos.codigo_subcategoria, Produtos.codigo_marca, Produtos.codigo_produto_loja, Produtos.nome_produto, Produtos.descricao_produto, Produtos.autor, Produtos.codigo_isbn, Produtos.tamanhos, Produtos.cores, Produtos.preco_base, Produtos.preco_unitario, Produtos.desconto, Produtos.moeda, Produtos.quantidade_produto, Produtos.img_produtoPQN, Produtos.img_produtoGRD, Produtos.img_produto_adic01PQN, Produtos.img_produto_adic01GRD, Produtos.img_produto_adic02PQN, Produtos.img_produto_adic02GRD, Produtos.img_produto_adic03PQN, Produtos.img_produto_adic03GRD, Produtos.peso, Produtos.destaque_vitrine, Produtos.promocao, Produtos.data_inicio, Produtos.data_fim, Produtos.disponivel, Produtos.sigla_idioma FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria = Produtos.codigo_categoria WHERE Produtos.codigo_subcategoria = "&request("codigo_subcategoria")&" AND Produtos.sigla_idioma = '"&varLang&"' AND Categorias.sigla_idioma = '"&varLang&"' AND Produtos.disponivel = 1 " & queryORDERBY
' Habilita a possibilidade de ordem dos produtos
exibeOrdemProd = True
'Se a busca partir de uma marca
ElseIf request("tipo_busca") = "marca" Then
Query_produtos = "SELECT Produtos.codigo_produto, Produtos.codigo_categoria, Produtos.codigo_subcategoria, Produtos.codigo_marca, Produtos.codigo_produto_loja, Produtos.nome_produto, Produtos.descricao_produto, Produtos.autor, Produtos.codigo_isbn, Produtos.tamanhos, Produtos.cores, Produtos.preco_base, Produtos.preco_unitario, Produtos.desconto, Produtos.moeda, Produtos.quantidade_produto, Produtos.img_produtoPQN, Produtos.img_produtoGRD, Produtos.img_produto_adic01PQN, Produtos.img_produto_adic01GRD, Produtos.img_produto_adic02PQN, Produtos.img_produto_adic02GRD, Produtos.img_produto_adic03PQN, Produtos.img_produto_adic03GRD, Produtos.peso, Produtos.destaque_vitrine, Produtos.promocao, Produtos.data_inicio, Produtos.data_fim, Produtos.disponivel, Produtos.sigla_idioma FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria = Produtos.codigo_categoria WHERE Produtos.codigo_marca = "&request("codigo_marca")&" AND Produtos.sigla_idioma = '"&varLang&"' AND Categorias.sigla_idioma = '"&varLang&"' AND Produtos.disponivel = 1 " & queryORDERBY
' Habilita a possibilidade de ordem dos produtos
exibeOrdemProd = True
'Se a busca partir de uma pesquisa por palavra chave
ElseIf request("tipo_busca") = "palavra" Then
'Request da palavra pesquisada
produto = request("produto")
'Caso não exista uma categoria para esta consulta
If request("codigo_categoria") <> "000" Then
Query_produtos = "SELECT Produtos.codigo_produto, Produtos.codigo_categoria, Produtos.codigo_subcategoria, Produtos.codigo_marca, Produtos.codigo_produto_loja, Produtos.nome_produto, Produtos.descricao_produto, Produtos.autor, Produtos.codigo_isbn, Produtos.tamanhos, Produtos.cores, Produtos.preco_base, Produtos.preco_unitario, Produtos.desconto, Produtos.moeda, Produtos.quantidade_produto, Produtos.img_produtoPQN, Produtos.img_produtoGRD, Produtos.img_produto_adic01PQN, Produtos.img_produto_adic01GRD, Produtos.img_produto_adic02PQN, Produtos.img_produto_adic02GRD, Produtos.img_produto_adic03PQN, Produtos.img_produto_adic03GRD, Produtos.peso, Produtos.destaque_vitrine, Produtos.promocao, Produtos.data_inicio, Produtos.data_fim, Produtos.disponivel, Produtos.sigla_idioma FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria = Produtos.codigo_categoria WHERE (nome_produto like '%" & produto & "%' OR descricao_produto LIKE '%" & produto & "%') AND Produtos.codigo_categoria = "&request("codigo_categoria")&" AND Produtos.sigla_idioma = '"&varLang&"' AND Categorias.sigla_idioma = '"&varLang&"' AND Produtos.disponivel = 1 " & queryORDERBY
'Caso exista uma categoria para esta consulta
Else
Query_produtos = "SELECT Produtos.codigo_produto, Produtos.codigo_categoria, Produtos.codigo_subcategoria, Produtos.codigo_marca, Produtos.codigo_produto_loja, Produtos.nome_produto, Produtos.descricao_produto, Produtos.autor, Produtos.codigo_isbn, Produtos.tamanhos, Produtos.cores, Produtos.preco_base, Produtos.preco_unitario, Produtos.desconto, Produtos.moeda, Produtos.quantidade_produto, Produtos.img_produtoPQN, Produtos.img_produtoGRD, Produtos.img_produto_adic01PQN, Produtos.img_produto_adic01GRD, Produtos.img_produto_adic02PQN, Produtos.img_produto_adic02GRD, Produtos.img_produto_adic03PQN, Produtos.img_produto_adic03GRD, Produtos.peso, Produtos.destaque_vitrine, Produtos.promocao, Produtos.data_inicio, Produtos.data_fim, Produtos.disponivel, Produtos.sigla_idioma FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria = Produtos.codigo_categoria WHERE (nome_produto like '%" & produto & "%' OR descricao_produto LIKE '%" & produto & "%') AND Produtos.sigla_idioma = '"&varLang&"' AND Categorias.sigla_idioma = '"&varLang&"' AND Produtos.disponivel = 1 " & queryORDERBY
End If
'Se a busca é de apenas produtos em ofertas
ElseIf request("tipo_busca") = "ofertas" Then
Query_produtos = "SELECT Produtos.codigo_produto, Produtos.codigo_categoria, Produtos.codigo_subcategoria, Produtos.codigo_marca, Produtos.codigo_produto_loja, Produtos.nome_produto, Produtos.descricao_produto, Produtos.autor, Produtos.codigo_isbn, Produtos.tamanhos, Produtos.cores, Produtos.preco_base, Produtos.preco_unitario, Produtos.desconto, Produtos.moeda, Produtos.quantidade_produto, Produtos.img_produtoPQN, Produtos.img_produtoGRD, Produtos.img_produto_adic01PQN, Produtos.img_produto_adic01GRD, Produtos.img_produto_adic02PQN, Produtos.img_produto_adic02GRD, Produtos.img_produto_adic03PQN, Produtos.img_produto_adic03GRD, Produtos.peso, Produtos.destaque_vitrine, Produtos.promocao, Produtos.data_inicio, Produtos.data_fim, Produtos.disponivel, Produtos.sigla_idioma FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria = Produtos.codigo_categoria WHERE Produtos.sigla_idioma = '"&varLang&"' AND Categorias.sigla_idioma = '"&varLang&"' AND Produtos.disponivel = 1 " & queryORDERBY
' Habilita a possibilidade de ordem dos produtos
exibeOrdemProd = True
'Se não for busca a consulta ao banco de da página inicial ou outra página especifíca
Else
'Exibição dos produtos na página incial
If page="default" Then
'Caso o banco de dados seja MSSQL
If Application("TipoBanco") = "mssql" Then
Query_produtos = "SELECT Produtos.codigo_produto, Produtos.codigo_categoria, Produtos.codigo_subcategoria, Produtos.codigo_marca, Produtos.codigo_produto_loja, Produtos.nome_produto, Produtos.descricao_produto, Produtos.autor, Produtos.codigo_isbn, Produtos.tamanhos, Produtos.cores, Produtos.preco_base, Produtos.preco_unitario, Produtos.desconto, Produtos.moeda, Produtos.quantidade_produto, Produtos.img_produtoPQN, Produtos.img_produtoGRD, Produtos.img_produto_adic01PQN, Produtos.img_produto_adic01GRD, Produtos.img_produto_adic02PQN, Produtos.img_produto_adic02GRD, Produtos.img_produto_adic03PQN, Produtos.img_produto_adic03GRD, Produtos.peso, Produtos.destaque_vitrine, Produtos.promocao, Produtos.data_inicio, Produtos.data_fim, Produtos.disponivel, Produtos.sigla_idioma FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria = Produtos.codigo_categoria WHERE destaque_vitrine = 1 AND Produtos.sigla_idioma = '"&varLang&"' AND Categorias.sigla_idioma = '"&varLang& "' AND Produtos.disponivel = 1 ORDER BY NewId()"
'Caso o banco de dados seja MYSQL
ElseIf Application("TipoBanco") = "mysql" Then
Query_produtos = "SELECT Produtos.codigo_produto, Produtos.codigo_categoria, Produtos.codigo_subcategoria, Produtos.codigo_marca, Produtos.codigo_produto_loja, Produtos.nome_produto, Produtos.descricao_produto, Produtos.autor, Produtos.codigo_isbn, Produtos.tamanhos, Produtos.cores, Produtos.preco_base, Produtos.preco_unitario, Produtos.desconto, Produtos.moeda, Produtos.quantidade_produto, Produtos.img_produtoPQN, Produtos.img_produtoGRD, Produtos.img_produto_adic01PQN, Produtos.img_produto_adic01GRD, Produtos.img_produto_adic02PQN, Produtos.img_produto_adic02GRD, Produtos.img_produto_adic03PQN, Produtos.img_produto_adic03GRD, Produtos.peso, Produtos.destaque_vitrine, Produtos.promocao, Produtos.data_inicio, Produtos.data_fim, Produtos.disponivel, Produtos.sigla_idioma FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria = Produtos.codigo_categoria WHERE destaque_vitrine = 1 AND Produtos.sigla_idioma = '"&varLang&"' AND Categorias.sigla_idioma = '"&varLang&"' AND Produtos.disponivel = 1 ORDER BY RAND()"
End If
'Exibição dos produtos em página que não seja inicial e nem derivada de uma pesquisa
Else
Query_produtos = "SELECT Produtos.codigo_produto, Produtos.codigo_categoria, Produtos.codigo_subcategoria, Produtos.codigo_marca, Produtos.codigo_produto_loja, Produtos.nome_produto, Produtos.descricao_produto, Produtos.autor, Produtos.codigo_isbn, Produtos.tamanhos, Produtos.cores, Produtos.preco_base, Produtos.preco_unitario, Produtos.desconto, Produtos.moeda, Produtos.quantidade_produto, Produtos.img_produtoPQN, Produtos.img_produtoGRD, Produtos.img_produto_adic01PQN, Produtos.img_produto_adic01GRD, Produtos.img_produto_adic02PQN, Produtos.img_produto_adic02GRD, Produtos.img_produto_adic03PQN, Produtos.img_produto_adic03GRD, Produtos.peso, Produtos.destaque_vitrine, Produtos.promocao, Produtos.data_inicio, Produtos.data_fim, Produtos.disponivel, Produtos.sigla_idioma FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria = Produtos.codigo_categoria WHERE Produtos.sigla_idioma = '"&varLang&"' AND Categorias.sigla_idioma = '"&varLang&"' AND Produtos.disponivel = 1 " & queryORDERBY
' Habilita a possibilidade de ordem dos produtos
exibeOrdemProd = True
End If
End If
'Captura o número da página atual se existir
If Request.QueryString("PN") = "" Then
'Se a captura for vazia, será atribuido o valor inicial
PaginaCorrente = 1
Else
'Existindo captura, o valor é atribuido à página corrente
PaginaCorrente = Request.QueryString("PN")
End If
'Cpatura o número para exibição de produtos por página
If page="default" Then
'Se página exibida for a inicial (vitrine), será atribuido o valor do application("ProdutosVitrine")
VarIntervalo = Application("ProdutosVitrine")
ElseIf Request.QueryString("FctIntervalo")= "" Then
'Se a captura for vazia, será atribuido o valor do application("produtosporpagina")
VarIntervalo = Application("ProdutosPorPagina")
Else
'Existindo captura, o valor será atribuido ao intervalo de produtos exibidos por páginas
VarIntervalo = Request.QueryString("FctIntervalo")
End If
'Cria o objeto RS_Produto de recordset
Set RS_Produto = CreateObject("ADODB.Recordset")
Linha 340 --> Set RS_Produto.ActiveConnection = Conexao
RS_Produto.CursorLocation = 3
RS_Produto.CursorType = 0
RS_Produto.LockType = 1
RS_Produto.CacheSize = VarIntervalo
'Havendo necessidade descomente a linha abaixo para saber qual query está sendo executada.
'Response.write Query_produtos
'Executa da Query de consulta
RS_Produto.Open Query_produtos
'Define o o número de produtos exibidos na página
RS_Produto.PageSize = CInt(VarIntervalo)
'Define o número total de páginas
VarTotalPaginas= RS_Produto.PageCount
'Define o número total de produtos
Var_TotalRegistros = RS_Produto.recordcount
'Formuário de envio do produto para o carrinho.
%>
