Jump to content
Fórum Script Brasil
  • 0

Database E 6 Records


Eli@ne
 Share

Question

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

Link to comment
Share on other sites

11 answers to this question

Recommended Posts

  • 0

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

%>

Link to comment
Share on other sites

  • 0

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...

Link to comment
Share on other sites

  • 0

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 :(

Link to comment
Share on other sites

  • 0

Exemplo

eu queria que na pagina o cliente podese ver assim

6ofertas.jpg

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

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

1ofertas.jpg

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

Link to comment
Share on other sites

  • 0

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

Link to comment
Share on other sites

  • 0

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:

Link to comment
Share on other sites

  • 0

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...

Link to comment
Share on other sites

  • 0

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

Link to comment
Share on other sites

  • 0

[email protected], 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:

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.1k
    • Total Posts
      647.1k
×
×
  • Create New...