Question
Update database - checkbox
I'm using the code below on my update page, but the checkbox
value sin't
being inserted in to the database. Everything else is working fine.
Any Ideas???
Thanks
Andy
Mt checkbox code is:
<input <%If (CStr((ProductsRS.Fields.Item("Accessory").Value)) =
CStr("True")) Then Response.Write("checked=""checked""") :
Response.Write("")%> name="accessory_box" type="checkbox"
id="accessory_box">
if AccessGroupID <> 2 then
if Request("selected") <> "" then
ProductsRS("sagecode")=Request("sagecode")
ProductsRS("Product")=Request("Product")
ProductsRS("Description")=Request("EditorValue")
ProductsRS("offer_text")=Request("offer_text")
ProductsRS("offer_link")=Request("offer_link")
ProductsRS("CategoryID")=Request("CategoryID")
ProductsRS("ManufacturerID")=Request("ManufacturerID")
ProductsRS("ListPrice")=DoNull(Request("ListPrice"))
ProductsRS("Percentage")=DoNull(Request("Percentage"))
ProductsRS("Price")=DoNull(Request("ListPrice"))-discount
ProductsRS("Savings")=discount
ProductsRS("Break1")=DoNull(Request("Break1"))
ProductsRS("Price2")=DoNull(Request("Price2"))
ProductsRS("Break2")=DoNull(Request("Break2"))
ProductsRS("Price3")=DoNull(Request("Price3"))
ProductsRS("Break3")=DoNull(Request("Break3"))
ProductsRS("InStock")=DoNull(Request("InStock"))
ProductsRS("Accessory")=Request("accessory_box")
ProductsRS.Update
being inserted in to the database. Everything else is working fine.
Any Ideas???
Thanks
Andy
Mt checkbox code is:
<input <%If (CStr((ProductsRS.Fields.Item("Accessory").Value)) =
CStr("True")) Then Response.Write("checked=""checked""") :
Response.Write("")%> name="accessory_box" type="checkbox"
id="accessory_box">
if AccessGroupID <> 2 then
if Request("selected") <> "" then
ProductsRS("sagecode")=Request("sagecode")
ProductsRS("Product")=Request("Product")
ProductsRS("Description")=Request("EditorValue")
ProductsRS("offer_text")=Request("offer_text")
ProductsRS("offer_link")=Request("offer_link")
ProductsRS("CategoryID")=Request("CategoryID")
ProductsRS("ManufacturerID")=Request("ManufacturerID")
ProductsRS("ListPrice")=DoNull(Request("ListPrice"))
ProductsRS("Percentage")=DoNull(Request("Percentage"))
ProductsRS("Price")=DoNull(Request("ListPrice"))-discount
ProductsRS("Savings")=discount
ProductsRS("Break1")=DoNull(Request("Break1"))
ProductsRS("Price2")=DoNull(Request("Price2"))
ProductsRS("Break2")=DoNull(Request("Break2"))
ProductsRS("Price3")=DoNull(Request("Price3"))
ProductsRS("Break3")=DoNull(Request("Break3"))
ProductsRS("InStock")=DoNull(Request("InStock"))
ProductsRS("Accessory")=Request("accessory_box")
ProductsRS.Update