mancato inserimento dati in database

[crazy diamond]

Caro forum di HTML.IT
mi è stato chiesto di realizzare un form per delle prenotazioni.
Non essendo un programmatore (ma un grafico), ho utilizzato gli strumenti di Dreamweaver per la creazione di pagine dinamiche.
E'una settimana intera che creo connessioni al database e che non riesco ad inserire nessun record...
E'un problema molto comune, ho già fatto una ricerca, ma tutte le soluzioni proposte agli altri forumisti non mi sono state di aiuto....
Ogni volta mi riporta questo tipo di errore:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi nell'istruzione INSERT INTO.
/cartella/sottocartella/TMPi7cjl2u5z.asp, line 115

nella linea 115 del codice mi sembra di aver capito ci sia il vero e proprio inserimento dei dati:

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
115=> MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close


Durante i miei tentativi, ho inserito il database nella root.
La connessione (con DSN) funziona correttamente
L'errore è tipico delle autorizzazioni sbagliate...peccato che l'utente IUSR_WEBDESIGN (dove webdesign è il nome del mio computer) abbia tutte le autorizzazioni necessarie per scrivere nel database...
Il mio sistema operativo è (purtroppo) windows XP, il database è di access.
Ho utlilzzato una tecnologia ASP VB script
L'errore avviene sempre, anche quando nella cartella non si genera il file prenotazioni.ldb
Che altro....ah si, i campi li ho già controllati!
Ringrazio anticipatamente per ogni tipo di risposta
Andrea

[Corwin]

Non è un problema di accessi... è il comando che dai al database che è sbagliato.

[Shagrat]

manca solo che tu ci faccia vedere la query

[crazy diamond]

wow che tempismo!!
che comando devo dare al database?

[Corwin]

Originariamente inviato da crazy diamond
wow che tempismo!!
che comando devo dare al database?

Appoggia una mano al monitor che provo a leggerti nel pensiero x risponderti... :gren:

Devi postare il punto in cui viene creata la stringa MM_editQuery...

[Shagrat]

belli i pink floyd

cmq tornando a noi...posti la query? oppure la pagina per intero, e mettila tra i tag [ CODE] [ /CODE](senza spazio)

[crazy diamond]

Ok....non so se è lei...ci provo!!

MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

MM_editConnection = MM_signore_fa_che_funzioni_STRING
MM_editTable = "richieste"
MM_editRedirectUrl = "grazie.htm"
MM_fieldsStr = "cognome|value|nome|value|telefono|value|email|val ue|dataarr|value|duratasogg|value|trattamento|valu e|note|value|stanza|value"
MM_columnsStr = "cognome|',none,''|nome|',none,''|telefono|',none, ''|email|',none,''|dataarr|',none,NULL|duratasogg| none,none,NULL|trattamento|',none,''|note|',none,' '|stanza|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_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
%>

[Corwin]

... cerca un pezzo in cui ci sia la riga

MM_editQuery = "INSERT INTO..."

[crazy diamond]

Grazie per la pazienza, Corwin, e scusami per l'ignoranza in materia.
Riporto tutto qui:

' 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

[Shagrat]

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

prova ad aggiungere quella riga e dicci cosa i viene scritto a video