<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.5
' Data: 12/09/06
' Arquivo: indique.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 17/02/2009
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-
%>
<%
' Verifica se o tipo de indicação é de produto
If Request("tipo") = "produto" Then
'passado quando se seleciona uma categoria
codigo_produto = Request("codigo_produto")
' Abre tabela de produtos usando a conexao aberta acima.
Set RS_Produto = Server.CreateObject("ADODB.Recordset")
' Seleciona o produto indicado.
RS_Produto.Open "SELECT Produtos.* FROM Produtos WHERE codigo_produto=" & codigo_produto & " AND disponivel=1", Conexao
'Converte para R$ caso o cadastro seja em outra moeda
Set RS_Cambios = CreateObject("ADODB.Recordset")
Set RS_Cambios.ActiveConnection = Conexao
RS_Cambios.CursorLocation = 3
RS_Cambios.CursorType = 0
RS_Cambios.LockType = 1
RS_Cambios.Open "SELECT valor_moeda, simbolo_moeda FROM IdiomaseCambios WHERE sigla_idioma='"&varLang&"'", Conexao
VarValor_Cambio = RS_Cambios("valor_moeda")
VarSimbolo_Moeda = RS_Cambios("simbolo_moeda")
Session("Valor_Cambio") = VarValor_Cambio
RS_Cambios.Close
Set RS_Cambios = Nothing
valor_produto = FormatNumber(RS_Produto("preco_unitario")/(VarValor_Cambio),2)
End If
%>
<%
If Request("tipo") = "produto" Then
titulo = Application("IndTxtProdIndicado")
ElseIf Request("tipo") = "site" Then
titulo = Application("IndTxtLojaIndicada")
Else
titulo = Application("nomeloja")
End If
%>