<% Call AbreBanco Dim Produtos Dim Produtos2 Dim Produtos3 Dim Produtos4 Dim Produtos5 Dim Produtos6 Dim Produtos7 Dim Produtos8 Dim Produtos9 Dim Produtos10 Dim Desativar1 Dim Desativar2 Dim Desativar3 Dim Desativar4 Dim Desativar5 Dim Desativar6 Dim Desativar7 Dim Desativar8 Dim Desativar9 Dim Desativar10 Dim Valor Dim Total Session("Endereco") = Request.ServerVariables("SCRIPT_NAME") &"?"& Request.ServerVariables("QUERY_STRING") Set Produtos = Server.CreateObject("ADODB.Recordset") Produtos.CursorType = 3 Produtos.Open("SELECT * FROM Produtos WHERE Estoque > 0 And Status = On"), Banco If not Produtos.EOF Then Total = Produtos.RecordCount Randomize() Valor = Int(Rnd * Total) Produtos.Move(Valor) Else Desativar1 = 1 Desativar2 = 1 Desativar3 = 1 Desativar4 = 1 Desativar5 = 1 Desativar6 = 1 Desativar7 = 1 Desativar8 = 1 Desativar9 = 1 Desativar10 = 1 End If If Not Desativar1 = 1 Then Set Produtos2 = Server.CreateObject("ADODB.Recordset") Produtos2.CursorType = 3 Produtos2.Open("SELECT * FROM Produtos WHERE Estoque > 0 And Cod <> "& Produtos("Cod") &" AND Status = On"), Banco If not Produtos2.EOF Then Total = Produtos2.RecordCount Randomize() Valor = Int(Rnd * Total) Produtos2.Move(Valor) Else Desativar2 = 1 Desativar3 = 1 Desativar4 = 1 Desativar5 = 1 Desativar6 = 1 Desativar7 = 1 Desativar8 = 1 Desativar9 = 1 Desativar10 = 1 End If End IF If Not Desativar2 = 1 Then Set Produtos3 = Server.CreateObject("ADODB.Recordset") Produtos3.CursorType = 3 Produtos3.Open("SELECT * FROM Produtos WHERE Estoque > 0 And Cod <> "& Produtos2("Cod") &" AND Cod <> "& Produtos("Cod") &" AND Status = On"), Banco If not Produtos3.EOF Then Total = Produtos3.RecordCount Randomize() Valor = Int(Rnd * Total) Produtos3.Move(Valor) Else Desativar3 = 1 Desativar4 = 1 Desativar5 = 1 Desativar6 = 1 Desativar7 = 1 Desativar8 = 1 Desativar9 = 1 Desativar10 = 1 End If End IF If Not Desativar3 = 1 Then Set Produtos4 = Server.CreateObject("ADODB.Recordset") Produtos4.CursorType = 3 Produtos4.Open("SELECT * FROM Produtos WHERE Estoque > 0 And Cod <> "& Produtos3("Cod") &" AND Cod <> "& Produtos2("Cod") &" AND Cod <> "& Produtos("Cod") &" AND Status = On"), Banco If not Produtos4.EOF Then Total = Produtos4.RecordCount Randomize() Valor = Int(Rnd * Total) Produtos4.Move(Valor) Else Desativar4 = 1 Desativar5 = 1 Desativar6 = 1 Desativar7 = 1 Desativar8 = 1 Desativar9 = 1 Desativar10 = 1 End If End IF If Not Desativar4 = 1 Then Set Produtos5 = Server.CreateObject("ADODB.Recordset") Produtos5.CursorType = 3 Produtos5.Open("SELECT * FROM Produtos WHERE Estoque > 0 And Cod <> "& Produtos4("Cod") &" AND Cod <> "& Produtos3("Cod") &" AND Cod <> "& Produtos2("Cod") &" AND Cod <> "& Produtos("Cod") &" AND Status = On"), Banco If not Produtos5.EOF Then Total = Produtos5.RecordCount Randomize() Valor = Int(Rnd * Total) Produtos5.Move(Valor) Else Desativar5 = 1 Desativar6 = 1 Desativar7 = 1 Desativar8 = 1 Desativar9 = 1 Desativar10 = 1 End If End IF If Not Desativar5 = 1 Then Set Produtos6 = Server.CreateObject("ADODB.Recordset") Produtos6.CursorType = 3 Produtos6.Open("SELECT * FROM Produtos WHERE Estoque > 0 And Cod <> "& Produtos5("Cod")&" AND Cod <> "& Produtos4("Cod") &" AND Cod <> "& Produtos3("Cod") &" AND Cod <> "& Produtos2("Cod") &" AND Cod <> "& Produtos("Cod") &" AND Status = On"), Banco If not Produtos6.EOF Then Total = Produtos6.RecordCount Randomize() Valor = Int(Rnd * Total) Produtos6.Move(Valor) Else Desativar6 = 1 Desativar7 = 1 Desativar8 = 1 Desativar9 = 1 Desativar10 = 1 End If End IF If Not Desativar6 = 1 Then Set Produtos7 = Server.CreateObject("ADODB.Recordset") Produtos7.CursorType = 3 Produtos7.Open("SELECT * FROM Produtos WHERE Estoque > 0 And Cod <> "& Produtos6("Cod") &" AND Cod <> "& Produtos5("Cod") &" AND Cod <> "& Produtos4("Cod") &" AND Cod <> "& Produtos3("Cod") &" AND Cod <> "& Produtos2("Cod") &" AND Cod <> "& Produtos("Cod") &" AND Status = On"), Banco If not Produtos7.EOF Then Total = Produtos7.RecordCount Randomize() Valor = Int(Rnd * Total) Produtos7.Move(Valor) Else Desativar7 = 1 Desativar8 = 1 Desativar9 = 1 Desativar10 = 1 End If End IF Response.Write "" If Not Desativar7 = 1 Then Set Produtos8 = Server.CreateObject("ADODB.Recordset") Produtos8.CursorType = 3 Produtos8.Open("SELECT * FROM Produtos WHERE Estoque > 0 And Cod <> "& Produtos7("Cod") &" AND Cod <> "& Produtos6("Cod") &" AND Cod <> "& Produtos5("Cod") &" AND Cod <> "& Produtos4("Cod") &" AND Cod <> "& Produtos3("Cod") &" AND Cod <> "& Produtos2("Cod") &" AND Cod <> "& Produtos("Cod") &" AND Status = On"), Banco If not Produtos8.EOF Then Total = Produtos8.RecordCount Randomize() Valor = Int(Rnd * Total) Produtos8.Move(Valor) Else Desativar8 = 1 Desativar9 = 1 Desativar10 = 1 End If End IF If Not Desativar8 = 1 Then Set Produtos9 = Server.CreateObject("ADODB.Recordset") Produtos9.CursorType = 3 Produtos9.Open("SELECT * FROM Produtos WHERE Estoque > 0 And Cod <> "& Produtos8("Cod") &" AND Cod <> "& Produtos7("Cod") &" AND Cod <> "& Produtos6("Cod") &" AND Cod <> "& Produtos5("Cod") &" AND Cod <> "& Produtos4("Cod") &" AND Cod <> "& Produtos3("Cod") &" AND Cod <> "& Produtos2("Cod") &" AND Cod <> "& Produtos("Cod") &" AND Status = On"), Banco If not Produtos9.EOF Then Total = Produtos9.RecordCount Randomize() Valor = Int(Rnd * Total) Produtos9.Move(Valor) Else Desativar9 = 1 Desativar10 = 1 End If End IF If Not Desativar9 = 1 Then Set Produtos10 = Server.CreateObject("ADODB.Recordset") Produtos10.CursorType = 3 Produtos10.Open("SELECT * FROM Produtos WHERE Estoque > 0 And Cod <> "& Produtos9("Cod") &" AND Cod <> "& Produtos8("Cod") &" AND Cod <> "& Produtos7("Cod") &" AND Cod <> "& Produtos6("Cod") &" AND Cod <> "& Produtos5("Cod") &" AND Cod <> "& Produtos4("Cod") &" AND Cod <> "& Produtos3("Cod") &" AND Cod <> "& Produtos2("Cod") &" AND Cod <> "& Produtos("Cod") &" AND Status = On"), Banco If not Produtos10.EOF Then Total = Produtos10.RecordCount Randomize() Valor = Int(Rnd * Total) Produtos10.Move(Valor) Else Desativar10 = 1 End If End IF 'Contador de acessos Dim Contador If Session("Contador") = "" Then Set Contador = Banco.Execute("UPDATE Contador SET Contador = Contador + 1") Session("Contador") = "1" Set Contador = Nothing End If %>
<%If Not Desativar1 = 1 Then%>
">" border="0" width="60"> " class="LinkTahoma11AzulBold"><%=Produtos("NomeProduto")%>
<%=Left(Produtos("BreveDescricao"),70)%>...
De: <%=FormatCurrency(Produtos("PrecoDe"))%>
Por: <%=FormatCurrency(Produtos("PrecoPor"))%>
">
<%End If%>
<%If Not Desativar3 = 1 Then%>
">" width="60" border="0"> " class="LinkTahoma11AzulBold"><%=Produtos3("NomeProduto")%>
<%=Left(Produtos3("BreveDescricao"),70)%>...
De: <%=FormatCurrency(Produtos3("PrecoDe"))%>
Por: <%=FormatCurrency(Produtos3("PrecoPor"))%>
">
<%End If%>
<%If Not Desativar5 = 1 Then%>
">" width="60" border="0"> " class="LinkTahoma11AzulBold"><%=Produtos5("NomeProduto")%>
<%=Left(Produtos5("BreveDescricao"),70)%>...
De: <%=FormatCurrency(Produtos5("PrecoDe"))%>
Por: <%=FormatCurrency(Produtos5("PrecoPor"))%>
">
<%End If%>
<%If Not Desativar7 = 1 Then%>
">" width="60" border="0"> " class="LinkTahoma11AzulBold"><%=Produtos7("NomeProduto")%>
<%=Left(Produtos7("BreveDescricao"),70)%>...
De: <%=FormatCurrency(Produtos7("PrecoDe"))%>
Por: <%=FormatCurrency(Produtos7("PrecoPor"))%>
">
<%End If%>
<%If Not Desativar9 = 1 Then%>
">" width="60" border="0"> " class="LinkTahoma11AzulBold"><%=Produtos9("NomeProduto")%>
<%=Left(Produtos9("BreveDescricao"),70)%>...
De: <%=FormatCurrency(Produtos9("PrecoDe"))%>
Por: <%=FormatCurrency(Produtos9("PrecoPor"))%>
">
<%End If%>
<%If Not Desativar2 = 1 Then%>
">" width="60" border="0"> " class="LinkTahoma11AzulBold"><%=Produtos2("NomeProduto")%>
<%=Left(Produtos2("BreveDescricao"),70)%>...
De: <%=FormatCurrency(Produtos2("PrecoDe"))%>
Por: <%=FormatCurrency(Produtos2("PrecoPor"))%>
">
<%End If%>
<%If Not Desativar4 = 1 Then%>
">" width="60" border="0"> " class="LinkTahoma11AzulBold"><%=Produtos4("NomeProduto")%>
<%=Left(Produtos4("BreveDescricao"),70)%>...
De: <%=FormatCurrency(Produtos4("PrecoDe"))%>
Por: <%=FormatCurrency(Produtos4("PrecoPor"))%>
">
<%End If%>
<%If Not Desativar6 = 1 Then%>
">" width="60" border="0"> " class="LinkTahoma11AzulBold"><%=Produtos6("NomeProduto")%>
<%=Left(Produtos6("BreveDescricao"),70)%>...
De: <%=FormatCurrency(Produtos6("PrecoDe"))%>
Por: <%=FormatCurrency(Produtos6("PrecoPor"))%>
">
<%End If%>
<%If Not Desativar8 = 1 Then%>
">" width="60" border="0"> " class="LinkTahoma11AzulBold"><%=Produtos8("NomeProduto")%>
<%=Left(Produtos8("BreveDescricao"),70)%>...
De: <%=FormatCurrency(Produtos8("PrecoDe"))%>
Por: <%=FormatCurrency(Produtos8("PrecoPor"))%>
">
<%End If%>
<%If Not Desativar10 = 1 Then%>
">" width="60" border="0"> " class="LinkTahoma11AzulBold"><%=Produtos10("NomeProduto")%>
<%=Left(Produtos10("BreveDescricao"),70)%>...
De: <%=FormatCurrency(Produtos10("PrecoDe"))%>
Por: <%=FormatCurrency(Produtos10("PrecoPor"))%>
">
<%End If%>
<% Set Produtos = Nothing Set Produtos2 = Nothing Set Produtos3 = Nothing Set Produtos4 = Nothing Set Produtos5 = Nothing Set Produtos6 = Nothing Set Produtos7 = Nothing Set Produtos8 = Nothing Set Produtos9 = Nothing Set Produtos10 = Nothing Call FechaBanco %>