nicht angemeldet
Hallo,
eine kleine verbesserung, hatte " vergessen...
mit ubound(orte1) wie von Hans-Peter vorgeschlagen...
hast du auch die max. einträge...aber mit dem code kannst du eben auch andre vorgänge gleich einbauen...
sql = "select distinct StandortID from tabelle order by StandortID"
set rs = db.execute(sql)
dim orte
orte = ""
do while not rs.eof
orte = orte & rs("StandortID") & ","
rs.movenext
loop
orte = left(orte,len(orte) - 1) 'wegen dem letzten komma
orte1 = split(orte)
dim zaehler
zaehler = 0
for each eintrag in orte1
zaehler = zaheler + 1
next
response.write zaehler & "unterschiedlichen StandortID's<br>"
Odium