/include_exibe_produtos_em_promocao.asp
ASP | 241 lines | 225 code | 13 blank | 3 comment | 0 complexity | 56db0b20b8250df4bfbbc22dd757480e MD5 | raw file
Possible License(s): LGPL-2.1
-
- <link href="estilos/index.css" rel="stylesheet" type="text/css">
-
- <TABLE cellSpacing=0 cellPadding=0 width=150 border=0>
- <TBODY>
- <TR>
-
- <TD colSpan=3><IMG src="imagens/antes_em_promocao.gif" width="150" height="41"></TD>
- </TR>
- <TR>
- <TD class="v8 preto2 b" align=middle> <TABLE width=150 border=0 align=left cellPadding=0 cellSpacing=5 bgcolor="#F7F7F7">
- <TBODY>
- <TR>
- <TD height="18" vAlign=top class=secoes_titulo_red>
- <%
- 'Se for preciso fazer um novo sorteio dos produtos
- If Application("te_sortear_index_produtos_em_promocao") = True Or Application("te_index_exibe_produtos_em_promocao") = "" Or Now() > Application("te_time_index_sorteio_produtos_em_promocao") Then
-
- texto = ""
- ComandoSQL = "SELECT * FROM secoes WHERE exibir = True AND sortear_produtos_promocao = True ORDER BY ordem_exibicao ASC, titulo_texto ASC"
- Set objRS_secoes = Server.CreateObject("ADODB.Recordset")
- objRS_secoes.CursorLocation = 2
- objRS_secoes.CursorType = 1
- objRS_secoes.LockType = 1
- objRS_secoes.Open ComandoSQL, objCon,,, &H0001
- If Not objRS_secoes.EOF Then
- x = 0
- texto = texto & "<table border=0 align=center cellpadding=0 cellspacing=5 width='100%'>"
- texto = texto & "</tr>"
- While Not objRS_secoes.EOF
- Set objRS_produtos = Server.CreateObject("ADODB.Recordset")
- objRS_produtos.CursorLocation = 2
- objRS_produtos.CursorType = 1
- objRS_produtos.LockType = 1
-
- ComandoSQL = "SELECT COUNT(*) as total FROM produtos WHERE exibir = True AND secao = " & objRS_secoes("id") & " AND prioridade_destaque = 2 AND prioridade_destaque > 0 AND promocao_inicio <= Date() AND promocao_final >= Date()"
- objRS_produtos.Open ComandoSQL, objCon,,, &H0001
- Recno = objRS_produtos("total")
- objRS_produtos.Close
-
- 'Se n?o forem encontrados produtos com prioridade definida nesta secao
- If Int(Recno) < Int(3) Then
- ComandoSQL = "SELECT COUNT(*) as total FROM produtos WHERE exibir = True AND secao = " & objRS_secoes("id") & " AND prioridade_destaque > 0 AND promocao_inicio <= Date() AND promocao_final >= Date()"
- objRS_produtos.Open ComandoSQL, objCon,,, &H0001
- Recno = objRS_produtos("total")
- objRS_produtos.Close
- 'Se o número de produtos encontrados for maior que o dobro do número especificado
- If Int(Recno) > Int(3) Then
- ComandoSQL = "SELECT * FROM produtos WHERE exibir = True AND secao = " & objRS_secoes("id") & " AND prioridade_destaque > 0 AND promocao_inicio <= Date() AND promocao_final >= Date()"
- objRS_produtos.Open ComandoSQL, objCon,,, &H0001
- sorteados = ""
- For i = 1 to 2
- randomize()
- n = 0
- While n = 0
- n = Int(Recno *Rnd)
- If InStr(sorteados,"-" & n & "-") Then
- n = 0
- Else
- sorteados = sorteados & "-" & n & "-"
- objRS_produtos.MoveFirst
- If Int(n) <> 0 Then
- objRS_produtos.Move n
- End If
- End If
- Wend
- ComandoSQL = ComandoSQL & " OR id = " & objRS_produtos("id")
- Next
- objRS_produtos.Close
- Else
- ComandoSQL = "SELECT * FROM produtos WHERE exibir = True AND secao = " & objRS_secoes("id") & " AND promocao_inicio <= Date() AND promocao_final >= Date()"
- End If
- Else
- ComandoSQL = "SELECT * FROM produtos WHERE exibir = True AND secao = " & objRS_secoes("id") & " AND prioridade_destaque = 2 AND prioridade_destaque > 0 AND promocao_inicio <= Date() AND promocao_final >= Date()"
- objRS_produtos.Open ComandoSQL, objCon,,, &H0001
- ComandoSQL = "SELECT * FROM produtos WHERE 1<>1 "
- sorteados = ""
- For i = 1 to 2
- randomize()
- n = 0
- While n = 0
- n = Int(Recno *Rnd)
- If InStr(sorteados,"-" & n & "-") Then
- n = 0
- Else
- sorteados = sorteados & "-" & n & "-"
- objRS_produtos.MoveFirst
- If Int(n) <> 0 Then
- objRS_produtos.Move n
- End If
- End If
- Wend
- ComandoSQL = ComandoSQL & " OR id = " & objRS_produtos("id")
- Next
- objRS_produtos.Close
- End If
- objRS_produtos.Open ComandoSQL, objCon,,, &H0001
- If Not objRS_produtos.EOF Then
- x = x + 1
- text = ""
- If x = 1 Then texto = texto & "<tr>"
- texto = texto & "<td class='secoes_titulo_red' valign=top>"
- texto = texto & "<b>› " & objRS_secoes("titulo_texto")
- texto = texto & "<table border=0 width='100%' align=center cellpadding=5 cellspacing=0 class='secoes_titulo_red'></b>"
- y = 0
- While Not objRS_produtos.EOF And y < 1
- texto = texto & "<tr>"
- texto = texto & "<td class='secoes_titulo' valign=top width='1%'>"
- texto = texto & "<a href='index1.asp?secao="& objRS_produtos("secao") & "&categoria=" & objRS_produtos("categoria") & "&subcategoria="& objRS_produtos("subcategoria") & "&id=" & objRS_produtos("id") & "' class='secoes_titulo'>"
- texto = texto & objRS_produtos("produto")
- texto = texto & "</a>: "
-
- cartao_parcelas = Application("te_parcelas_cartao_"&Application("te_exibir_opcoes_cartao"))
- cartao_iniciojuros = objRS_produtos(Application("te_exibir_opcoes_cartao")&"_iniciojuros")
- juros_cartao = ccur(Application("te_juros_cartao_"&Application("te_exibir_opcoes_cartao")))
-
- If objRS_produtos("promocao_inicio") <= Date() And objRS_produtos("promocao_final") >= Date() Then
- texto = texto & "<span class='valor_de_em_promocao'>de <strike>" & Application("te_moeda_sigla") & FormataValor(objRS_produtos("valor_venda")*Application("te_moeda_cotacao")) & "</strike></span>, " & VbCrLf
- texto = texto & "<span class='valor_em_promocao'>por " & Application("te_moeda_sigla") & FormataValor(objRS_produtos("promocao_valor")*Application("te_moeda_cotacao")) & "</span>" & VbCrLf
- If Application("te_CARTOES_disponivel") = True Then
- If Cint(cartao_iniciojuros) > 2 And cartao_parcelas > 0 Then
- For npar = 1 to cartao_parcelas
- valor = objRS_produtos("promocao_valor")
- If cartao_iniciojuros <= npar And cartao_iniciojuros <> 0 Then valor = (valor*(1+FormatNumber(juros_cartao))^npar)/npar Else valor = valor/npar
- If ccur(Application("te_limite_cartao_parcelamento")) >= ccur(valor) Then Exit For
- Next
- If Int(npar) > 2 Then
- If cartao_iniciojuros-1 < npar then
- texto = texto & ", <span class='no_cartao_em_promocao'>ou em " & cartao_iniciojuros-1 & "x sem juros de " & Application("te_moeda_sigla") & FormataValor((objRS_produtos("promocao_valor")/(cartao_iniciojuros-1))*Application("te_moeda_cotacao")) & " no cart?o</span>"
- Else
- texto = texto & ", <span class='no_cartao_em_promocao'>ou em " & npar-1 & "x sem juros de " & Application("te_moeda_sigla") & FormataValor((objRS_produtos("valor_venda")/(npar-1))*Application("te_moeda_cotacao")) & " no cart?o</span>"
- End If
- End If
- Set npar = Nothing
- ElseIf Cint(cartao_iniciojuros) = 1 Or Cint(cartao_iniciojuros) = 2 And cartao_parcelas > 0 Then
- For npar = 1 to cartao_parcelas
- valor = objRS_produtos("promocao_valor")
- If cartao_iniciojuros <= npar And cartao_iniciojuros <> 0 Then valor = (valor*(1+FormatNumber(juros_cartao))^npar)/npar Else valor = valor/npar
- If ccur(Application("te_limite_cartao_parcelamento")) >= ccur(valor) Then Exit For
- Next
- If Int(npar) > 2 Then
- texto = texto & ", <span class='no_cartao_em_promocao'>ou em " & npar-1 & "x no cart?o</span>"
- End If
- Set npar = Nothing
- ElseIf Cint(cartao_iniciojuros) = 0 And cartao_parcelas > 0 Then
- For npar = 1 to cartao_parcelas
- valor = objRS_produtos("promocao_valor")
- If cartao_iniciojuros <= npar And cartao_iniciojuros <> 0 Then valor = (valor*(1+FormatNumber(juros_cartao))^npar)/npar Else valor = valor/npar
- If ccur(Application("te_limite_cartao_parcelamento")) >= ccur(valor) Then Exit For
- Next
- If Int(npar) > 2 Then
- texto = texto & ", <span class='no_cartao_em_promocao'>ou em " & npar-1 & "x sem juros no cart?o</span>"
- End If
- Set npar = Nothing
- End If
- End If
- Else
- texto = texto & "<span class='valor_em_promocao'>" & Application("te_moeda_sigla") & FormataValor(objRS_produtos("valor_venda")*Application("te_moeda_cotacao")) & "</span>" & VbCrLf
- If Application("te_CARTOES_disponivel") = True Then
- If Cint(cartao_iniciojuros) > 2 And cartao_parcelas > 0 Then
- For npar = 1 to cartao_parcelas
- valor = objRS_produtos("valor_venda")
- If cartao_iniciojuros <= npar And cartao_iniciojuros <> 0 Then valor = (valor*(1+FormatNumber(juros_cartao))^npar)/npar Else valor = valor/npar
- If ccur(Application("te_limite_cartao_parcelamento")) >= ccur(valor) Then Exit For
- Next
- If Int(npar) > 2 Then
- If cartao_iniciojuros-1 < npar then
- texto = texto & ", <span class='no_cartao_em_promocao'>ou em " & cartao_iniciojuros-1 & "x sem juros de " & Application("te_moeda_sigla") & FormataValor((objRS_produtos("valor_venda")/(cartao_iniciojuros-1))*Application("te_moeda_cotacao")) & " no cart?o</span>"
- Else
- texto = texto & ", <span class='no_cartao_em_promocao'>ou em " & npar-1 & "x sem juros de " & Application("te_moeda_sigla") & FormataValor((objRS_produtos("valor_venda")/(npar-1))*Application("te_moeda_cotacao")) & " no cart?o</span>"
- End If
- End If
- Set npar = Nothing
- ElseIf Cint(cartao_iniciojuros) = 1 Or Cint(cartao_iniciojuros) = 2 And cartao_parcelas > 0 Then
- For npar = 1 to cartao_parcelas
- valor = objRS_produtos("valor_venda")
- If cartao_iniciojuros <= npar And cartao_iniciojuros <> 0 Then valor = (valor*(1+FormatNumber(juros_cartao))^npar)/npar Else valor = valor/npar
- If ccur(Application("te_limite_cartao_parcelamento")) >= ccur(valor) Then Exit For
- Next
- If Int(npar) > 2 Then
- texto = texto & ", <span class='no_cartao_em_promocao'>ou em " & npar-1 & "x no cart?o</span>"
- End If
- Set npar = Nothing
- ElseIf Cint(cartao_iniciojuros) = 0 And cartao_parcelas > 0 Then
- For npar = 1 to cartao_parcelas
- valor = objRS_produtos("valor_venda")
- If cartao_iniciojuros <= npar And cartao_iniciojuros <> 0 Then valor = (valor*(1+FormatNumber(juros_cartao))^npar)/npar Else valor = valor/npar
- If ccur(Application("te_limite_cartao_parcelamento")) >= ccur(valor) Then Exit For
- Next
- If Int(npar) > 2 Then
- texto = texto & ", <span class='no_cartao_em_promocao'>ou em " & npar-1 & "x sem juros no cart?o</span>"
- End If
- Set npar = Nothing
- End If
- End If
- End If
-
- texto = texto & "</td>"
- texto = texto & "<tr>"
-
- y = y + 1
- objRS_produtos.MoveNext
- Wend
- texto = texto & "</table>"
- texto = texto & "</td>"
- If x = 1 Then
- texto = texto & "<tr>"
- texto = texto & "</tr>"
- x = 0
- End If
- End If
- objRS_produtos.Close
- Set ComandoSQL = Nothing
- Set objRS_produtos = Nothing
- objRS_secoes.MoveNext
- Wend
- texto = texto & "</table>"
- End If
- objRS_secoes.Close
- Set ComandoSQL = Nothing
- Set objRS_secoes = Nothing
-
- Application.Lock()
- Application("te_time_index_sorteio_produtos_em_promocao") = Now() + ((1/24/60/60)*Application("te_index_tempo_sorteio"))
- Application("te_index_exibe_produtos_em_promocao") = texto
- Application("te_sortear_index_produtos_em_promocao") = False
- Application.UnLock()
- End If
- Response.Write Application("te_index_exibe_produtos_em_promocao")
- %>
- </TD>
- </TBODY>
- </TABLE></TD>
- <TD width=1></TD>
- </TR>
- <TR>
-
- <TD colSpan=3><IMG src="imagens/depois_em_promocao.gif" width="150" height="20" ></TD>
- </TR>
- </TBODY>
-