Inserimento record. Aiutoooooooo

[daniele48]

Salve, ho un problema che mi sta facendo pèerdere la testa da un pò di tempo.

Ho fatto una pagina di inserimento record, la qiuarta diversa oggi, ma questa non ne vuole proiprio sapere.

Quando invio il modulo mi da questo errore:

HTTP 500.100 - Errore interno del server - errore ASP
Internet Information Services

--------------------------------------------------------------------------------

Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
Microsoft JET Database Engine (0x80040E14)
Syntax error in INSERT INTO statement.
/dinamiccamaldoli/TMPfq7k5xyt5o.asp, line 115

L'ho fatta e disfatta più volte, ma niente da fare.

Ch mi da una mano? Ciao

[Sypher]

posta la query di inserimento!

[ianstilo]

errore 500??...spunta l'opzione Mostra messaggi di errore http brevi dalle opzioni avanzate internet..

[Corwin]

Originariamente inviato da ianstilo
errore 500??...spunta l'opzione Mostra messaggi di errore http brevi dalle opzioni avanzate internet..

E' già disattivato.

[daniele48]

eccolo:

' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_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_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

L'errore segnalato è la riga in rosso.

Ciao

[Sypher]

forse con una rsponse è meglio!

' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
    Response.Write MM_editQuery 
     Response.End 
  If (Not MM_abortEdit) Then
    ' execute the insert
    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

L'errore segnalato è la riga in rosso.

Ciao [/QUOTE]

[Corwin]

Fammi capire, usi la creazione automatica delle query di Dreamweaver e non funziona ? Andiamo bene. :di56:

[Shagrat]

arrrrrrggg MM_ MM_ MM_ MM_

[daniele48]

ebbene si, la uso, e oggi l'ho usata per fare altri 4 moduli di inserimento record e tutti funzionano, tranne questo.

L'ho fatto e rifatto ma nisba, niente da fare

[Sypher]

Originariamente inviato da Shagrat
arrrrrrggg MM_ MM_ MM_ MM_

mmm...in qualche modo ricorda cagamente dreamweaver