> Und da habe ich dann auch mein Freitagsproblem. Hab noch nie mit einem
> Dictionary gearbeitet.
> Also RTFM.......
--- Code ---
Dim objDict
Set objDict = CreateObject("Scripting.Dictionary")
On Error Resume Next
Do While Not rs.EOF
If rs.Fields(0) <> "" Then objDict.Add rs.Fields(0), ""
rs.MoveNext
Loop
xKeys = objDict.Keys
For i = 0 To objDict.Count -1
Response.Write xKeys(i) & "<BR>"
Next
On Error Goto 0
--- Code ---
Sollte so funktionieren.
Habs mit einem Recordset als Beispiel gemacht. Kannst ja einfach auf das
Textfile umschreiben.
Ciao
Buchi
| [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
