ASP / VBScript und Checkboxen in Datenbank (Access) von UnterKnut, 26.02.2020 08:36

ASP / VBScript und Checkboxen in Datenbank (Access)

UnterKnut 26.02.2020 08:36 (Versionen)

vb-script

okay, die Seite besteht aus einem Formular

<form action="speichern.asp" method="post">

welches 64 input Felder enthält, die in mehrere Tables gegliedert sind. einige davon sind vom type text

<td><b>letzte &Auml;nderung</b></td><td><input type="text" name="Kern_letzte_Aenderung" value="<%=(rs_Ausschreibungsedit.Fields.Item("Kern_letzte_Aenderung").Value) %>"></td></tr>

und einige vom type checkbox

<tr>
  <td><b>keine Angabe</b></td><td><input type="Checkbox" name="Absage_Keine_Angabe" value="<%=(rs_Ausschreibungsedit.Fields.Item("Absage_Keine_Angabe").Value) %>"></td>
  <td><b>Konzept erreicht keine 85% der Leistungspunkte</b></td>
  <td><input type="Checkbox" name="Absage_Konzept_N_85p" value="<%=(rs_Ausschreibungsedit.Fields.Item("Absage_Konzept_N_85p").Value) %>"></td>
</tr>

Beim absenden wird das formular an speichern.asp übergeben

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/Ausschreibungskalender.asp" -->
<% strID = Request.QueryString("ID") %>


<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%

%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%


  If (Not MM_abortEdit) Then
    ' execute the update
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_Ausschreibungsliste_STRING 
	
    MM_editCmd.CommandText = "UPDATE Ausschreibungsliste SET Kern_Status = ?, Kern_Akademie = ?, Kern_letzte_Aenderung = ?, Kern_Angebotsabgabe = ?, Kern_Vergabenummer = ?, Kern_Massnahmebeginn = ?, Kern_Massnahmeende = ?, Kern_Losnummer = ?, Kern_Beauftragungsart = ?, Kern_MassnahmeArt = ?, Kern_Durchfuehrungsort = ?, Kern_Auftraggeber = ?, Kern_Zuschlag_An = ?, Preise_Aufwandspauschale = ?, Preise_Integrationshonorar = ?, Preise_Angebotspreis_Stunde = ?, Preise_Angebotspreis_gesamt = ?, Preise_Mitbieter_Nicht_bekannt = ?, Preise_Mitbieterpreis_hoechste = ?, Preise_Mitbieterpreis_niedrigste = ?, TN_Anzahl_TN = ?, TN_Vermittlungsqoute = ?, TN_Gesamt_TN_Plaetze = ?, TN_Bietergemeinschaft = ?, TN_Laufzeit_Wochen = ?, TN_Bietergemeinschaft_Plaetze = ?, TN_Laufzeit_Monate = ?, Absage_ehemals = ?, Absage_Keine_Angabe = ?, Absage_Ausschreibung_Aufgehoben = ?, Absage_Konzept_N_85p = ?, Absage_Kennzahl_innerh_Korridor = ?, Absage_Formfehler = ?, Absage_Kennzahl_ausserh_Korridor = ?, Absage_fehlende_Formulare = ?, Absage_n_hoechste_Prio = ?, Absage_Unterschrift_fehlt = ?, Absage_n_wirtschaftlich = ?, Absage_verspaetet = ?, Absage_Preis_Leistung_nio = ?, Absage_fehlende_Preisangaben = ?, Absage_Preis_ueber_Zuschlag = ?, Absage_Vordrucke_nio_VU = ?, Absage_Punkte_identisch_aber_teurer = ?, Absage_Konzeptschluessigkeit = ?, Absage_freihaendige_Vergabe = ?, Absage_fehlende_Angaben = ?, Absage_NEU = ?, Absage_Fachkundezweifel = ?, Absage_n_Mindestanforderungen_VU = ?, Absage_Massnahmepreiss_n_eindeutig = ?, Absage_0_Punkte_T = ?, Absage_0_Punkte_B = ?, Absage_1_Punkt_T = ?, Absage_1_Punkt_B = ?, Modul_1_Beschreibung = ?, Modul_2_Beschreibung = ?, Modul_3_Beschreibung = ?, Modul_1_Preis = ?, Modul_2_Preis = ?, Modul_3_Preis = ?, Modul_1_Anzahl_MN = ?, Modul_2_Anzahl_MN = ?, Modul_3_Anzahl_MN = ? WHERE ID = " & Session("strID") & ""
	
	
	MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, MM_IIF(Request.Form("Kern_Status"), Request.Form("Kern_Status"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, MM_IIF(Request.Form("Kern_Akademie"), Request.Form("Kern_Akademie"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, MM_IIF(Request.Form("Kern_letzte_Aenderung"), Request.Form("Kern_letzte_Aenderung"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, MM_IIF(Request.Form("Kern_Angebotsabgabe"), Request.Form("Kern_Angebotsabgabe"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 50, MM_IIF(Request.Form("Kern_Vergabenummer"), Request.Form("Kern_Vergabenummer"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 50, MM_IIF(Request.Form("Kern_Massnahmebeginn"), Request.Form("Kern_Massnahmebeginn"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 50, MM_IIF(Request.Form("Kern_Massnahmeende"), Request.Form("Kern_Massnahmeende"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 50, MM_IIF(Request.Form("Kern_Losnummer"), Request.Form("Kern_Losnummer"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 50, MM_IIF(Request.Form("Kern_Beauftragungsart"), Request.Form("Kern_Beauftragungsart"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 50, MM_IIF(Request.Form("Kern_MassnahmeArt"), Request.Form("Kern_MassnahmeArt"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 50, MM_IIF(Request.Form("Kern_Durchfuehrungsort"), Request.Form("Kern_Durchfuehrungsort"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 50, MM_IIF(Request.Form("Kern_Auftraggeber"), Request.Form("Kern_Auftraggeber"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 202, 1, 50, MM_IIF(Request.Form("Kern_Zuschlag_An"), Request.Form("Kern_Zuschlag_An"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 202, 1, 50, MM_IIF(Request.Form("Preise_Aufwandspauschale"), Request.Form("Preise_Aufwandspauschale"), null)) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 202, 1, 50, MM_IIF(Request.Form("Preise_Integrationshonorar"), Request.Form("Preise_Integrationshonorar"), null)) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 202, 1, 50, MM_IIF(Request.Form("Preise_Angebotspreis_Stunde"), Request.Form("Preise_Angebotspreis_Stunde"), null)) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 202, 1, 50, MM_IIF(Request.Form("Preise_Angebotspreis_gesamt"), Request.Form("Preise_Angebotspreis_gesamt"), null)) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param18", 202, 1, 50, MM_IIF(Request.Form("Preise_Mitbieter_Nicht_bekannt"), Request.Form("Preise_Mitbieter_Nicht_bekannt"), null)) ' adBoolean
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param19", 202, 1, 50, MM_IIF(Request.Form("Preise_Mitbieterpreis_hoechste"), Request.Form("Preise_Mitbieterpreis_hoechste"), null)) ' adDouble
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param20", 202, 1, 50, MM_IIF(Request.Form("Preise_Mitbieterpreis_niedrigste"), Request.Form("Preise_Mitbieterpreis_niedrigste"), null)) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param21", 202, 1, 50, MM_IIF(Request.Form("TN_Anzahl_TN"), Request.Form("TN_Anzahl_TN"), null)) ' adLongVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param22", 202, 1, 50, MM_IIF(Request.Form("TN_Vermittlungsqoute"), Request.Form("TN_Vermittlungsqoute"), null)) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param23", 202, 1, 50, MM_IIF(Request.Form("TN_Gesamt_TN_Plaetze"), Request.Form("TN_Gesamt_TN_Plaetze"), null)) ' adDouble
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param24", 202, 1, 50, MM_IIF(Request.Form("TN_Bietergemeinschaft"), Request.Form("TN_Bietergemeinschaft"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param25", 202, 1, 50, MM_IIF(Request.Form("TN_Laufzeit_Wochen"), Request.Form("TN_Laufzeit_Wochen"), null)) ' adDouble
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param26", 202, 1, 50, MM_IIF(Request.Form("TN_Bietergemeinschaft_Plaetze"), Request.Form("TN_Bietergemeinschaft_Plaetze"), null)) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param27", 202, 1, 50, MM_IIF(Request.Form("TN_Laufzeit_Monate"), Request.Form("TN_Laufzeit_Monate"), null)) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param28", 202, 1, 50, MM_IIF(Request.Form("Absage_ehemals"), Request.Form("Absage_ehemals"), null)) ' adVarWChar
	MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param29", 202, 1, 50, MM_IIF(Request.Form("Absage_Keine_Angabe"), Request.Form("Absage_Keine_Angabe"), null)) ' adBoolean
.... usw

Die Felder in der DB haben immer den selben Namen wie die Form selbst gearbeitet wird mit Session Variablen

Session("Absage_Keine_Angabe") = Request.Form("Absage_Keine_Angabe")
Session("Absage_Ausschreibung_Aufgehoben") = Request.Form("Absage_Ausschreibung_Aufgehoben")
Session("Absage_Konzept_N_85p") = Request.Form("Absage_Konzept_N_85p")
...

Nun werden alle text inputs beim absenden der Form gespeichert und aktualisiert Die Checkboxen aber bewegen sich überhaupt nicht, als würde da noch etwas fehlen

Beitrag melden

– Informationen zu den Bewertungsregeln

SELFHTML Forum - Ergänzung zur Dokumentation Übersicht

UnterKnut: ASP / VBScript und Checkboxen in Datenbank (Access)

Beitrag lesen

ASP / VBScript und Checkboxen in Datenbank (Access)

ASP / VBScript und Checkboxen in Datenbank (Access)