Hallo Roman, dass hab ich auch gerade eben rausgefunden. Es funktioniert! Jippi! Vielen, vielen dank, echt spitze.
VlG Nicole -----Urspr�ngliche Nachricht----- Von: Roman Pittroff [mailto:[EMAIL PROTECTED]] Gesendet: Donnerstag, 25. Oktober 2001 12:54 An: [EMAIL PROTECTED] Betreff: [aspdebeginners] RE: AW: RE: AW: RE: Datenbank Ok Nicole Feldnamen e-Mail ubnd Know-how sind falsch schreibe sie e_Mail, Knowhow bzw Know_how teste das mal. oder in [] Nun dann machst du dir ' aus dem sourcepart wo ich dir gegeben habe! Und wir hoffen das es besser geht Gruss Roman Pittroff Consulting Bangkok, Thailand -----Original Message----- From: Nicole Giebeler [mailto:[EMAIL PROTECTED]] Sent: Thursday, October 25, 2001 5:50 PM To: [EMAIL PROTECTED] Subject: [aspdebeginners] AW: RE: AW: RE: Datenbank Hallo Roman, also das ist mein Ergebnis. insert into Benutzer (Benutzername,Passwort,Firma,Strasse,Hausnummer,PLZ,Stadt,e-Mail,Interne t,Br anche,Projekte,[aktuelle Projekte],Gesch�ftsf�hrer,Ansprechpartner,Dienstleistungen,Technologieei nsat z,Know-how,[Kontakt und Kooperationsw�nsche],[Zulieferer f�r Branche],Messebeteiligung,Anmerkungen,Datum,ID) values ('Nicole','Hallo','Nichts','Hauptstr.','14','76829','Landau','walter@gho st.d e','www','Nichts','Nicole','Nicole','Jens','Jens','Nichts','Nichts','Nic hts' ,'Nichts','Nichts','Nichts','Nichts',#25.10.2001#,2) Gruss Nicole -----Urspr�ngliche Nachricht----- Von: Roman Pittroff [mailto:[EMAIL PROTECTED]] Gesendet: Donnerstag, 25. Oktober 2001 12:30 An: [EMAIL PROTECTED] Betreff: [aspdebeginners] RE: AW: RE: Datenbank Warum den nicht? Wo ist das problem, wenn dir mein vorschlag nicht gehofen hast und sags :-), so kann man dir schritt fuer schitt helfen. Tausche mal deinen part mit meinem aus, so wird die MM_editQuery ausgegeben, und diese postest du mal! 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 response.write MM_editQuery End If probier das mal aus. wenn es nichts ausgibt dann mecker mit mir :-) OK? Gruss Roman Pittroff Consulting Bangkok, Thailand -----Original Message----- From: Nicole Giebeler [mailto:[EMAIL PROTECTED]] Sent: Thursday, October 25, 2001 5:30 PM To: [EMAIL PROTECTED] Subject: [aspdebeginners] AW: RE: Datenbank 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 | 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 | 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
