problema con INSERT

[MrRam]

Ho un problema e ci ho perso davvero tanti giorni ... magari qualche buona anima saprà aprirmi gli occhi

Ho un form, inserisco dei dati, ed invio il tutto ad una pagina

'////////// INIZIO ADD LOGIN //////////

Dim strCODICEFISCALE
Dim strPIVA
Dim strPASSWORD
Dim strCLEARANCE
Dim strNOME
Dim strCOGNOME
Dim strQUALIFICA
Dim strSTATOCIVILE
Dim strREGIMEPATRIMONIALE
Dim strNASCITA
Dim strNASCITACAP
Dim strNASCITARESIDENZA
Dim strNASCITARESIDENZAPROVINCIA
Dim strNASCITASTATO
Dim strNASCITACITTADINANZA
Dim strRESIDENZACAP
Dim strRESIDENZA
Dim strRESIDENZAPROVINCIA
Dim strRESIDENZAVIA
Dim strEMAIL
Dim strTELEFONO1
Dim strTELEFONO2
Dim strORARIOCONTATTO
Dim strTITOLOSTUDIO
Dim strPROFESSIONE
Dim strCATEGORIAREDDITUALE
Dim strANZIANITAANNI
Dim strANZIANITAMESI
Dim strREDDITOMENSILENUCLEO
Dim strREDDITIPERSONALITIPO
Dim strREDDITIPERSONALIIMPORTO
Dim strDEBITOTIPOLOGIA1
Dim strDEBITOIMPORTORESIDUO1
Dim strDEBITORATAMENSILE1
Dim strDEBITOTIPOLOGIA2
Dim strDEBITOIMPORTORESIDUO2
Dim strDEBITORATAMENSILE2
Dim strDEBITOTIPOLOGIA3
Dim strDEBITOIMPORTORESIDUO3
Dim strDEBITORATAMENSILE3
Dim strDEBITOTIPOLOGIA4
Dim strDEBITOIMPORTORESIDUO4
Dim strDEBITORATAMENSILE4
Dim strDEBITOTIPOLOGIA5
Dim strDEBITOIMPORTORESIDUO5
Dim strDEBITORATAMENSILE5
Dim strCOMPONENTINUCLEO
Dim strFIGLICARICO
Dim strNOTE
Dim strMAILINGLIST
Dim strDATAISCRIZIONE
Dim strORAISCRIZIONE
Dim strTIPOUTENTE
Dim strCONSULENTEID
Dim strFILIALEID

'on error resume next

strCODICEFISCALE = Request.Form("codicefiscale")
strPIVA = Request.Form("piva")
strPASSWORD = Request.Form("password")
strCLEARANCE = trim(request.form("clearance"))
strNOME = Request.Form("nome")
strNOME = Replace(strNOME,"'", "'")
strCOGNOME = Request.Form("cognome")
strCOGNOME = Replace(strCOGNOME,"'", "'")
strQUALIFICA = Request.Form("qualifica")
strSTATOCIVILE = Request.Form("statocivile")
strSTATOCIVILE = Replace(strSTATOCIVILE,"/", "/")
strREGIMEPATRIMONIALE = Request.Form("regimepatrimoniale")
strNASCITA = Request.Form("nascita")
strNASCITACAP = Request.Form("nascitacap")
strNASCITARESIDENZA = Request.Form("nascitaresidenza")
strNASCITARESIDENZA = Replace(strNASCITARESIDENZA,"'", "'")
strNASCITARESIDENZAPROVINCIA = Request.Form("nascitaresidenzaprovincia")
strNASCITASTATO = Request.Form("nascitastato")
strNASCITASTATO = Replace(strNASCITASTATO,"'", "'")
strNASCITACITTADINANZA = Request.Form("nascitacittadinanza")
strNASCITACITTADINANZA = Replace(strNASCITACITTADINANZA,"'", "'")
strRESIDENZACAP = Request.Form("residenzacap")
strRESIDENZA = Request.Form("residenza")
strRESIDENZA = Replace(strRESIDENZA,"'", "'")
strRESIDENZAPROVINCIA = Request.Form("residenzaprovincia")
strRESIDENZAVIA = Request.Form("residenzavia")
strRESIDENZAVIA = Replace(strRESIDENZAVIA,"'", "'")
strEMAIL = Request.Form("email")
strTELEFONO1 = Request.Form("telefono1")
strTELEFONO2 = Request.Form("telefono2")
strORARIOCONTATTO = Request.Form("orariocontatto")
strTITOLOSTUDIO = Request.Form("titolostudio")
strTITOLOSTUDIO = Replace(strTITOLOSTUDIO,"/", "/")
strPROFESSIONE = Request.Form("professione")
strPROFESSIONE = Replace(strPROFESSIONE,"'", "'")
strCATEGORIAREDDITUALE = trim(request.form("categoriareddituale"))
strANZIANITAANNI = trim(request.form("anzianitaanni"))
strANZIANITAMESI = trim(request.form("anzianitamesi"))
strREDDITOMENSILENUCLEO = trim(request.form("redditomensilenucleo"))
strREDDITIPERSONALITIPO = Request.Form("redditipersonalitipo")
strREDDITIPERSONALIIMPORTO = trim(request.form("redditipersonaliimporto"))
strDEBITOTIPOLOGIA1 = Request.Form("debitotipologia1")
strDEBITOIMPORTORESIDUO1 = trim(request.form("debitoimportoresiduo1"))
strDEBITORATAMENSILE1 = trim(request.form("debitoratamensile1"))
strDEBITOTIPOLOGIA2 = Request.Form("debitotipologia2")
strDEBITOIMPORTORESIDUO2 = trim(request.form("debitoimportoresiduo2"))
strDEBITORATAMENSILE2 = trim(request.form("debitoratamensile2"))
strDEBITOTIPOLOGIA3 = Request.Form("debitotipologia3")
strDEBITOIMPORTORESIDUO3 = trim(request.form("debitoimportoresiduo3"))
strDEBITORATAMENSILE3 = trim(request.form("debitoratamensile3"))
strDEBITOTIPOLOGIA4 = Request.Form("debitotipologia4")
strDEBITOIMPORTORESIDUO4 = trim(request.form("debitoimportoresiduo4"))
strDEBITORATAMENSILE4 = trim(request.form("debitoratamensile4"))
strDEBITOTIPOLOGIA5 = Request.Form("debitotipologia5")
strDEBITOIMPORTORESIDUO5 = trim(request.form("debitoimportoresiduo5"))
strDEBITORATAMENSILE5 = trim(request.form("debitoratamensile5"))
strCOMPONENTINUCLEO = trim(request.form("componentinucleo"))
strFIGLICARICO = trim(request.form("figlicarico"))
strNOTE = Request.Form("note")
strNOTE = Replace(strNOTE,"'", "'")
strNOTE = Replace(strNOTE, chr(13), "
")
strMAILINGLIST = Request.Form("mailinglist")
strDATAISCRIZIONE = Request.Form("dataiscrizione")
strORAISCRIZIONE = request.form("oraiscrizione")
strTIPOUTENTE = request.form("tipoutente")
strCONSULENTEID = trim(request.form("consulenteid"))
strFILIALEID = trim(request.form("filialeid"))

Set rs = Server.CreateObject("ADODB.Recordset")

  SQL = "INSERT INTO Login (codicefiscale, piva, [password], clearance, nome, cognome, qualifica, statocivile, regimepatrimoniale, nascita, nascitacap, nascitaresidenza, nascitaresidenzaprovincia, nascitastato, nascitacittadinanza, residenzacap, residenza, residenzaprovincia, residenzavia, email, telefono1, telefono2, orariocontatto, titolostudio, professione, categoriareddituale, anzianitaanni, anzianitamesi, redditomensilenucleo, redditipersonalitipo, redditipersonaliimporto, debitotipologia1, debitoimportoresiduo1, debitoratamensile1, debitotipologia2, debitoimportoresiduo2, debitoratamensile2, debitotipologia3, debitoimportoresiduo3, debitoratamensile3, debitotipologia4, debitoimportoresiduo4, debitoratamensile4, debitotipologia5, debitoimportoresiduo5, debitoratamensile5, componentinucleo, figlicarico, [note], mailinglist, dataiscrizione, oraiscrizione, tipoutente, consulenteid, filialeid)"
  SQL = SQL & " VALUES ('" & strCODICEFISCALE & "', '" & strPIVA & "', '" & strPASSWORD & "', " & strCLEARANCE & ", '" & strNOME & "', '" & strCOGNOME & "', '" & strQUALIFICA & "', '" & strSTATOCIVILE & "', '" & strREGIMEPATRIMONIALE & "', '" & strNASCITA & "', '" & strNASCITACAP & "', '" & strNASCITARESIDENZA & "', '" & strNASCITARESIDENZAPROVINCIA & "', '" & strNASCITASTATO & "', '" & strNASCITACITTADINANZA & "', '" & strRESIDENZACAP & "', '" & strRESIDENZA & "', '" & strRESIDENZAPROVINCIA & "', '" & strRESIDENZAVIA & "', '" & strEMAIL & "', '" & strTELEFONO1 & "', '" & strTELEFONO2 & "', '" & strORARIOCONTATTO & "', '" & strTITOLOSTUDIO & "', '" & strPROFESSIONE & "', " & strCATEGORIAREDDITUALE & ", " & strANZIANITAANNI & ", " & strANZIANITAMESI & ", " & strREDDITOMENSILENUCLEO & ", '" & strREDDITIPERSONALITIPO & "', " & strREDDITIPERSONALIIMPORTO & ", '" & strDEBITOTIPOLOGIA1 & "', " & strDEBITOIMPORTORESIDUO1 & ","
  SQL = SQL & " " & strDEBITORATAMENSILE1 & ", '" & strDEBITOTIPOLOGIA2 & "', " & strDEBITOIMPORTORESIDUO2 & ", " & strDEBITORATAMENSILE2 & ", '" & strDEBITOTIPOLOGIA3 & "', " & strDEBITOIMPORTORESIDUO3 & ", " & strDEBITORATAMENSILE3 & ", '" & strDEBITOTIPOLOGIA4 & "', " & strDEBITOIMPORTORESIDUO4 & ", " & strDEBITORATAMENSILE4 & ", '" & strDEBITOTIPOLOGIA5 & "', " & strDEBITOIMPORTORESIDUO5 & ", " & strDEBITORATAMENSILE5 & ", " & strCOMPONENTINUCLEO & ", " & strFIGLICARICO & ", '" & strNOTE & "', '" & strMAILINGLIST & "', '" & strDATAISCRIZIONE & "', '" & strORAISCRIZIONE & "', '" & strTIPOUTENTE & "', " & strCONSULENTEID & ", " & strFILIALEID & ")"

  Set rs = MyConn.Execute(SQL)

set rs = Nothing

'////////// FINE ADD LOGIN //////////

Purtroppo però esce l'errore in corrispondenza della INSERT:

Errore di sintassi nell'istruzione INSERT INTO.


Avete delle idee, ho controllato molte volte, magari a qualcuno viene un'idea.

Grazie molte.

[Xion Aritel]

Hai provato a farti restituire a video la stringa SQL ed a testarla a mano?
Non l'ho letta tutta, ma in genere così facendo saltano fuori i problemi

[MrRam]

vorrei seguire il tuo suggerimento, ma ho provato con
onerror response.write(SQL)

ma non succede nulla ..

[Roby_72]

Per fare una INSERT non occorre aprire un recordset, quindi al posto di questo:

Set rs = MyConn.Execute(SQL)

scrivi semplicemente:
MyConn.Execute(SQL)

Se vuoi stampare la query a video, prima di eseguirla devi fare la response.

Response.Write(SQL):response.end
MyConn.Execute(SQL)

Roby