Too few parameters. Expected 1.

[KLINKO]

sapete cosa vuole dire questo errore?
Too few parameters. Expected 1.

sotto il codice.
<%

Set RsAppalti = Server.CreateObject("ADODB.Recordset")
RsAppalti.ActiveConnection = Connection
RsAppalti.Source = "SELECT IdComplesso, IdResponsabile, IdCommittente, IVA FROM complessi WHERE Attivo = 'active' AND IVA > 0 Order by IdCommittente"
RsAppalti.Open()

numero = Request("numero")
Do Until RsAppalti.EOF

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = Connection
Rs.Source = "Select Mansione, Imponibile From Mansioni where IdComplesso = " & RsAppalti("IdComplesso") & " And Repeat = True"
Rs.Open()

Do Until Rs.EOF

IdFattura = "3370"
Mansione = Trim(Rs("Mansione"))
Imponibile = Trim(Rs("Imponibile"))

SQLVociFatture = "Insert into VociFatture (IdFattura,Mansione,Imponibile) Values (" & IdFattura & "," & Mansione & ",'" & Imponibile & "')"
Connection.Execute SQLVociFatture

Rs.MoveNext
Loop
RsAppalti.MoveNext
Loop %>

[99eros9]

è probabile che tu stia cercando di chiamare un campo o più campi che nel db non esistono. Controlla bene

[KLINKO]

allora se Mansione e imponibile gli dopo valore fisso
tipo:
Mansione = "88"
Imponibile = "200"

funziona tutto
invece cosi come sotto mi da quel errore

<% Set RsAppalti = Server.CreateObject("ADODB.Recordset")
RsAppalti.ActiveConnection = Connection
RsAppalti.Source = "SELECT IdComplesso, IdResponsabile, IdCommittente, IVA FROM complessi WHERE Attivo = 'active' AND IVA > 0 Order by IdCommittente"
RsAppalti.Open()

Do Until RsAppalti.EOF

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = Connection
Rs.Source = "Select Mansione, Imponibile From Mansioni where IdComplesso = " & RsAppalti("IdComplesso") & " And Repeat = True"
Rs.Open()

Do Until Rs.EOF
IdFattura = "3770"

Mansione = Rs("Mansione")
Imponibile = Rs("Imponibile")

SQLVociFatture = "Insert into VociFatture (IdFattura,Mansione,Imponibile) Values (" & IdFattura & "," & Mansione & ",'" & Imponibile & "')"
Connection.Execute SQLVociFatture

Rs.MoveNext
Loop
RsAppalti.MoveNext
Loop %>

[KLINKO]

centra qualcosa il fatto che ci siano degli spazzi vuoti all'interno dei valori?

perche stampando a video senza fare Insert diversi valori risultavono con spazzi vuoti alcuni alla fine altri all'inizio.