Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > ASP.NET and ASP > ASP 3 Classic ASP Active Server Pages 3.0 > Classic ASP Basics
Password Reminder
Register | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
Classic ASP Basics For beginner programmers starting with "classic" ASP 3, pre-".NET." NOT for ASP.NET 1.0, 1.1, or 2.0
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Classic ASP Basics section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Thread Tools Display Modes
  #1 (permalink)  
Old September 9th, 2006, 02:56 AM
Registered User
Join Date: Sep 2006
Location: MUSCAT, , Oman.
Posts: 3
Thanks: 0
Thanked 0 Times in 0 Posts
Default update records in the database by checkbox

I'm trying to update database by cliking the checkbox.
I know I have to use array but I don't know how and where to place the code:
this is the code of my page

Dim rsAnswers3
Dim rsAnswers3_numRows

Set rsAnswers3 = Server.CreateObject("ADODB.Recordset")
rsAnswers3.ActiveConnection = MM_survey_conn_STRING
rsAnswers3.Source = "SELECT answers.answer_no, answers.Question_No, answers.answers, answers.counts FROM answers, questions WHERE questions.Question_No= answers.Question_No and questions.question_no=3"
rsAnswers3.CursorType = 0
rsAnswers3.CursorLocation = 2
rsAnswers3.LockType = 1

rsAnswers3_numRows = 0
Dim rsQues3
Dim rsQues3_numRows

Set rsQues3 = Server.CreateObject("ADODB.Recordset")
rsQues3.ActiveConnection = MM_survey_conn_STRING
rsQues3.Source = "SELECT * FROM questions WHERE question_no =3"
rsQues3.CursorType = 0
rsQues3.CursorLocation = 2
rsQues3.LockType = 1

rsQues3_numRows = 0
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsAnswers3_numRows = rsAnswers3_numRows + Repeat1__numRows
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
rsAnswers3_numRows = rsAnswers3_numRows + Repeat2__numRows
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<table width="100%" border="0">
    <td><p><strong><%=(rsQues3.Fields.Item("About").Va lue)%>:</strong></p>
    <td height="152"> <form method="get" action="http://localhost:88/survey_page/check.asp" name="form1">
        <table width="476" >
          <tr valign="baseline">
            <td width="81" align="right" nowrap>&nbsp;</td>
            <td colspan="2">&nbsp;</td>
          <tr valign="baseline">
            <td nowrap align="right">Question No:</td>
            <td width="249"><%=(rsAnswers3.Fields.Item("Question_N o").Value)%></td>
            <td width="130">Counts:</td>
While ((Repeat1__numRows <> 0) AND (NOT rsAnswers3.EOF))

          <tr valign="baseline">
            <td nowrap align="right">&nbsp;</td>
            <td valign="top">
              <input type="checkbox" name="answers" value="<%=(rsAnswers3.Fields.Item("answer_no").Val ue)%>" >
              <option value="<%=(rsAnswers3.Fields.Item("answer_no").Val ue)%>"><%=(rsAnswers3.Fields.Item("answers").Value )%></option> &nbsp; &nbsp;&nbsp;&nbsp; </br> </td>
            <td valign="top"><%=(rsAnswers3.Fields.Item("counts"). Value)%></td>
          <tr valign="baseline">
            <td nowrap align="right">&nbsp;</td>
            <td colspan="2"><input type="submit" name="Submit" value="Submit">
        <input type="hidden" name="MM_update" value="form1">
         <input type="hidden" name="allBoxes" value="
While ((Repeat2__numRows <> 0) AND (NOT rsAnswers3.EOF))
    <td height="29"> <div align="center"><a href="http://localhost:88/survey_page/question2.asp">Previous</a>
        &nbsp; <a href="http://localhost:88/survey_page/test.asp">Next</a></div></td>


Set rsQues3 = Nothing
Set rsAnswers3 = Nothing

thank you

Reply With Quote
  #2 (permalink)  
Old September 9th, 2006, 11:12 PM
Friend of Wrox
Points: 6,664, Level: 34
Points: 6,664, Level: 34 Points: 6,664, Level: 34 Points: 6,664, Level: 34
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
Join Date: Jan 2004
Location: Sydney, NSW, Australia.
Posts: 1,870
Thanks: 12
Thanked 20 Times in 20 Posts
Send a message via AIM to mat41

Rather that go through you many lines of code, did you know:
>If you name your checkboxes the same and the values are ID's. These values will be posted as a commer delimited string?  Therfore you you run an:
"UPDATE tbleNem SET fieldName = someValue WHERE ID IN (request.form("checkBoxName"));"

mmmmm. I just read you post again.  You want to execute an update if a checkbox is clicked?  If so; when its checkeed, unchecked or both?

I do something like this:

<input type="checkbox" name="Categories" onClick="updateDB(this,<%= RS("ID") %>);" ...>

once this box is checked or unchecked it call this JS function:

function delCat(oneelement, catId)
   var status = 'unChecked';
   if (oneelement.checked)
      //box is checked
      //alert('You have ' + status + ': ' + catId);
      status = 'checked';
       //box unchecked
       //alert('You have ' + status + ': ' + catId);
       theForm.id.value = catId;
       theForm.removeCat.value = "yes";
       theForm.action = 'pageToDoYourUpdate.asp?someQSnAME=SomeValue;

This enables you to do someting if checked or somwethig elae if unchecked.  I use it, works well...

Wind is your friend
Reply With Quote
  #3 (permalink)  
Old September 10th, 2006, 12:38 AM
Registered User
Join Date: Sep 2006
Location: MUSCAT, , Oman.
Posts: 3
Thanks: 0
Thanked 0 Times in 0 Posts

Heloo again,
thank you very much for ur time.
I followed ur code but in the update page how can i call the checkboxes
I used this code but It update all the answers not only the selected one
set cmdUpdateAns = Server.CreateObject("ADODB.Command")
cmdUpdateAns.ActiveConnection = MM_survey_conn_STRING
cmdUpdateAns.CommandText = "UPDATE answers SET counts = counts + 1 WHERE answer_no = " & request.QueryString("answers")
cmdUpdateAns.CommandType = 1
cmdUpdateAns.CommandTimeout = 0
cmdUpdateAns.Prepared = true
so what should i put instead of & request.querystring('answrs')

thank you again

Reply With Quote

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
Add/Update/Delete Database records MANUALLY jn148 BOOK: Beginning ASP.NET 3.5 : in C# and VB BOOK ISBN: 978-0-470-18759-3 2 December 14th, 2008 10:18 AM
deleting records based on selected checkbox lakshmi_annayappa Javascript 3 September 6th, 2007 03:22 AM
update database with checkbox mike7510uk ASP.NET 2.0 Basics 1 December 12th, 2006 07:10 AM
How to delete the Multiple Records Using Checkbox tks_muthu Classic ASP Databases 4 February 10th, 2005 03:19 AM
Multiple Delete Records With CheckBox XXL Classic ASP Basics 5 December 29th, 2004 08:46 PM

All times are GMT -4. The time now is 02:21 PM.

Powered by vBulletin®
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.