I'm working with three different asp pages:
Page 1 = Supplier_Reg.asp
Page 2 = Commodities.asp
Page 3 = add_supplier.asp
Page 1 contains part one of a form (textboxes and checkboxes)
I pull all of the textbox information into page 2 as hidden fields as follows:
Response.Write( "<td><input type=""hidden"" Name=MainCat" & rsMain("GroupID"
& "></td>" )
The checkboxes created
dynamically from an access database table. The checkboxes are named ck<%=rsConn("GroupID"%>,
with the "GroupID" being a key field in the Main Categories table.
Page 2 contains one or more (depending on what checkboxes are ticked on page one) sets of
checkboxes which are created dynamically from an access database table (sub categories), using
the GroupID. Each GroupID (checkbox(s) selected from previous page, develops a list of
checkboxes). As each GroupID is determined, a hidden text field is created on the page so that
I can pass the value to page 3 (name=MainCat" & rsMain(GroupID". The checkbox sets on this
page are all named catbox<%=rsSub("CategoryID"%>.
This is my problem:
I'm not very good at working with loops and need to validate my checkboxes per GroupID.
So if the user selected 3 checkboxes on page 1, there will be 3 GroupIDs to loop thru. Each
GroupID will generate anywhere from 1 - 24 checkboxes from the table. My
sub categories table contains the following fields: "CategoryID", "GroupID" and "Description".
I need to loop thru each of the hidden field(s) created on page two that have the
name: MainCat???? (the ???? represent the GroupID to search on) and then check to make sure
at least one of the CategoryID's associated with that particular GroupID have been checked.
Then I need to check the next group of checkboxes. Does anyone know how I would create a loop
to do this? Here is the code I have for the first two pages:
***************************************
Page 1 : category.asp
***************************************
<% @LANGUAGE=VBscript %>
<% Option Explicit %>
<%
Response.Buffer = True
Dim dbConn 'Common Database connection
Dim rsConn 'Common recordset object
Dim strSQL 'SQL string constructor
'Get the database connection
Set dbConn = Server.CreateObject( "ADODB.Connection" )
dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "purchasing.mdb" ) & ";"
'Get the main categories from the (seala.mdb) database; (Main Categories Table)
strSQL = "SELECT GroupID, Description FROM [Main Categories] ORDER BY Description"
Set rsConn = dbConn.Execute( strSQL )
If rsConn.EOF Then
Response.Redirect "MAJORERROR.ASP"
End If
%>
<html>
<head>
<title>Select Main Category</title>
</head>
<body>
<table align="center"><tbody>
<td colspan="2" class="thead">Select Main Categories</td>
<form name="maincat" action="subsection.asp" method="post">
<%
'Make our way through the main categories and write the data as we go
While NOT rsConn.EOF
%>
<tr><td><%=rsConn("Description"%></td>
<td><input type="checkbox" name="chkbox<%=rsConn("GroupID"%>"></td>
</tr>
<%
'Next record
rsConn.MoveNext
Wend
%>
<tr><td align="center" colspan="2">
<input type="submit" value="Submit Form"> <input type="reset" value="Reset Data">
</td></tr>
</form>
</tbody></table>
</body>
</html>
<%
'Clean up database objects
Set rsConn = Nothing
dbConn.Close
Set dbConn = Nothing
%>
***************************************
Page 2 : subsection.asp
***************************************
<% @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( "purchasing.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( "chkbox" & rsMain("GroupID") 'Get the field from the form
If NOT (fld = False) Then 'Was the box checked
ArrayCheck( ArraySize ) = rsMain("GroupID" '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) & ""
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""><center><b><font face=""Arial,Helvetica"" size=+1>" & rsMain("Description" & "</font></b></center></td></tr>" & vbCrLf )
Response.Write( "<td><input type=""hidden"" Name=MainCat" & rsMain("GroupID" & "></td>" )
'--------------------------- 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"%></td>
<td><input type="checkbox" name="catbox<%=rsSub("CategoryID"%>"></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
%>
***************************************
Page 3 : add supplier.asp
***************************************
I know the syntax below isn't even close, but I'm trying to show the basics of what I think needs to happen (using javascript). Most of what I do have I've managed to piece together from various places on the internet and a person named Whitesword was extremely helpful. But, loops just really throw me!
Count of GroupIDs = X
loop X times
for each Name=MainCat" & rsMain("GroupID"
go to table and compare catbox<%=rsSub("CategoryID"%> with CategoryID in
sub categories and make sure at least one checked
loop to check next GroupID selected on previous page
Help!!! Thanks to all!!!!!!
Page 1 = Supplier_Reg.asp
Page 2 = Commodities.asp
Page 3 = add_supplier.asp
Page 1 contains part one of a form (textboxes and checkboxes)
I pull all of the textbox information into page 2 as hidden fields as follows:
Response.Write( "<td><input type=""hidden"" Name=MainCat" & rsMain("GroupID"
& "></td>" )The checkboxes created
dynamically from an access database table. The checkboxes are named ck<%=rsConn("GroupID"
%>,with the "GroupID" being a key field in the Main Categories table.
Page 2 contains one or more (depending on what checkboxes are ticked on page one) sets of
checkboxes which are created dynamically from an access database table (sub categories), using
the GroupID. Each GroupID (checkbox(s) selected from previous page, develops a list of
checkboxes). As each GroupID is determined, a hidden text field is created on the page so that
I can pass the value to page 3 (name=MainCat" & rsMain(GroupID"
. The checkbox sets on this page are all named catbox<%=rsSub("CategoryID"
%>.This is my problem:
I'm not very good at working with loops and need to validate my checkboxes per GroupID.
So if the user selected 3 checkboxes on page 1, there will be 3 GroupIDs to loop thru. Each
GroupID will generate anywhere from 1 - 24 checkboxes from the table. My
sub categories table contains the following fields: "CategoryID", "GroupID" and "Description".
I need to loop thru each of the hidden field(s) created on page two that have the
name: MainCat???? (the ???? represent the GroupID to search on) and then check to make sure
at least one of the CategoryID's associated with that particular GroupID have been checked.
Then I need to check the next group of checkboxes. Does anyone know how I would create a loop
to do this? Here is the code I have for the first two pages:
***************************************
Page 1 : category.asp
***************************************
<% @LANGUAGE=VBscript %>
<% Option Explicit %>
<%
Response.Buffer = True
Dim dbConn 'Common Database connection
Dim rsConn 'Common recordset object
Dim strSQL 'SQL string constructor
'Get the database connection
Set dbConn = Server.CreateObject( "ADODB.Connection" )
dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "purchasing.mdb" ) & ";"
'Get the main categories from the (seala.mdb) database; (Main Categories Table)
strSQL = "SELECT GroupID, Description FROM [Main Categories] ORDER BY Description"
Set rsConn = dbConn.Execute( strSQL )
If rsConn.EOF Then
Response.Redirect "MAJORERROR.ASP"
End If
%>
<html>
<head>
<title>Select Main Category</title>
</head>
<body>
<table align="center"><tbody>
<td colspan="2" class="thead">Select Main Categories</td>
<form name="maincat" action="subsection.asp" method="post">
<%
'Make our way through the main categories and write the data as we go
While NOT rsConn.EOF
%>
<tr><td><%=rsConn("Description"
%></td><td><input type="checkbox" name="chkbox<%=rsConn("GroupID"
%>"></td> </tr>
<%
'Next record
rsConn.MoveNext
Wend
%>
<tr><td align="center" colspan="2">
<input type="submit" value="Submit Form"> <input type="reset" value="Reset Data">
</td></tr>
</form>
</tbody></table>
</body>
</html>
<%
'Clean up database objects
Set rsConn = Nothing
dbConn.Close
Set dbConn = Nothing
%>
***************************************
Page 2 : subsection.asp
***************************************
<% @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( "purchasing.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( "chkbox" & rsMain("GroupID"
) 'Get the field from the formIf NOT (fld = False) Then 'Was the box checked
ArrayCheck( ArraySize ) = rsMain("GroupID"
'Add the GroupID to the arrayArraySize = 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) & "
"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""><center><b><font face=""Arial,Helvetica"" size=+1>" & rsMain("Description"
& "</font></b></center></td></tr>" & vbCrLf )Response.Write( "<td><input type=""hidden"" Name=MainCat" & rsMain("GroupID"
& "></td>" )'--------------------------- 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"
%></td><td><input type="checkbox" name="catbox<%=rsSub("CategoryID"
%>"></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
%>
***************************************
Page 3 : add supplier.asp
***************************************
I know the syntax below isn't even close, but I'm trying to show the basics of what I think needs to happen (using javascript). Most of what I do have I've managed to piece together from various places on the internet and a person named Whitesword was extremely helpful. But, loops just really throw me!
Count of GroupIDs = X
loop X times
for each Name=MainCat" & rsMain("GroupID"
go to table and compare catbox<%=rsSub("CategoryID"
%> with CategoryID insub categories and make sure at least one checked
loop to check next GroupID selected on previous page
Help!!! Thanks to all!!!!!!