Hallo Roman Ich weiss, hab Deine Nachricht auch gelesen, hat mir aber leider nicht viel weiter geholfen.
Gruss Nicole -----Urspr�ngliche Nachricht----- Von: Roman Pittroff [mailto:[EMAIL PROTECTED]] Gesendet: Donnerstag, 25. Oktober 2001 12:21 An: [EMAIL PROTECTED] Betreff: [aspdebeginners] RE: Datenbank Hallo Nicole Man kann dir keinen vorwurfmachen das du Anfaenger bist, aber wenn du mal die mails auf deine postings lesen wuerdes koennte das vielleicht schon behoben sein. Mein post vom 23.oct and dich mit dem gleichen problem. ----------------------------------------------------------- Hallo Nicole Wie sollen wir hier raten :-) Einfach mal MM_editQuery mir response.write ausgeben lassen danach in der db direct ausfuehren wenn du dann immer noch nicht schlauer bist den string posten und sagen welche db und was fuern type das feld MM_tableValues ist :-) Gruss Roman Pittroff Consulting Bangkok, Thailand -----Original Message----- From: Nicole Giebeler [mailto:[EMAIL PROTECTED]] Sent: Thursday, October 25, 2001 5:19 PM To: [EMAIL PROTECTED] Subject: [aspdebeginners] Datenbank Hallo Jutta, Hier ist der Code und weiter unten die Fehlermeldung. <%@LANGUAGE="VBSCRIPT"%> <!--#include file="../Connections/benutzer.asp" --> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_benutzer_STRING MM_editTable = "Benutzer" MM_editRedirectUrl = "benutzerauthentifizierung.asp" MM_fieldsStr = "Benutzername|value|Passwort|value|Firma|value|Strasse|value|Hausnummer| valu e|PLZ|value|Stadt|value|eMail|value|Internet|value|Branche|value|Projekt e|va lue|aktuelle_Projekte|value|Geschftsfhrer|value|Ansprechpartner|value|Di lue|enst leistungen|value|Technologieeinsatz|value|Knowhow|value|Kontakt_und_Koop leistungen|value|Technologieeinsatz|value|Knowhow|value|erat ionswnsche|value|Zulieferer_fr_Branche|value|Messebeteiligung|value|Anme ionswnsche|value|rkun gen|value|Datum|value|ID|value" MM_columnsStr = "Benutzername|',none,''|Passwort|',none,''|Firma|',none,''|Strasse|',non e,'' |Hausnummer|',none,''|PLZ|',none,''|Stadt|',none,''|e-Mail|',none,''|Int |Hausnummer|erne t|',none,''|Branche|',none,''|Projekte|',none,''|[aktuelle Projekte]|',none,''|Gesch�ftsf�hrer|',none,''|Ansprechpartner|',none,''| Dien stleistungen|',none,''|Technologieeinsatz|',none,''|Know-how|',none,''|[ stleistungen|Kont akt und Kooperationsw�nsche]|',none,''|[Zulieferer f�r Branche]|',none,''|Messebeteiligung|',none,''|Anmerkungen|',none,''|Datu m|#, none,NULL|ID|none,none,NULL" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_benutzer_STRING MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> Fehlermeldung: Microsoft OLE DB Provider for ODBC Drivers- Fehler '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntaxfehler in der INSERT INTO-Anweisung. /jens/Formular/TMP6uggqlrb6i.asp, line 90 Danke und VlG Nicole Giebeler | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie | knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
