include_exibe_produtos_em_promocao.asp

/include_exibe_produtos_em_promocao.asp

http://eletromotriz.googlecode.com/
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>&#8250;&nbsp;" & 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>