Checkboxar

så här ser det ut och det fungerar nästan, den hämtar in värden från fem checkboxar och lägger till värdet i databasen.

set oRS2 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM tblFuncToCustomer"
oRS2.Open Addera, oConn, adOpenStatic, adLockOptimistic

For i = 1 to 5
oRS2.AddNew
oRS2("FuncID") = Request.Form("FuncID"&i)
oRS2("ProjectID") = Request.Form("txtID")
Next

oRS2.Update
oRS2.Close
oConn.Close

problemet är att den tar också med checkboxar som inte är ikryssade och det vill jag inte, hur kan man lösa detta, förmodligen med en ifsats men hur skriver man den och var?