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:
Kann mir hier jemand weiterhelfen und sagen, wie ich oben genanntes Ziel umgesetzt bekomme?
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?