---

Jeg skal hente en liste over produkttyper i en acces database med over 5000 posts, til en dropdownmenu.
Så hver type går igen MANGE gange hvordan får jeg den til kun at skrive hver type en gang?

Her er min kode...

<%
rs = "SELECT produktgruppe FROM prisliste ORDER BY produktgruppe"
set rs = Conn.execute(rs)

Response.Write "<select name=produktgruppe size=1>"
Response.Write "<option value='0'>-- Alle --</option>"
Do While Not rs.EOF

//Det har jeg prøvet det virker ikke...
'Do While rs("Produktgruppe") = sidste
'rs.MoveNext
'Loop

Response.Write "<option value=" & rs("Produktgruppe") & ">" & rs("Produktgruppe") & "</option>"
sidste = rs("Produktgruppe")
rs.MoveNext
Loop
Response.Write "</select>"
%>

Har desvære ikke mere end 20 point :(

Hilsen UniChaos

---

kan du ikke bruge selectdistinct

Lis

---

Ja, Lis har ret - det er da bare din SQL-sætning der skal rettes lidt:

SQLstr = "SELECT DISTINCT produktgruppe "
SQLstr = SQLstr & "FROM prisliste "
SQLstr = SQLstr & "ORDER BY produktgruppe"
Set rs = Conn.execute(SQLstr)

DISTINCT er et keyword i SQL så man kun får de forskellige forekomster - dvs alle dubletter på produktgruppe bliver udeladt fra SQL-resultatet.

Og så laver du bare din While-løkke indtil du er nået EOF

Kan iøvrigt anbefale bogen "Introduktion til SQL - databaser på Nettet" / Lars Ingesman / Ingeniøren|bøger /Isbn: 87-571-2386-1 - En bog der har hjulpet mig med mange SQL-problemer.

If rs.BOF AND rs.EOF Then
Response.Write("Ingen menu")
Else
Response.Write("<select name='produktgruppe' size='1'>")
rs.MoveFirst
While NOT rs.EOF
Current = rs("produktgruppe")
Response.Write("option value='"& Current &"'>"& Current &"</option)
rs.MoveNext
Wend
Response.Write("</select)

Du skal evt tilføje en WHERE id>0 til din SQLstr - bruger jeg af gammel vane...

Enjoy!

---

Tak for svaret mceilif.

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.