Vorselektion funktioniert nicht

[Anja]

Hallöchen,

Ich habe ein Problem, bei dem ich leider nicht weiter komme und hoffe, daß mir jemand helfen kann...

Was ich tun will ist:

Es werden Daten, die in einer Datenbank gespeichert wurden in einem Drop-Down Menü ausgelesen und angezeigt.
Das Menü ist teil eines Formulars in dem drei weitere Auswahllisten angezeigt werden.

Falls das Formular abgeschickt wird, bevor alle Felder ausgefüllt sind soll das Formular wieder angezeigt werden. Die bereits ausgefüllten Felder bleiben erhalten > der gewählte Eintrag im Listenfeld bleibt selektiert.

Nun mein Problem:
Es klappt einwandfrei, die Daten aus der Datenbank auszulesen. Doch wird die Seite erneut geladen, bleiben meine Selektionen, bis auf das erste Drop-Down Menü nicht erhalten.

Verbindung mit der Datenbank herstellen:

<%
    Dim objConnect
    Set objConnect = Server.CreateObject("ADODB.Connection")
        objConnect.Open cbGetConnection()

Dim objRS1, objRS2, objRS3

Set objRS1 = objConnect.Execute("Select sqlzeugnistyp From Listenfelder")
    Set objRS2 = objConnect.Execute("Select sqltitel From Listenfelder")
    Set objRS3 = objConnect.Execute("Select sqlpersonalw From  Listenfelder")
    %>

Auslesen der Daten:

<select name="personalw" size="1" tabindex="21">
    <option value=""></option>
    <%
    If Not objRS3.EOF Then
       Do while not objRS3.EOF
          If objRS3.Fields("sqlpersonalw") <> "" Then
    %>
             <option value="<%=objRS3.Fields("sqlpersonalw")%>"
             <%If Request.Form("spersonalw") = objRS3.Fields("sqlpersonalw") Then%>
                  selected
             <%End If%>>
             <%=objRs3.Fields("sqlpersonalw")%></option>
    <%
          End If
          objRS3.MoveNext
       Loop
    Else
    %>
       <option>Keine Datensätze gefunden</option>
    <%End If%>
    </select>

Ich hoffe, jemand kann mir bei meinem Problem helfen...?

Schon mal vielen Dank im voraus!!!

Anja
________________
See you in space