<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.4
' Data: 12/09/06
' Arquivo: indique.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 27/08/07
'
'-----------------------------------------------------------------------------
' 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("NomeLoja"))("id_transacao") <> "" Then
session("id_transacao") = Request.Cookies(Application("NomeLoja"))("id_transacao")
session("user_id") = Request.Cookies(Application("NomeLoja"))("user_id")
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","idioma")
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")
' 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
%>
<%=Application("nomeloja")%>
<%
' Verifica se o tipo de indicação é de produto
If Request("tipo") = "produto" Then
%>
<%
RS_Produto.Close
Set RS_Produto = Nothing
' Verifica se o tipo de indicação é para a loja
ElseIf Request("tipo") = "site" Then
%>
<%
End If
Conexao.Close
Set Conexao = Nothing
%>