Record ripetuti una sola volta

[kobra33]

Salve a tutti ho questo piccolo porblema: con il codice che posto di seguito, visualizzo tutti i record di un Db relativi alla categoria merceolica del sito che sto costruendo in particolare solo che vengono ripetuti per tutti i recordi presenti nella tabella, la quale contiene i seguenti campi ID, Categoria, Produttore, Prodotto, Prezzo, descrizione, foto. Per non rifare daccapo la tabella dividendola in due, separando cioè la categoria in una tabella a parte come faccio a far visualizzare una sola volta le varie categorie?
Questo è il codice:

<%
While ((Repeat1__numRows <> 0) AND (NOT prodotti.EOF))
%>
<tr class="bodytext">
<td>- <%=(prodotti.Fields.Item("Categoria").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
prodotti.MoveNext()
Wend
%>

grazie 1000 a tutti

[Mr.UltraDev]

scusa non ho capito per caso hai in una tabella categoria gli stessi nomi piu volte???

Es

"Categoria (SPORT)"

CALCIO
CALCIO
PALLAVOLO
TENNIS
PING PONG
TENNIS

ed invece vorresti:

CALCIO
PALLAVOLO
TENNIS
PING PONG

Se ho capito bene devi fare un nuovo recordset
facendo in SQL una SELECT DISTINC(Categoria)

se non ho capito :master:

[kobra33]

Allora, riepilogo: ho una tabella con i seguenti campi: ID, Categoria, Produttore, Prodotto, Prezzo, descrizione e foto in cui inserisco i prodotti del negozio con il codice che ho postato sotto visualizzo tutti i record della tabella di conseguenza siccome ad es. un articolo (es.liquore) è prodotto da più aziende vedo tanti record ripetuti quanti sono gli articoli di quella data categoria merceologica ma a me serve un elenco delle categorie merceologiche in cui ognuna di esse compaia ovviamente uan sola volta, in alre parole l'utente vede l'elenco delle categorie e sceglie quella che gli interessa.

[maximum]

Select Distinct(categoria) as categoria from tabella where ID = <Identificativo>

[kobra33]

Grazie per la tua risposta maximum ma sono un principiante in ASP, e non so dove inserire il codice che hai postato potresti dirmi dove va messo?

[maximum]

Qual è la pagina dove visualizzare singole voci di categoria?
Intendo il codice.

[kobra33]

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim prodotti
Dim prodotti_numRows

Set prodotti = Server.CreateObject("ADODB.Recordset")
prodotti.ActiveConnection = MM_connessione_STRING
prodotti.Source = "SELECT * FROM Prodotti ORDER BY Categoria ASC"
prodotti.CursorType = 0
prodotti.CursorLocation = 2
prodotti.LockType = 1
prodotti.Open()

prodotti_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
prodotti_numRows = prodotti_numRows + Repeat1__numRows
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT prodotti.EOF))
%>
<tr class="bodytext">
<td>- <%=(prodotti.Fields.Item("Categoria").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
prodotti.MoveNext()
Wend
%>

[maximum]

Cambiala così:

prodotti.Source = "SELECT distinct(categoria) as categoria FROM Prodotti ORDER BY Categoria ASC"

[Mr.UltraDev]

cioè allora avevo capito bene...
però la prox volta aggiungi che nonhai dimestichezza ti avrei risposto in modo piu completo...

prodotti.Source = "SELECT DISTINCT (categoria) FROM Prodotti ORDER BY Categoria ASC"

p.s

stai usando i prodotti macromedia?

[maximum]

Originariamente inviato da Mr.UltraDev
cioè allora avevo capito bene...
però la prox volta aggiungi che nonhai dimestichezza ti avrei risposto in modo piu completo...

prodotti.Source = "SELECT DISTINCT (categoria) FROM Prodotti ORDER BY Categoria ASC"

Avevo già dato la risposta... :rollo: