<%
'Validação de dados postados por GET e/ou Post
' Call Valida_Request()
'passado na selação do produto
codigo_produto = Request("codigo_produto")
if codigo_produto<>"" and page <> "carrinho" then
' Abre tabela de produtos usando a conexao aberta acima.
Set RS_Produto = Server.CreateObject("ADODB.Recordset")
Set RS_Produto.ActiveConnection = Conexao
RS_Produto.CursorLocation = 3
RS_Produto.CursorType = 0
RS_Produto.LockType = 1
'Seleciona dados do produto indicado
RS_Produto.Open "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, Categorias.nome_categoria FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria = Produtos.codigo_categoria WHERE Codigo_produto = "&Request("codigo_produto")&" AND Produtos.sigla_idioma = '" & varLang & "' AND Categorias.sigla_idioma = '" & varLang & "'", Conexao
'Converte para o cambio cadastrado conforme idioma selecionado.
'Criação do objeto de recordset para captura do valor do cambio
Set DadosCambio = Server.CreateObject("ADODB.Recordset")
Set DadosCambio.ActiveConnection = Conexao
DadosCambio.CursorLocation = 3
DadosCambio.CursorType = 0
DadosCambio.LockType = 1
titulo = RS_Produto("nome_produto")&" - "&Application("nomeloja")
descricao = RS_Produto("descricao_produto")
Else
titulo = Application("nomeloja")
descricao = ""
End If
%>
<%=titulo%>
<%
Function LimpaHTML(matriz)
Do While True
ini = InStr(1,matriz,"<")
If ini = 0 Then Exit Do
fim = InStr(ini,matriz,">")
parcial = Mid(matriz,ini,fim-ini+1)
matriz = Replace(matriz,parcial,"")
Loop
LimpaHTML = matriz
End Function
%>
<% if descricao <> "" Then %>
<% End if %>