Problemer med INSERT INTO

På en side skal brugeren indsætte et selvvalgt antal sætninger.
Først vælges hvormange sætninger man vil indtaste, hvorefter der genereres et dertil afpasset antal tekstfelter.
Efter at disse tekstfelter er udfyldt skal teksterne indsættes i en database. Jeg har prøvet at stykke et script sammen der tager højde for det ikke på forhånd fastsatte antal felter.
Men jeg får fejlmeddelelsel: En sætning var ventet (udfor linien med INSERT INTO).
<%
If (CStr(Request("MM_insert")) = "frm_insert") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd
    'Dim intCount, numFields
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_connDiktat_STRING
    MM_editCmd.CommandText = "INSERT INTO tblDiktat (diktat_navn, diktat_beskrivelse, diktat_type"
    intCount=1
    do while intCount<=numFields
    &", opg"&intCount&", vis_ord"&intCount&", rigtigt_ord"&intCount
    intCount=intCount+1
    loop
    &", forfatter) VALUES (?, ?, ?"&_
    intCount=1
    do while intCount<=numFields&_
    ", ?"&_
    intCount=intCount+1
    loop&_
    ", ?)"
    '

ps. jeg ved godt at der mangler forskellige variablers værdier, men de kommer andensteds
Kan nogen mon gennemskue hvad jeg skal gøre her??
/Ole