checkbox

Hej jeg skal lave et script hvor man skal kunne gemme "positionen" af en checkbox, om det er true eller false. resultatet skal gemmes i en access db.

her er mit script:

<!-- #include file="adminadgang.inc" -->
<%
dim titel
dim site
dim active
dim oprettet
dim dbname
dim cn
dim constr
dim feltnavne
dim vaerdier
dim sqlstring

' hentning af data fra formularen på denne kaldende side
titel=request.form("titel")
site=request.form("site")
active=request.form("active")

' der laves 2 strenge
' en med feltnavne i databasen
' en med vaerdier fra formularen

' næste sæt (emnetitel) tilføjes
feltnavne=feltnavne & "titel"
vaerdier=vaerdier &  "'" & titel &"'"

feltnavne=feltnavne & ",site"
vaerdier=vaerdier & ",'" & site &"'"

feltnavne=feltnavne & ",active"
vaerdier=vaerdier & ",'" & active &"'"

' tilslut tilføjes det aktuelle tidspunkt
feltnavne=feltnavne & ",oprettet"
vaerdier=vaerdier & ",'" & now &"'"


' herefter laves stringen der skal bruges til opdatering af databasen
sqlstring="insert into site (" & feltnavne & ") values (" & vaerdier & ")"

dbname=Server.MapPath("../db/database.mdb")

set cn = server.createobject("ADODB.Connection")

constr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & dbname
cn.connectionstring = constr

cn.open
response.write sqlstring
cn.execute sqlstring

response.write ("<br>siden er  tilføjet<br>")
'response.redirect "info.asp"
cn.close
set cn=nothing

%>

I databasen er fælterne active sat til yes/no

Hvad gør jeg for at få det til at virke?

MVH Plasmon