Hallo Roman,
also das ist mein Ergebnis.
insert into Benutzer
(Benutzername,Passwort,Firma,Strasse,Hausnummer,PLZ,Stadt,e-Mail,Internet,Br
anche,Projekte,[aktuelle
Projekte],Gesch�ftsf�hrer,Ansprechpartner,Dienstleistungen,Technologieeinsat
z,Know-how,[Kontakt und Kooperationsw�nsche],[Zulieferer f�r
Branche],Messebeteiligung,Anmerkungen,Datum,ID) values
('Nicole','Hallo','Nichts','Hauptstr.','14','76829','Landau','[EMAIL PROTECTED]
e','www','Nichts','Nicole','Nicole','Jens','Jens','Nichts','Nichts','Nichts'
,'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
