Dropdown-Menü mit Untermenüs


Lavingst@r

Grünschnabel
Hallo zusammen,

ich möchte mittels ASP in einer Seite eine Abfrage einbauen, die ein oder zwei Untermenü mit sich bringt.

D.h. ein User wählt ein Datum aus, das in der Datenbank (Access) vorgegeben ist (z.b. 01.03.2013) und dann soll ein Untermenü aufgehen, wo der User auswählen kann, welche Veranstaltungen an diesem Datum zur Verfügung stehen (ebenfalls Inhalte in der Access Datenbank vorhanden).

Bisheriger Ansatz ist dieser hier:

Code:
<%
' FP_ASP ASP, die von einer FrontPage-Komponente automatisch generiert wurde. Nicht Editieren.
On Error Resume Next
 
strErrorUrl = ""
 
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
        Err.Clear
 
        Set fp_conn =  Server.CreateObject("ADODB.Connection")
        FP_DumpError strErrorUrl, "Kann Verbindung nicht herstellen"
 
        Set fp_rs = Server.CreateObject("ADODB.Recordset")
        FP_DumpError strErrorUrl, "Kann Datensatzgruppe nicht erstellen"
 
        fp_conn.Open Application("HUBA_ConnectionString")
        FP_DumpError strErrorUrl, "Kann Datenbank nicht öffnen"
 
        fp_rs.Open "Meldungen", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
        FP_DumpError strErrorUrl, "Kann Datensatzgruppe nicht öffnen"
 
        fp_rs.AddNew
        FP_DumpError strErrorUrl, "Kann keine neue Datensatzgruppe zu Datenbank hinzufügen"
        Dim arFormFields0(10)
        Dim arFormDBFields0(10)
        Dim arFormValues0(10)
 
        arFormFields0(0) = "Meister"
        arFormDBFields0(0) = "Meister"
        arFormValues0(0) = Request("Meister")
        arFormFields0(1) = "Datum_der_Nachschulung"
        arFormDBFields0(1) = "Datum_der_nachschulung"
        arFormValues0(1) = Request("Datum_der_Nachschulung")
        arFormFields0(2) = "Raum"
        arFormDBFields0(2) = "Raum"
        arFormValues0(2) = Request("Raum")
        arFormFields0(3) = "Art_der_Nachschulung"
        arFormDBFields0(3) = "Art_der_Nachschulung"
        arFormValues0(3) = Request("Art_der_Nachschulung")
        arFormFields0(4) = "Vorname"
        arFormDBFields0(4) = "Vorname"
        arFormValues0(4) = Request("Vorname")
        arFormFields0(5) = "KST"
        arFormDBFields0(5) = "KST"
        arFormValues0(5) = Request("KST")
        arFormFields0(6) = "Name"
        arFormDBFields0(6) = "Name"
        arFormValues0(6) = Request("Name")
        arFormFields0(7) = "Datum"
        arFormDBFields0(7) = "Datum"
        arFormValues0(7) = Request("Datum")
        arFormFields0(8) = "Info"
        arFormDBFields0(8) = "Info"
        arFormValues0(8) = Request("Info")
        arFormFields0(9) = "Telefon"
        arFormDBFields0(9) = "Telefon"
        arFormValues0(9) = Request("Telefon")
 
        FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
 
        If Request.ServerVariables("REMOTE_USER") <> "" Then
                FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Benutzername"
        End If
        If Request.ServerVariables("REMOTE_HOST") <> "" Then
                FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Name_des_Remotecomputers"
        End If
 
        fp_rs.Update
        FP_DumpError strErrorUrl, "Kann Datenbank nicht aktualisieren"
 
        fp_rs.Close
        fp_conn.Close
 
        FP_FormConfirmation "text/html; charset=windows-1252",_
                                                "Formularbestätigung",_
                                                "Vielen Dank für das Einsenden der folgenden Informationen:",_
                                                "HUBA_Schulung.asp",_
                                                "Zurück zum Formular"
 
End If
End If
 
%>
Kann mir hier jemand weiterhelfen und sagen, wie ich oben genanntes Ziel umgesetzt bekomme?