TEST1152239.ASP:
<%@ Language=VBScript %>
<%
Set oConn = Server.CreateObject("ADODB.Connection"
oConn.Open "DSN=TT" ' You must change this
Set oRS = Server.CreateObject("ADODB.Recordset"
if Request.Form("fSubmit"

= "Y" then
' UPDATE the database
if Request.Form("fOne"

="on" then cOne=1 else cOne=0
if Request.Form("fTwo"

="on" then cTwo=1 else cTwo=0
if Request.Form("fThree"

="on" then
cThree=1
else
cThree=0
end if
' The test database has 4 fields, 1 id and 3 bit fields
cSQL = "UPDATE TTTEST set " &_
"one = " & cOne & "," &_
"two = " & cTwo & "," &_
"three= " & cThree & "WHERE ID=1"
oConn.Execute(cSQL)
end if
' RETRIEVE values from database
cSQL = "SELECT TOP 1 * FROM TTTEST WHERE ID=1"
oRS.Open cSQL, oConn
Response.Write "Retrieved values: " & oRS(1) &_
", "& oRS(2) & " & " & oRS(3) & "<br>"
Response.Write "<form method=post action=test115239.asp>" &_
"<input type=hidden name=fSubmit value=Y>" &_
"One : <input type=checkbox name=fOne"
if oRS(1) then response.write " checked"
Response.Write "><br>Two :<input type=checkbox name=fTwo"
if oRS(2) then response.write " checked"
Response.Write "><br>Three:<input type=checkbox name=fThree"
if oRS(3) then response.write " checked"
Response.Write "><br><input type=submit></form>"
%>
???? br
Gerard