Qual'è l'errore?

[Southfish]

La seguente query mi restituisce un errore di sintassi!
Dov'èèèèèèèèèèèèèèèèèèèèèèèèèèèè!

sql = "INSERT INTO iscritti "
sql = sql & "( codiceiscritto, password, cognome, nome, annoiscrizione, "
sql = sql & "codicestruttura, tipoiscritto, codiceconiuge, recapitotelefonico1, "
sql = sql & "recapitotelefonico2, "
If vNumerofigli = 0 Then
sql = sql & "numerofiglisoci"
End If
If vNumerofigli => 1 Then
sql = sql & "numerofiglisoci, nomefiglio1, datanascita1"
End If
If vNumerofigli => 2 Then
sql = sql & ", nomefiglio2, datanascita2"
End If
If vNumerofigli => 3 Then
sql = sql & ", nomefiglio3, datanascita3"
End If
If vNumerofigli => 4 Then
sql = sql & ", nomefiglio4, datanascita4"
End If
If vNumerofigli => 5 Then
sql = sql & ", nomefiglio5, datanascita5"
End If
sql = sql & " ) VALUES ( '"
sql = sql & vCodiceIscritto &"','"
sql = sql & vPassword &"','"
sql = sql & vCognome &"','"
sql = sql & vNome &"',"
sql = sql & vAnnoIscrizione &","
sql = sql & vCodicestruttura &",'"
sql = sql & vTipoiscritto &"',"
sql = sql & vCodiceconiuge &",'"
sql = sql & vRecapitotelefonico1 &"','"
sql = sql & vRecapitotelefonico2 &"',"
If vNumerofigli = 0 Then
sql = sql & 0
End If
If vNumerofigli => 1 Then
sql = sql & vNumerofiglisoci & ",'"
sql = sql & vNomefiglio1 & "','"
sql = sql & cDate(vDatanascita1) & "'"
End If
If vNumerofigli => 2 Then
sql = sql & ",'"
sql = sql & vNomefiglio2 & "','"
sql = sql & cDate(vDatanascita2) & "'"
End If
If vNumerofigli => 3 Then
sql = sql & ",'"
sql = sql & vNomefiglio3 & "','"
sql = sql & cDate(vDatanascita3) & "'"
End If
If vNumerofigli => 4 Then
sql = sql & ",'"
sql = sql & vNomefiglio4 & "','"
sql = sql & cDate(vDatanascita4) & "'"
End If
If vNumerofigli => 5 Then
sql = sql & ",'"
sql = sql & vNomefiglio5 & "','"
sql = sql & cDate(vDatanascita5) & "'"
End If
sql = sql & ");"
Response.write(sql)
call openConn()
set rs1 = dbConn.execute(sql)
__________________
la tebella è in un db Access 2000.

[Nazareno]

Nei primi If a volte metti la virgola a volte no: visto che sicuramente il codice entrerà solo in uno degli If, metti sempre la virgola prima del nome del campo e toglila invece dopo "recapitotelefonico2". La parte di codice modificata è:

sql = sql & "recapitotelefonico2 "
If vNumerofigli = 0 Then
sql = sql & ", numerofiglisoci"
End If
If vNumerofigli => 1 Then
sql = sql & ", numerofiglisoci, nomefiglio1, datanascita1"
End If
If vNumerofigli => 2 Then
sql = sql & ", nomefiglio2, datanascita2"
End If
If vNumerofigli => 3 Then
sql = sql & ", nomefiglio3, datanascita3"
End If
If vNumerofigli => 4 Then
sql = sql & ", nomefiglio4, datanascita4"
End If
If vNumerofigli => 5 Then
sql = sql & ", nomefiglio5, datanascita5"
End If