>set oDBConnect = OpenDB(strConnection)
>set RS =
>GetAllRecordsWhere(oDBConnect,"qDropDowns","","","FileTypeID",intTypeID)
>redim arrProps(RecordCount(RS))
>do while not RS.EOF
>arrProps(i) = RS("Title")hier fehlt imho ein i = i + 1 >RS.MoveNext >loop >GetProperties = arrProps Gruss Alex | [aspdecoffeehouse] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
