pass array values to hidden fields in form on next page?

selaine · Sep 4, 2003

I'm learning asp and scripting as I go, and don't work with arrays and loops very well yet (They're very confusing! )

Anyway, could someone explain to me how to create an array of checkboxes that were selected from a form on one page and pass them into hidden fields in a form on the next page? I have this massive project I've been working on and am having trouble with this. Thanks!

palbano · Sep 4, 2003

Why not just reproduce the entire bunch of checkbox controls <input> elements, in a hidden DIV <div style="display: none;"><input …/> <input … />… etc</div> inside the form of the new page? That way the will get submitted when the form does.

-pete

onpnt · Sep 4, 2003

good tpoic to add to a FAQ but later. [wink]

first thing to get it out of the way and to repeat the FAQ,
if there is no value specified for a checkbox you get this from Request.Form("myBox&quot

being checked in your processing script
"on" otherwise you get nothing

now if you have a value attributed to the checkbox (eg:<checkbox value="some"> you'll get with Request.Form("myBox&quot

"some" or nothing

now that was singled out checkbox's. your array will be created for you after a checkbox group has been ineracted with.
eg:
<checkbox name="chk" value="some">
<checkbox name="chk" value="some">
<checkbox name="chk" value="some">
<checkbox name="chk" value="some">
<checkbox name="chk" value="some">

processing that is simple
for each chkItem in request.form
response.write Checkbox was checked with value of & ": " & request.form(chkItem) & "<br>"
next

there's nothing else to it really

_____________________________________________________________________
_{Where have all my friends gone to????}

http://www.onpntwebdesigns.com

selaine · Sep 4, 2003

The problem is that the checkboxes are created dynamically Here is my code....

<% @LANGUAGE=VBscript %>
<% Option Explicit %>
<html>
<head>
<title>Select sub categories</title>
</head>
<body>
<form action="catgorysel.asp" method="post" name="subcategory">
<%
Response.Buffer = True

Dim dbConn 'Common Database connection
Dim rsMain 'Common recordset object
Dim rsSub
Dim strSQL 'SQL string constructor
Dim fld
Dim counter

Dim ArrayCheck(100)
Dim ArraySize
ArraySize = 0

'Get the database connection
Set dbConn = Server.CreateObject( "ADODB.Connection" )
dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "ckbx.mdb" ) & ";"

'Get the main categories from the database. All we need at the moment is the identities
strSQL = "SELECT GroupID FROM [Main_Categories]"
Set rsMain = dbConn.Execute( strSQL )
If rsMain.EOF Then
Response.Redirect "MAJORERROR.ASP"
End If

'Scan the form looking for checked boxes
While NOT rsMain.EOF
fld = Request.Form( "ck" & rsMain("GroupID&quot

) 'Get the field from the form
If NOT (fld = False) Then 'Was the box checked
ArrayCheck( ArraySize ) = rsMain("GroupID&quot

'Add the GroupID to the array
ArraySize = ArraySize + 1 'Increment the array size
End If
rsMain.MoveNext 'Next database record
Wend
Set rsMain = Nothing

'Check that something was selected
If ArraySize = 0 Then
Response.Redirect "NOTHINGSELECTED.ASP"
End If

'Make the SQL string for the group selection
strSQL = "SELECT GroupID, Description FROM [Main_Categories] WHERE "

'Make our way through the array making the selections we want
For counter = 0 To ArraySize - 1
If counter > 0 Then strSQL = strSQL & " OR " 'Put the OR in if required
strSQL = strSQL & "(GroupID=" & ArrayCheck(counter) & &quot

"
Next

'Now sort the output
strSQL = strSQL & " ORDER BY Description"

'Get the sorted records we want from the database
Set rsMain = dbConn.Execute( strSQL )
If rsMain.EOF Then
Response.Redirect "MAJORERROR.ASP"
End If

'Start the main category display loop
While NOT rsMain.EOF
'Write the table header
Response.Write( "<table align=""center"">" & vbCrLf )

'Write the title of the current selection block (or main category description)
Response.Write( "<tr><td colspan=""2""><h1>" & rsMain("Description&quot

& "</h1></td></tr>" & vbCrLf )

'--------------------------- BEGIN OF SUB-CATEGORY SECTION -------------------------
'Make the SQL string. We need all the categories that belong to the current main group
'and sort them into alphabetical order
strSQL = "SELECT CategoryID, Description FROM [Sub_Categories] " & _
"WHERE GroupID=" & rsMain("GroupID" ) & _
" ORDER BY Description"

'Open the recordset
Set rsSub = dbConn.Execute( strSQL )

'Is there actually anything here
If NOT rsSub.EOF Then

'Start the scan loop
While NOT rsSub.EOF
'This is pretty much the same thing as in category.asp
%>
<tr><td><%=rsSub("Description&quot

%></td>
<td><input type="checkbox" name="catbox<%=rsSub("CategoryID&quot

%>"></td>
</tr>
<%
rsSub.MoveNext
Wend
End If

'Clean up recordset object
Set rsSub = Nothing

'---------------------------- END OF SUB-CATEGORY SECTION --------------------------
'End of the category table
Response.Write( "</table><br><br>" & vbCrLf )

rsMain.MoveNext
Wend

'--------- Display the submit and reset buttons ------------------------
%>
<div align="center">
<input type="submit" value="Submit Form"> <input type="Reset" value="Reset Form">
</div>

</form>
</body>
</html>

<%
'Clean up database
dbConn.Close
Set dbConn = Nothing
%>

onpnt · Sep 4, 2003

btw: the hidden field thing

this has nothing to do with the checkbox's
you need to learn to take your process and structure it into a way you have
situation 1
situation 2

hence what psuedocode was invented for

eg:
form gets submited
(normaly you would have you form tags here)

form submitted
call asp script

get values of checkbox's
loop through collection
for each checkbox in checkboxs
write out hidden field

(write syntax)
<input type="hidden" value="checkbox value passed" name="">
next

now you use that to write your code

for each chkItem in request.form
response.write "<input type=""hidden"""
response.write " value='" & request.form(chkItem) & "' "
response.write "name=""chkPassed"">"
next

_____________________________________________________________________
_{Where have all my friends gone to????}

http://www.onpntwebdesigns.com

onpnt · Sep 4, 2003

then you have unique checkbox's and you have no concern with array. This is not a group but singled objects in the form

I would get the values passed (or more to the point the name) with a InStr()
eg: (in the loop)

If InStr(Request.Form(Item),"catbox&quot

> 0 Then
... I have my value ...
Response.Write hidden syntax & Request.Form(Item)

_____________________________________________________________________
_{Where have all my friends gone to????}

http://www.onpntwebdesigns.com

palbano · Sep 4, 2003

Perahps your problem would be greatly simplified if you changed this:
<td><input type="checkbox" name="catbox<%=rsSub("CategoryID&quot%>"></td>

to this:

Code:

<td><input type=&quot;checkbox&quot; name=&quot;catbox&quot; value=&quot;<%=rsSub(&quot;CategoryID&quot;)%>&quot;></td>

"But, that's just my opinion... I could be wrong."

-pete

ahmun · Sep 4, 2003

I've implemented a similar thing where I dynamically generate my checkboxes based on a table in my database:

On the first page.asp, you would have this code to dynamically create your checkboxes:

Code:

<td><input type=&quot;checkbox&quot; name=&quot;chk<%=rsSub(&quot;CatID&quot;)%>&quot; value=checked></td>

...and since I know that the names of the check boxes come from a table, I open the same "rsSub" in the next form to read the values of the checkboxes...

On the second page (action of the first page's form)

Code:

<% 
  do while not rsSub.eof 
    if request.form(&quot;chk&quot; & rsSub(&quot;CatID&quot;)) = &quot;checked&quot; then
%>

Code:

    store that value or whatever you plan to do

Code:

<% 
    rsSub.movenext
  loop 
%>

Earnie Eng

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

pass array values to hidden fields in form on next page?

selaine

Programmer

palbano

Programmer

onpnt

Programmer

selaine

Programmer

onpnt

Programmer

onpnt

Programmer

palbano

Programmer

ahmun

IS-IT--Management

Similar threads

Part and Inventory Search

Sponsor