Array Problem

[Odium]

Hallo,

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