Problems with checkbox value stored in database

Jack

Hi, I have a checkbox the value which goes to a database via a asp page that
builds the sql string.

In the front end asp page, the checkbox code is written as follows:

<input type="checkbox" name="chk_Complete" value="<%Response.Write
l_IsChecked%>"<%if cbool(l_IsChecked) then Response.Write " checked"%>>

The code to captures the checkbox value in the asp page that builds the sql
string is follows

l_f_IsChecked = Request.Form("chk_Complete")

With this, when the database is already checked (and the checkbox shows
checked) unchecking and saving makes
the value of the checkbox value in database unchecked. At this point when
the asp front-end page is refreshed
it shows the checkbox in unchecked state(should be so). Now if I want to
check the checkbox and save in the
database, the checkbox value in the database does not get changed to checked.

I am wondering, where I am going wrong. Thanks for any help in advance.

Jul 22 '05 #1

Subscribe Reply

4610

Bob Barrows [MVP]

Jack wrote:

Hi, I have a checkbox the value which goes to a database via a asp
page that builds the sql string.

In the front end asp page, the checkbox code is written as follows:

<input type="checkbox" name="chk_Complete" value="<%Response.Write
l_IsChecked%>"<%if cbool(l_IsChecked) then Response.Write "
checked"%>>

The code to captures the checkbox value in the asp page that builds
the sql string is follows

l_f_IsChecked = Request.Form("chk_Complete")

With this, when the database is already checked (and the checkbox
shows checked) unchecking and saving makes
the value of the checkbox value in database unchecked. At this point
when the asp front-end page is refreshed
it shows the checkbox in unchecked state(should be so). Now if I
want to check the checkbox and save in the
database, the checkbox value in the database does not get changed to
checked.

I am wondering, where I am going wrong. Thanks for any help in
advance.

I think your symptom is that you make a change to the checkbox, submit the
form, but the change does not get written to the database. Is that correct?
If so, how can we tell you what is wrong without seeing the code that
processes the checkbox value and writes the result to the database?

Bob Barrows
--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

Jul 22 '05 #2

Jack

Bob,
I apologize for the late response. The actual problem is that when the
checkbox is checked in the front-end and it is unchecked and saved, the
Request.Form("chk_Complete") value is not false, instead it is a null value,
I am attaching the sql string that is built here:
START CHECK COMPLETE

THE END
StartCheckBox
EndCheckbox

UPDATE tblGMISExpenditures_Quarter SET
tblGMISExpenditures_Quarter.CurrentOutlay= '$550.00' ,
tblGMISExpenditures_Quarter.LocalShare= '$100.50' ,
tblGMISExpenditures_Quarter.MBCCShare= '449.5' ,
tblGMISExpenditures_Quarter.UnpaidOblig= '$250.00' ,
tblGMISExpenditures_Quarter.LocalShareUnpaidOblig= '$35.35' ,
tblGMISExpenditures_Quarter.ProjectIncome= '$100.00' ,
tblGMISExpenditures_Quarter.ForfeitureIncome= '$200.00' ,
tblGMISExpenditures_Quarter.OtherExpense= '$30.00' ,
tblGMISExpenditures_Quarter.ForfeitureExpense= '$40.00' ,
tblGMISExpenditures_Quarter.InterestReceived= '$20.00' ,
tblGMISExpenditures_Quarter.TotalPeriodOutlay= '4568.39' ,
tblGMISExpenditures_Quarter.Remarks= 'Testing GWIS' ,
tblGMISExpenditures_Quarter.Name= 'Jack Jones' ,
tblGMISExpenditures_Quarter.Title= 'Manager' ,
tblGMISExpenditures_Quarter.AreaCode= '111' ,
tblGMISExpenditures_Quarter.Phone1= '111' ,
tblGMISExpenditures_Quarter.Phone2= '8762' ,
tblGMISExpenditures_Quarter.Date= '1/11/2005' ,
tblGMISExpenditures_Quarter.IsChecked= where
tblGMISExpenditures_Quarter.SubgrantIntID = 4836;

The CODE for database entry is as follows:
<%@ Language=VBScript %>
<%
'The following line is to prevent this page coming from history.
'We need a new page from the server each time so that all the
'session vairables are reset
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

 
<%

'myDSN="DRIVER={Microsoft Access Driver (*.mdb)}; "
'myDSN=myDSN & "DBQ=C:\_______GWISBRANDNEWREADY5\GMISDATA.mdb "

myDSN="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\_______GWISBRANDNEWREADY5\GMISDATA.mdb"

set CN=server.createobject("ADODB.Connection")
CN.Open myDSN
'ecRS stands for recordset corresponding to the current expense
set ecRS=server.createobject("ADODB.Recordset")
'recRS stands for recordset corresponding to the recordcount of the current
expense
set recRS = server.CreateObject ("ADODB.Recordset")
'detecRS stands for the detailed recordset corresponding to the current
expense
set detecRS = server.CreateObject("ADODB.Recordset")

recRS.ActiveConnection = CN
ecRS.ActiveConnection = CN
detecRs.ActiveConnection = CN

'GET GRANT ID FROM SESSION ID
GrantID = Session("sess_GrantID")

SQL = "SELECT COUNT(*) AS reccount FROM tblGMISExpenditures_Quarter WHERE
SubgrantIntID = " & GrantID & ";"

recRS.Open SQL
'If there is no record in the expense table corresponding to the current
subgrantid number then
'insert the subgrantid number in the tblGMISExpenditures_Quarter table.
if recRS("reccount") < 1 then
recRS.Close

strSQL = "INSERT INTO tblGMISExpenditures_Quarter(SubgrantIntID)
VALUES ("& GrantID &")"

ecRS.Open strSQL
'else
end if
' In the event there is already the subgrantintid in the above table, we
just need to update
' the table with the input values of the main form.
'Define local variables to store the values obtained from input form(either
text or calculated fields)

Dim l_CurrentOutlay
Dim l_CurrentLocalShareOutlay
Dim l_c_MBCCShareOfOutlay 'c represents calculated
Dim l_CurrentUnpaidObligations
Dim l_CurrentLocalShareUnpaidObligations
Dim l_CurrentOtherProjectIncomeReceived
Dim l_CurrentForfeitureIncomeReceived
Dim l_CurrentOtherProjectIncomeExpenditures
Dim l_CurrentForfeitureIncomeExpenditures
Dim l_CurrentInterestIncomeReceivedOnMBCCFunds
Dim l_p_c_TotalOutlay ' c represents calculated
Dim l_f_remarks ' Note that f stands for final remark to distinguish between
variable in the main form
'Similary, the following would be the variables for other contact fields
Dim l_f_name
Dim l_f_personstitle
Dim l_f_PhoneAreaCode
Dim l_f_Phone1
Dim l_f_Phone2
Dim l_f_Date
'The following variable is being added in order to add the value of checkbox
in the database
Dim l_f_IsChecked
'Now store the values collected from the main form to the local variables
l_CurrentOutlay = Request.Form("txt_CurrentOutlay")
l_CurrentLocalShareOutlay = Request.Form("txt_CurrentLocalShareOutlay")
'THIS IS THE CODE INTRODUCED HERE TO FORCE THE SESSION VALUE TO 0
If (Session("l_cu_c_MBCCShareOfOutlays"))= "" Then
Session("l_cu_c_MBCCShareOfOutlays") = 0
End If
'END OF THE CODE INTRODUCED WITH SESSION VALUE SETTING
l_c_MBCCShareOfOutlay = Session("l_cu_c_MBCCShareOfOutlays")
l_CurrentUnpaidObligations = Request.Form("txt_CurrentUnpaidObligations")
l_CurrentLocalShareUnpaidObligations =
Request.Form("txt_CurrentLocalShareUnpaidObligatio ns")
l_CurrentOtherProjectIncomeReceived =
Request.Form("txt_CurrentOtherProjectIncomeReceive d")
l_CurrentForfeitureIncomeReceived =
Request.Form("txt_CurrentForfeitureIncomeReceived" )
l_CurrentOtherProjectIncomeExpenditures =
Request.Form("txt_CurrentOtherProjectIncomeExpendi tures")
l_CurrentForfeitureIncomeExpenditures =
Request.Form("txt_CurrentForfeitureIncomeExpenditu res")
l_CurrentInterestIncomeReceivedOnMBCCFunds =
Request.Form("txt_CurrentInterestIncomeReceivedOnM BCCFunds")
If Session("l_p_TotalOutlay")= "" Then
Session("l_p_TotalOutlay") = 0
End If

l_p_c_TotalOutlay = Session("l_p_TotalOutlay")
l_f_Remarks = trim(Request.Form("txt_Remarks"))

l_f_name = trim(Request.Form("txt_Name"))
l_f_personstitle = trim(Request.Form("txt_Title"))
l_f_PhoneAreaCode = trim(Request.Form("txt_PhoneAreaCode"))
l_f_Phone1 = trim(Request.Form("txt_Phone1"))
l_f_Phone2 = trim(Request.Form("txt_Phone2"))
l_f_Date = Request.Form("txt_Date")
'If (Request.Form("chk_Complete")) = "" then
' Request.Form("chk_Complete") = "false"
'End If
l_f_IsChecked = Request.Form("chk_Complete")
' Response.Write "Start_Check_l_f_IsChecked" & " "
' Response.Write l_f_IsChecked & " "
' Response.Write "End_Check_l_f_IsChecked" & " "

Response.Write "START CHECK COMPLETE" & " "
Response.Write Request.Form("chk_Complete") & " "
Response.Write "THE END" & " "

'---------START OF DEBUGGING TOOLS FOR EACH FIELD RETRIEVED FROM AND SAVED
IN DATABASE-------
'Response.Write "StartCurrentOutlay" & " "
'Response.Write l_CurrentOutlay & " "
'Response.Write "EndCurrentOutlay" & " "'

'Response.Write "StartCurrentLocalShareOutlay" & " "
'Response.Write l_CurrentLocalShareOutlay & " "
'Response.Write "EndCurrentLocalShareOutlay" & " "

'Response.Write "Testing MBCC Share Of Outlay" & " "
'Response.Write l_c_MBCCShareOfOutlay & " "
'Response.Write Session("l_cu_c_MBCCShareOfOutlays") & " "
'Response.Write "EndCurrentMBCCShareOfOutlay" & " "

'Response.Write "StartCurrentUnpaidObligations" & " "
'Response.Write l_CurrentUnpaidObligations & " "
'Response.Write "EndCurrentUnpaidObligations" & " "

'Response.Write "StartCurrentLocalShareUnpaidObligations" & " "
'Response.Write l_CurrentLocalShareUnpaidObligations & " "
'Response.Write "EndCurrentLocalShareUnpaidObligations" & " "

'Response.Write "StartCurrentOtherProjectIncomeReceived" & " "
'Response.Write l_CurrentOtherProjectIncomeReceived & " "
'Response.Write "EndCurrentOtherProjectIncomeReceived" & " "

'Response.Write "StartCurrentForfeitureIncomeReceived" & " "
'Response.Write l_CurrentForfeitureIncomeReceived & " "
'Response.Write "EndCurrentForfeitureIncomeReceived" & " "

'Response.Write "StartCurrentOtherProjectIncomeExpenditures" & " "
'Response.Write l_CurrentOtherProjectIncomeExpenditures & " "
'Response.Write "EndCurrentOtherProjectIncomeExpenditures" & " "

'Response.Write "StartCurrentForfeitureIncomeExpenditures" & " "
'Response.Write l_CurrentForfeitureIncomeExpenditures & " "
'Response.Write "EndCurrentForfeitureIncomeExpenditures" & " "

'Response.Write "StartPeiodicOutlay" & " "
'Response.Write l_p_c_TotalOutlay & " "
'Response.Write "EndPeriodicOutlay" & " "

'Response.Write "StartRemarks" & " "
'Response.Write l_f_Remarks & " "
'Response.Write "EndRemarks" & " "

'Response.Write "StartName" & " "
'Response.Write l_f_Name & " "
'Response.Write "EndName" & " "

'Response.Write "StartPersonTitle" & " "
'Response.Write l_f_personstitle & " "
'Response.Write "EndPersonTitle" & " "

'Response.Write "StartPhoneAreaCode" & " "
'Response.Write l_f_PhoneAreaCode & " "
'Response.Write "EndPhoneAreaCode" & " "

'Response.Write "StartPhone1" & " "
'Response.Write l_f_Phone1 & " "
'Response.Write "EndPhone1" & " "

'Response.Write "StartPhone2" & " "
'Response.Write l_f_Phone2 & " "
'Response.Write "EndPhone2" & " "

'If l_f_IsChecked = "" Then
' l_f_Checked = False
'End If

Response.Write "StartCheckBox" & " "
Response.Write l_f_IsChecked & " "
Response.Write "EndCheckbox" & " "

'---------END OF DEBUGGING TOOLS FOR EACH FIELD RETRIEVED FROM AND SAVED IN
DATABASE-------

'NOW START BUILDING THE SQL STATEMENT TO UPDATE THE CURRENTQUARTERVALUES
'Response.Write " "
'Response.Write "Hello"
strSQL1 = "UPDATE tblGMISExpenditures_Quarter SET
tblGMISExpenditures_Quarter.CurrentOutlay= '" & l_CurrentOutlay & "' " & _
", tblGMISExpenditures_Quarter.LocalShare= '" &
l_CurrentLocalShareOutlay & "' " & _
", tblGMISExpenditures_Quarter.MBCCShare= '" &
l_c_MBCCShareOfOutlay & "' " & _
", tblGMISExpenditures_Quarter.UnpaidOblig= '" &
l_CurrentUnpaidObligations & "' " & _
", tblGMISExpenditures_Quarter.LocalShareUnpaidOblig= '" &
l_CurrentLocalShareUnpaidObligations & "' " & _
", tblGMISExpenditures_Quarter.ProjectIncome= '" &
l_CurrentOtherProjectIncomeReceived & "' " & _
", tblGMISExpenditures_Quarter.ForfeitureIncome= '" &
l_CurrentForfeitureIncomeReceived & "' " & _
", tblGMISExpenditures_Quarter.OtherExpense= '" &
l_CurrentOtherProjectIncomeExpenditures & "' " & _
", tblGMISExpenditures_Quarter.ForfeitureExpense= '" &
l_CurrentForfeitureIncomeExpenditures & "' " & _
", tblGMISExpenditures_Quarter.InterestReceived= '" &
l_CurrentInterestIncomeReceivedOnMBCCFunds & "' " & _
", tblGMISExpenditures_Quarter.TotalPeriodOutlay= '" &
l_p_c_TotalOutlay & "' " & _
", tblGMISExpenditures_Quarter.Remarks= '" & l_f_Remarks & "' " & _
", tblGMISExpenditures_Quarter.Name= '" & l_f_Name & "' " & _
", tblGMISExpenditures_Quarter.Title= '" & l_f_personstitle & "' "
& _
", tblGMISExpenditures_Quarter.AreaCode= '" & l_f_PhoneAreaCode &
"' " & _
", tblGMISExpenditures_Quarter.Phone1= '" & l_f_Phone1 & "' " & _
", tblGMISExpenditures_Quarter.Phone2= '" & l_f_Phone2 & "' " & _
", tblGMISExpenditures_Quarter.Date= '" & l_f_Date & "' " & _
", tblGMISExpenditures_Quarter.IsChecked= " & l_f_IsChecked & " "
& _
" where " & _
" tblGMISExpenditures_Quarter.SubgrantIntID = " & GrantID & ";"
Response.Write " "
Response.Write strSQL1
Response.Write " "
'Now open the recordset to update the current record'
detecRs.Open strSQL1

Hope this helps

"Bob Barrows [MVP]" wrote:

Jack wrote:
Hi, I have a checkbox the value which goes to a database via a asp
page that builds the sql string.

In the front end asp page, the checkbox code is written as follows:

<input type="checkbox" name="chk_Complete" value="<%Response.Write
l_IsChecked%>"<%if cbool(l_IsChecked) then Response.Write "
checked"%>>

The code to captures the checkbox value in the asp page that builds
the sql string is follows

l_f_IsChecked = Request.Form("chk_Complete")

With this, when the database is already checked (and the checkbox
shows checked) unchecking and saving makes
the value of the checkbox value in database unchecked. At this point
when the asp front-end page is refreshed
it shows the checkbox in unchecked state(should be so). Now if I
want to check the checkbox and save in the
database, the checkbox value in the database does not get changed to
checked.

I am wondering, where I am going wrong. Thanks for any help in
advance.

I think your symptom is that you make a change to the checkbox, submit the
form, but the change does not get written to the database. Is that correct?
If so, how can we tell you what is wrong without seeing the code that
processes the checkbox value and writes the result to the database?

Bob Barrows
--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

Jul 22 '05 #3

Bob Barrows [MVP]

Jack wrote:

Bob,
I apologize for the late response. The actual problem is that when the
checkbox is checked in the front-end and it is unchecked and saved,
the Request.Form("chk_Complete") value is not false, instead it is a
null value, I am attaching the sql string that is built here:

So you are passing the value directly? That will not do, as you have found
out. Use an If statement to generate the correct value to pass to your
update query.

The following cannot work:
'If (Request.Form("chk_Complete")) = "" then
' Request.Form("chk_Complete") = "false"
'End If
You cannot change the value of a variable in the Form collection: it's read
only. Simply do this:

Dim sChecked
sChecked = "true"
If len(Request.Form("chk_Complete")) = 0 then sChecked="false"

Then use the sChecked variable to build your sql statement. Better yet, read
one of my posts from this week about using parameters.

Bob Barrows

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

Jul 22 '05 #4

Jack

Thanks Bob for your generous help. Your answer was a new revelation regarding
read-only Form Collection variable. I tested the code and it works great.
Thanks a ton. About using the parameter I have checked one of your article.
It has not sunk in yet. May be it will soon, I hope. Then I will not have to
build the complicated sql strings. Regards.
"Bob Barrows [MVP]" wrote:

Jack wrote:
Bob,
I apologize for the late response. The actual problem is that when the
checkbox is checked in the front-end and it is unchecked and saved,
the Request.Form("chk_Complete") value is not false, instead it is a
null value, I am attaching the sql string that is built here:

So you are passing the value directly? That will not do, as you have found
out. Use an If statement to generate the correct value to pass to your
update query.

The following cannot work:
'If (Request.Form("chk_Complete")) = "" then
' Request.Form("chk_Complete") = "false"
'End If
You cannot change the value of a variable in the Form collection: it's read
only. Simply do this:

Dim sChecked
sChecked = "true"
If len(Request.Form("chk_Complete")) = 0 then sChecked="false"

Then use the sChecked variable to build your sql statement. Better yet, read
one of my posts from this week about using parameters.

Bob Barrows

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

Jul 22 '05 #5

Similar topics

3127

Problems sending arrays by form when type=checkbox

by: Old Lady | last post by:

Hi all, I have a problem when I try to send an array using a form when the type="checkbox". This is my form input row: <INPUT type="Checkbox" name="flg" value="y" <? if($row == 'y') echo...

PHP

4657

Using Checkbox for assigning items

by: Bill | last post by:

I have a catalog of books which need to be categorized into different groups. Some of the books can be listed under more than one category. I'm creating a page where I can assign a group of books...

ASP / Active Server Pages

4276

Form Field/ Form Submit Problems (probably an easy answer...)

by: Eric | last post by:

Hey Everyone.. I have a form that has approximately 7 text fields and 1 checkbox. Generally when this form is submitted(to itself BTW) it works fine, however, when the checkbox is only field...

ASP / Active Server Pages

1973

Another checkbox manipulation question

by: Jack | last post by:

<input type="checkbox" name="chk_Complete" value="TRUE" <%Response.Write l_IsChecked%>"<%if cbool(l_IsChecked) then Response.Write " checked" Else Response.Write " unchecked"%>> The above...

ASP / Active Server Pages

2309

Dymanic Checkbox problems (Web App)

by: Tomas Vera | last post by:

Hello All, I'm having problems creating a page with dynamic checkboxes in a WebApp. In my app, I need to query a database, then (based on results) add checkboxes to my form and set their...

C# / C Sharp

1720

<asp:Repeater>, checkbox values and ASP.NET 2.0

by: deathtospam | last post by:

A few weeks ago, I created a Classic ASP page that connects to a machine with SQL Server installed on it, prompts the user to select a database on that server, then lists all of user-created stored...

ASP.NET

2577

explode() problems

by: tolkienarda | last post by:

hi everyone i am getting a bunch of values from a form via post all of the information that this question deals with is from series of check boxes below is the code that creates the check boxes...

PHP

3090

updating multiple checkbox entries into php mysql database

by: TechnoAtif | last post by:

<?php include "dbconnect.php"; include "commonFunc.php"; ?>  <table width="80%" border="1" cellpadding="2" cellspacing="0"> <tr > <td...

PHP

3319

Trouble with inserting Checkbox values

by: raamay | last post by:

I have six checkboxes as shown below: <table> <tr> <td><input name="spec1" type="checkbox" value="0" tabindex="11" /><label id="label">Bridge Construction</label></td> </tr> <tr> <td><input...

PHP

7245

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...

General

7356

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

7427

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

7085

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

7512

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

General

5671

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

5069

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

Microsoft Access / VBA

4741

Couldn’t get equations in html when convert word .docx file to html file in C#.

by: conductexam | last post by:

I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...

C# / C Sharp

3227

Trying to create a lan-to-lan vpn between two differents networks

by: TSSRALBI | last post by:

Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The...

Networking - Hardware / Configuration