Opdater checkboks felt
Jeg har denne lille ting jeg fundere lidt over. Jeg har en side hvorpå der sker nogle opdateringer, det script der bliver brugt til at opdatere ser således ud :
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"database.mdb\")
sql = \"select * from bruger where brugernavn = \'\" & Session(\"brugernavn\") & \"\'\"
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.open sql, conn, 1, 3
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
rs.update
if request.form(\"endring\") = \"\" then
RS(\"endring\") = False
else
RS(\"endring\") = request.form(\"endring\")
end if
rs(\"udfyldt\") = Request.form(\"udfyldt\")
rs(\"udfyldt\") = Request.form(\"udfyldt\")
rs(\"fuldenavn\") = Request.form(\"fuldenavn\")
rs(\"arbejdsomrode\") = Request.form(\"arbejdsomrode\")
rs(\"filial\") = Request.form(\"filial\")
rs(\"ini\") = Request.form(\"ini\")
rs(\"tlf\") = Request.form(\"tlf\")
rs(\"password\") = Request.form(\"password\")
rs(\"email\") = Request.form(\"email\")
rs.update
Response.Write(\"DINE DATA ER OPDATERET\")
end if
%>
Mit problem er at det fungere godt nok i når jeg opdatere i tekstfelterne, men de steder hvor jeg bruger checkbokse, der virker det ikke, det vil sige, det virker lidt :-) jeg kan nemlig godt fjerne en afkrydsning og så opdatere, kigger jeg i databsen er den forsvundet, men tilføjer jeg en hak ud for en checkboks så kommer denne ikke med over i databsen når jeg opdatere.
Jeg bruger Ja/Nej på databasen ud for disse checkbokse
Og når jeg læse i databasen for at hente frem om det er Ja Nej så gør jeg det med denne
<INPUT TYPE=\"checkbox\" NAME=\"endring\"<% If RS(\"endring\") Then Response.Write \" CHECKED\" %> value=\"<% = rs(\"endring\") %>\">
Hvad gør jeg forkert med disse checkbokse?
