Ik loop tegen een probleem aan met een checkbox. Wanneer de checkbox de waarde false terug geeft, krijg ik de melding: Data type mismatch in criteria expression. En wanneer de waarde True is, dan wordt de waarde veranderd in de database.
If (CStr(Request.Form("Archief")) = ("True")) then
Visible = "1"
end if
If (CStr(Request.Form("Archief")) = ("False")) then
Visible = "0"
end if
ItemStartDate = MakeDate(ItemStartDate)
ItemEndDate = MakeDate(ItemEndDate)
response.write("Maand = " &(ItemStartDate) &"<BR>")
MM_editQuery = "UPDATE Items SET ItemTitle = '" &ItemTitle &"', ItemText = '" &ItemText &"', ItemStartDate = " &ItemStartDate &", ItemEndDate = " &ItemEndDate &", ItemVisible= '" &Visible &"' , Location= '" &ItemLocation &"' WHERE ItemId = " &ItemId
If (CStr(Request.Form("Archief")) = ("True")) then
Visible = "1"
end if
If (CStr(Request.Form("Archief")) = ("False")) then
Visible = "0"
end if
ItemStartDate = MakeDate(ItemStartDate)
ItemEndDate = MakeDate(ItemEndDate)
response.write("Maand = " &(ItemStartDate) &"<BR>")
MM_editQuery = "UPDATE Items SET ItemTitle = '" &ItemTitle &"', ItemText = '" &ItemText &"', ItemStartDate = " &ItemStartDate &", ItemEndDate = " &ItemEndDate &", ItemVisible= '" &Visible &"' , Location= '" &ItemLocation &"' WHERE ItemId = " &ItemId