ayuda con este error

[kike22]

Hola,
Este es mi codigo.

<%
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.open "dsn=abc"
sql="select * from author where birth_day is not null and birth_month is not null and birth_year is not null"
set rs=conexion.execute(sql)
while not rs.eof
sql="insert into w_person (id,idSuffix,firstname,lastname,birthDate,birthMon th,birthYear,deadDate,deadMonth,deadYear,idNationa lity,idNationality_born,idUser,datex,numQuotes,sex ) values (" & rs.fields(0) & "," & rs.fields(4) & ",'" & rs.fields(2) & "','" & rs.fields(3) & "','" & rs.fields(9) & "','" & rs.fields(10) & "','" & rs.fields(11) & "','" & rs.fields(12) & "','" & rs.fields(13) & "','" & rs.fields(14) & "'," & rs.fields(5) & "," & rs.fields(6) & "," & rs.fields(16) & "," & rs.fields(17) & "," & rs.fields(18) & "," & rs.fields(7) & ")"
conexion.execute(sql)
rs.movenext
wend
rs.close
set rs=nothing
conexion.close
set conexion=nothing
%>

Y el error que me da es el siguiente:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC SQL Server Driver][SQL Server]Line 1: Incorrect syntax near ')'.

/Edicion/w_person.asp, línea 8

Lo he revisado y no encuentro el fallo, si alguien me pudiera ayudar se lo agradeceria.

Saludos