32 messaggi dal 25 settembre 2003
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

daniele
512 messaggi dal 30 maggio 2002
volentieri ma servirebbe lo script almeno la riga 115...

se sapessero cosa penso sarei già morto...
32 messaggi dal 25 settembre 2003
ecco quì:

' 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------------- riga 115
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If


grazie

daniele
512 messaggi dal 30 maggio 2002
Se MM_tableValues è alfanumerico cambia la stringa così:

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values ('" & MM_dbValues & "')"

Ciao.

se sapessero cosa penso sarei già morto...
32 messaggi dal 25 settembre 2003
niente da fare, come prima

daniele
512 messaggi dal 30 maggio 2002
una cosa che da questo script non posso verificare ma tu puoi verifica che al momento della insert (riga 115) la variabile MM_editTable sia correttamente valorizzata.

se sapessero cosa penso sarei già morto...
333 messaggi dal 06 agosto 2003
Hai provato a visualizzare a video la stringa che fa l'inserimento?

Mostrandola a video capisci subito dov'è l'errore...

Conosco la metà di voi soltanto a metà e nutro per meno della metà di voi metà dell'affetto che meritate...

Bilbo Baggins

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.