Danke das ist schon sehr hilfreich, aber wei� jemand wo ein Beispiel in VBScript finde 
und wenn m�glich auf deutsch. Mein Englisch ist leider besch.. .

Anja

-----Urspr�ngliche Nachricht-----
Von: Claudius Ceteras [mailto:[EMAIL PROTECTED]]
Gesendet: Freitag, 1. Februar 2002 11:56
An: ASP Datenbankprogrammierung
Betreff: [aspdedatabase] RE: Dropdownlosten


Z.B. so:

http://www.programmersresource.com/articles/listbox.asp
http://www.4guysfromrolla.com/webtech/101099-1.shtml

Claudius

> -----Original Message-----
> From: Weisselberg Anja [mailto:[EMAIL PROTECTED]] 
> Sent: Freitag, 1. Februar 2002 11:43
> To: ASP Datenbankprogrammierung
> Subject: [aspdedatabase] Dropdownlosten
> 
> 
> Hallo,
> 
> wer kann mir bei folgendem Problem helfen: 
> 
> Ich habe zwei Dropdownlisten die aus einer Access-Tabbelle 
> ausgelesen werden.
> 
> Bereich               Projekt
> ----------------------------------
>      x                   1
>      x                   2
>      x                   3
>      y                   4
>      y                   5
>      y                   6
> 
> Nun soll er sobald ich einen anderen Bereich ausw�hle die 
> Eintr�ge in der Liste Projekt �ndern. Wie bekomme ich das hin?
> 
> <FORM method="POST" action="Default.asp">
>       <TABLE align="center" bgcolor="#E9E9E9" 
> bordercolor="#000000" border="0">
>       <TR>
>       <TD>Bereich:</TD>
>       <TD><SELECT name="Bereich" size="1">
>       <% Set Verbinden = Server.CreateObject("ADODB.Connection")
>       Verbinden.Open "Zeiten"
>       Set Daten = Server.CreateObject("ADODB.Recordset")
>       Daten.Open "SELECT * FROM Daten", Verbinden, 
> adOpenDynamic, adLockOptimistic
>       BereichAktuell = Daten("Bereich")
>       Vergleich = "" 
>       Do until Daten.EOF
>               If Vergleich <> Daten("Bereich") Then %>
>                       <OPTION><%= Daten("Bereich") %></OPTION><BR>
>                       <% Vergleich = Daten("Bereich") 
>                       Daten.MoveNext
>               Else
>                       Daten.MoveNext
>               End If
>       LOOP %> 
>       </SELECT></TD>
>       </TR>
>       <TR>
>       <TR>
>       <TD>Produkt:</TD>
>       <TD><SELECT name="Produkt" size="1">
>       <% Daten.MoveFirst
>       If BereichAktuell = Daten("Bereich") Or Daten.EOF Then %>
>               <OPTION><%= Daten("Produkt") %></OPTION><BR>
>               <% Daten.MoveNext
>       Else
>               Daten.MoveNext
>               End If
>       Daten.Close
>       Set Daten = Nothing
>       Verbinden.Close
>       Set Verbinden = Nothing %>
>       </SELECT></TD>
>       </TR>
>       .
>       .
>       .
>       .
>       </TABLE>
> 
> </FORM>
> 
> Gru� Anja
> 
> 
> 
> | [aspdedatabase] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
> | Sie k�nnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
> 
> 


| [aspdedatabase] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp

| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp

Antwort per Email an