Database E 6 Records

[Eli@ne]

Ola gente

pressiso di um codigo que eu nào sei fazer

eu queria faze uma pagina chamando seis records que sào em oferta em uma tabela

exemplo

oferta1 | oferta2 | oferta3

oferta4 | oferta5 | oferta6

que dize uma tabela com 3 colunas e duas linhas

que chame so os records que sào em oferta da tabela produtos do database.mdb

como posso fazer isso?

vocês tem algum exemplo pra isso?

Obrigada

[Eli@ne]

coloco aqui em exemplo

mais este exemplo chama so um record de um protudo

eu queria que este script chamase 6 recods de seis produtos em oferta :(

<%

Dim SQLOfferte, RSOfferte, ArrProdotti, OfferteOK, IntMax, StrRandomOfferte, IOfferte, IntRandom, ArrRandom, Rivenditore

If (MaxOffertePagina > 0) And AbilitaBoxOfferte Then

  SQLOfferte = " SELECT ID FROM Prodotti WHERE Offerta = True AND (GiacenzaInfinita OR Giacenza > 0) AND Cancellato = False "

  Set RSOfferte = Conn.Execute(SQLOfferte)

   If Not RSOfferte.EOF Then

    ArrProdotti = RSOfferte.GetRows

    OfferteOK = True

   Else

    OfferteOK = False

   End If

  RSOfferte.Close

  If OfferteOK Then

   IntMax = Ubound(ArrProdotti, 2)

   If IntMax >= 0 Then

    StrRandomOfferte = ","

    For IOfferte = 1 To MaxOffertePagina

     Randomize(Timer)

     Do

      IntRandom = Int(Rnd() * (IntMax+1))

     Loop Until Instr(StrRandomOfferte, "," & IntRandom & ",") = 0

     StrRandomOfferte = StrRandomOfferte & IntRandom & ","

    Next

    ArrRandom = Split(Mid(StrRandomOfferte, 2, Len(StrRandomOfferte) -2), ",")

 

    SQLOfferte = " SELECT * FROM Prodotti WHERE "

 

    For IOfferte = 0 To MaxOffertePagina - 2

     SQLOfferte = SQLOfferte & "(ID = " & ArrProdotti(0, ArrRandom(IOfferte)) & ") OR "

    Next

    SQLOfferte = SQLOfferte & "(ID = " & ArrProdotti(0, ArrRandom(MaxOffertePagina - 1)) & ")"

    Set RSOfferte = Conn.Execute(SQLOfferte)

%>

  <table width="140" cellspacing="0" cellpadding="3" bordercolordark="#E5E5E5" bordercolorlight="#000000" border="1">

<%

    Do While NOT RSOfferte.EOF

%>

  

   <tr bgcolor="<%=Tabella_Colore_Cella%>">

    <td colspan="2" valign="middle" width="140">

     <br>

     <center>

      <img src="

<%

     If RSOfferte("PFoto") <> "" Then

      Response.Write RSOfferte("PFoto")

     Else

      Response.Write Path_IMG & Img_NonDisponibile_P

     End If

%>

      " width="<%=PFoto_Larghezza%>" height="<%=PFoto_Altezza%>" border="1">

      <br>

      <a href="scheda.asp?id=<%=RSOfferte("Id")%>"><b><%=RSOfferte("Prodotto")%></b></a>

     </center>

    

    

    

     <%=Disponibilita%>:

<%

     If ImmagineGiacenza Then

      Response.Write "<img  border=""0"" src="""

      If (RSOfferte("Giacenza") <= 0) AND NOT RSOfferte("GiacenzaInfinita") Then

       Response.Write Path_Img & ImgNonDisponibile

      Else

       Response.Write Path_Img & ImgDisponibile

      End If

      Response.Write """>"

     Else

      If RSOfferte("GiacenzaInfinita") Then

       Response.Write TestoGiacenzaInfinita

      Else

       Response.Write RSOfferte("Giacenza")

      End If

     End If

%>

     <br>

     <br>

     <%=TitoloCPrezzo%>:<br>

     <b><%=SimboloValuta%></b> <font color="red"><%=VisualizzaPrezzo(RSOfferte("CPrezzo"))%></font> <%=Replace(IvaNonCompresa, "[iva]", RSOfferte("IVA"))%>

<%

     If Session("Rivenditore") Then

%>

     <br>

     <br>

     <%=TitoloRPrezzo%>:<br>

     <b><%=SimboloValuta%></b> <font color="red"><%=VisualizzaPrezzo(RSOfferte("RPrezzo"))%></font> <%=Replace(IvaNonCompresa, "[iva]", RSOfferte("IVA"))%>

<%

     End If

%>

     <br>

    </td>

   </tr>

<%

     RSOfferte.MoveNext

    Loop

%>

  </table>

<%

   Else

%>

  <p>

   <%=Errore_NoOfferte%>

  </p>

<%

   End If

  Else

%>

  <table width="140" cellspacing="0" cellpadding="0" bordercolordark="#E5E5E5" bordercolorlight="#000000" border="1">

   <tr>

    <td bgcolor="<%=Tabella_Colore_Titolo%>" width="100" valign="middle">

     <img src="<%=Path_Img%>offerta_tabella_titolo.gif" width="68" height="15" border="0">

    </td>

    <td bgcolor="<%=Tabella_Colore_Titolo%>" width="40" valign="middle" align="center">&nbsp;

    

    </td>

   </tr>

   <tr bgcolor="<%=Tabella_Colore_Cella%>">

    <td colspan="2" valign="middle" width="140">

     <br>

     <center>

      <%=Errore_NoOfferte%>

     </center>

     <br>

    </td>

   </tr>

  </table>

<%

  End If

End If

%>

[Eddie_666]

Eu não olhei muito bem o código, até porque ele está em italiano.. Mas tu pode selecionar com LIMIT do sql... SELECT id FROM produtos WHERE promocao=1 LIMIT 6

Não tenho certeza se a sintaxe é exatamente essa, mas acho que sim...

[Eli@ne]

descupa se eu tinha colocado o codigo em italiano

eu traduzi o codigo e fiz um poquinho mas simples da uma olhadinha

<% Dim SQLOfertas, RSOfertas, ArrProdotos, OfertasOK, IntMax, StrRandomOfertas, IOfertas, IntRandom, ArrRandom, Rivendedor

If (MaxOfertasPagina > 0) And QualificaBoxOfertas Then

  SQLOfertas = " SELECT ID FROM Prodotos WHERE Oferta = True AND (estoque_de_mercadoria_fim OR estoque_de_mercadoria > 0) AND Cancelado = False "

  Set RSOfertas = Conn.Execute(SQLOfertas)

  If Not RSOfertas.EOF Then

    ArrProdotos = RSOfertas.GetRows

    OfertasOK = True

  Else

    OfertasOK = False

  End If

  RSOfertas.Close

  If OfertasOK Then

  IntMax = Ubound(ArrProdotos, 2)

  If IntMax >= 0 Then

    StrRandomOfertas = ","

    For IOfertas = 1 To MaxOfertasPagina

    Randomize(Timer)

    Do

      IntRandom = Int(Rnd() * (IntMax+1))

    Loop Until Instr(StrRandomOfertas, "," & IntRandom & ",") = 0

    StrRandomOfertas = StrRandomOfertas & IntRandom & ","

    Next

    ArrRandom = Split(Mid(StrRandomOfertas, 2, Len(StrRandomOfertas) -2), ",")

 

    SQLOfertos = " SELECT * FROM Prodotos WHERE "

 

    For IOfertas = 0 To MaxOfertasPagina - 2

    SQLOfertas = SQLOfertas & "(ID = " & ArrProdotos(0, ArrRandom(IOfertas)) & ") OR "

    Next

    SQLOfertas = SQLOfertas & "(ID = " & ArrProdotos(0, ArrRandom(MaxOfertasPagina - 1)) & ")"

    Set RSOfertas = Conn.Execute(SQLOfertas)

%>

  <table>

<%

    Do While NOT RSOfertas.EOF

%>

 

  <tr><td><center>

      <img src="<%=RSOfertas("PequenaFoto")%>" border="1">

      <br>

      <a href="produto.asp?id=<%=RSOfertas("Id")%>"><b><%=RSOfertas("Prodoto")%></b></a>

    </center>

   

    Disponibilidade:

<%

    If Image_estoque_de_mercadoria Then

      Response.Write "<img  border=""0"" src="""

      If (RSOfertas("estoque_de_mercadoria") <= 0) AND NOT RSOfertas("estoque_de_mercadoria_fim") Then

      Response.Write Path_Img & Img_Nao_Disponivel

      Else

      Response.Write Path_Img & Img_Disponivel

      End If

      Response.Write """>"

    Else

      If RSOfferte("estoque_de_mercadoria_fim") Then

      Response.Write Texto_estoque_de_mercadoria_fim

      Else

      Response.Write RSOfertas("estoque_de_mercadoria")

      End If

    End If

%>

   

    <br>

    <Preço:<br>

    <b>R$</b> <font color="red"><%=RSOfertas("Cliente_Preço")%></font> <%=Replace(Taxa_nao_Compresa, "[Taxa]", RSOfertas("taxa"))%>

<%

    If Session("Rivendidor") Then

%>

        <br>

    Preço para rivendidor:<br>

    <b>R$</b> <font color="red"><%=RSOfertas("Rivendidor_Preço"))%></font> <%=Replace(taxa_Nao_Compresa, "[taxa]", RSOfertas("taxa"))%>

<%

    End If

%>

        </td></tr>

<%

    RSOfertas.MoveNext

    Loop

%>

  </table>

<%

  Else

%>

  <p>

  <%=Error_Na_Ofertas%>

  </p>

<%

  End If

  Else

%>

  <table><tr><td><center>

      <%=Error_Na_Ofertas%>

    </center></td></tr></table>

<%

  End If

End If

%>

o codigo que você falor atualiza 6 produtos na tabela em uma cela so

mais eu queria que na pagina tivese uma tabela com seis produtos

uma tabella tipo

oferta1 | oferta2 | oferta3

oferta4 | oferta5 | oferta6

que dize pode ter atè 20 produtos em oferta

não tem problema se atualiza

mas que entraria nesta pagina com uma tabela de 6 record

o codigo que eu coloquei aqui so atualiza un record por pagina

mim entende?

Obrigada :(

[Eli@ne]

Exemplo

eu queria que na pagina o cliente podese ver assim

www14.brinkster.com/brasilitalia/img/6ofertas.jpg

não quero que o cliente veja na pagina assim:

www14.brinkster.com/brasilitalia/img/1ofertas.jpg

não tem problema se as ofertas se atualizem

è otimo si as ofertas si atualizem

mim entendem?

descupa pelos os meus erros de portuguès

eu sou brasileira mas jà sào muitos anos que moro na Itàlia

[Eddie_666]

Creio que um contador (pode ser um laço for) te ajudaria...

[Eli@ne]

Creio que um contador (pode ser um laço for) te ajudaria...

Nào entedi

??????????????????????

descupa meu aperreio :(

[negociadorweb]

como estás, tuty bene?

é assim que se diz tudo bem? (rs)

bom vamos ao que interessa.

você pode fazer o que deseja de varias formas.

1) com um laço For Next.

ex:

<%

For item = 1 To 6

Response.Write ...

Next

%>

Dentro do laço acima voce coloca a tabela com os itens que deseja em oferta. Como o laço vai de 1 a 6, será mostrado os produtos randomicamente, de acordo com o codigo que você fez, não ultrapassando o limite de 6 produtos.

2) usando um limite de registros a serem exibidos:

ex:

tabela.MaxRecords = 6

assim mesmo se você utilizar o Do, Do While, será mostrado apenas 6 registros. Esse codigo, MaxRecords, deve ser colocado depois que você mandou abrir a instrucao SQL

e tem mais exemplos, porem acho que com um desses dois voce resolve seu problema, ok?

qualquer coisa dá o toque ai...

não se esqueça de nos passar o endereço do site quando ele estiver pronto, ok?

[]'s

:ph34r:

[Eddie_666]

Se não me engano, dá pra usar limit do SQL... Mas acho que o melhor no caso, é usar o for, pois se depois tu quiser alterar o número de ofertas que aparecem, fica mais fácil...

[Eli@ne]

iiihhh!!!!!

nào funciona

acho que to fazendo qualquer coisa de errado :unsure:

eu já coloquei este for next de todo jeito

aonde è que eu coloco esta istruçào ali na quele codigo ali em sima que eu traduzi em portugues???

Ola negociadorweb

prazer!!!!

na italia si escreve tutto bene

meu sito è www.brasileitalia.net

eu esto constuindo esta parte do sito

www.brasileitalia.net/shopping_center/

mas eu sou mobral mesmo!!!

tenho um monte de trabalho que nào entendo muito bem mais faço com muita vontade de aprender :D

[negociadorweb]

Eli@ne, veja uma coisa no seu codigo:

SQLOfertos = " SELECT * FROM Prodotos WHERE "

For IOfertas = 0 To MaxOfertasPagina - 2

SQLOfertas = SQLOfertas & "(ID = " & ArrProdotos(0, ArrRandom(IOfertas)) & ") OR "

Next

SQLOfertas = SQLOfertas & "(ID = " & ArrProdotos(0, ArrRandom(MaxOfertasPagina - 1)) & ")"

Set RSOfertas = Conn.Execute(SQLOfertas)

você notou que a instrucao se chama SQLOfertos e a outra se chama SQLOfertas?

pode ser isto que não está funcionando.

dá uma olhadinha e depois diga se funcionou....beleza?

[]'s

:ph34r:

[Eli@ne]

nào funciona do mesmo jeito

o codigo que eu usei foi o primeiro codigo la em sima

este que você viu errado foi porque errei na traduçào

que eu fiz pra ve se vocês mim entedem:(