Inserimento dati e checkbox

[Semex82]

Ciao a tutti,

in relazione al seguente codice:

<%
coloreunico = request.Form("coloreunico")
descrizione = request.Form("descrizione")
categoria = request.Form("categoria")

if coloreunico <>"" then
coloreunico = true
else
coloreunico = false
end if

call apridb(conn)

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

rs.Open "INSERT INTO Prodotti (IDCategoria, DescrizioneProdotto, Coloreunico) VALUES ("&categoria&", '" &descrizione&"', "&coloreunico&")", conn, 3, 3

call chiudidb(conn)
%>

mi viene dato il seguente problema:

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1.
/backoffice_aggiungiprodotti.asp, line 30

presumo il problema sia nel recuperare un valore true o false e passarlo al db tramite la query sql, ma non riesco a cavarne piede!

Grazie a tutti anticipatamente!

[orcim]

Prova così:

if coloreunico <>"" then
coloreunico = "true"
else
coloreunico = "false"
end if
....

rs.Open "INSERT INTO Prodotti (IDCategoria, DescrizioneProdotto, Coloreunico) VALUES ("&categoria&", '" &descrizione&"', '"&coloreunico&"')", conn, 3, 3

[Semex82]

Mi va comunque in errore

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Driver ODBC Microsoft Access] Tipi di dati non corrispondenti nell'espressione criterio.
/sam/backoffice_aggiungiprodotti.asp, line 30

[Semex82]

if coloreunico <>"" then
coloreunico = "true"
else
coloreunico = "false"
end if
....

rs.Open "INSERT INTO Prodotti (IDCategoria, DescrizioneProdotto, Coloreunico) VALUES ("&categoria&", '" &descrizione&"', "&coloreunico&")", conn, 3, 3

senza ' ' funziona....

potrei chiederti il perchè di "true" e "false" tra ""?

Ovviamente grazie dell'aiuto!

Ciao