Ich wurd ja auf eine unbrauchbare Abfrage tippen. So wie es in der Fehlermeldung dirnnen steht.
Ubrigens ist das Code das der Dreamweaver produziert :-o mfg Herbert Hahn -----Ursprungliche Nachricht----- Von: Maik Pfeiffer [mailto:[EMAIL PROTECTED]] Gesendet: Donnerstag, 27. Juni 2002 14:11 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] Re: AW: Re: Fehler wenn ich schon die ganzen MM's sehe wird mir schlecht. Frage mich wie man so programmieren kann, bzw Fehler suchen ... dieser code ist normal ein 2-Zeiler, bei dem man sofort sieht wenn etwas nicht stimmt... Aber wie es aussieht ist es wohl ein Rechte-Problem. schau mal ob der IUSR auf die DB schreibrechte hat. greetz At 14:00 27.06.2002 +0200, you wrote: >wortwahl ist die kuns jener, die nicht verstehen was sie sagen. das wort ist >nicht mittel mehr, als dass wir als mittel verstehen. > >weiter habt ihr hier eur bischen code (inl. zeile 91, boh...): > > <% > ' *** 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 >91 Set MM_editCmd = Server.CreateObject("ADODB.Command") > MM_editCmd.ActiveConnection = MM_editConnection > 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 > %> > >blessed euch leute >tony > > > >| 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
