loop thru dynamic form elements

bikebanditcom · Oct 1, 2003

I have the following javascript, that as you can see dynamically generates two fields, i'll be adding two more fields that will be dependendent on the first two fields, i haven't worked out the dependendent drop downs, but i need to know how i can loop thru this code in vbscript on my take_sale.asp page, can anyone help? Thank you

<script language="JavaScript">
<!-- Dynamic Form
var recordCount = 0;
//start AddRow function block
function AddRow(){

var elemTbody, elemRow;
var elemCols = new Array(2);
var elemPackType, elemPackLevel

//create a reference to the tbody element in our table
elemTbody = document.getElementById("ResultTable&quot

.getElementsByTagName("tbody&quot

[0];

//create the tr and td objects
elemRow = document.createElement("tr&quot

;
elemCols[0] = document.createElement("td&quot

;
elemCols[1] = document.createElement("td&quot

;

//create our text inputs and our select dropdown
elemPackType = document.createElement("select&quot

;
elemPackLevel = document.createElement("select&quot

;

var elemOption;
var elemOption2;

//do the select box next
elemPackType.name = "packType_" + recordCount;
elemPackType.size = "1";

elemPackLevel.name = "packLevel_" + recordCount;
elemPackLevel.size = "1";

//add the options
var optCtr;
// creating a new option: text, value

//add the option
elemOption = new Option("Select One","Select One&quot

;
elemPackType.add(elemOption);
elemOption = new Option("Type1","Type1&quot

;
elemPackType.add(elemOption);

elemOption2 = new Option("Select One","Select One&quot

;
elemPackLevel.add(elemOption2);
elemOption2 = new Option("Level1","Level1&quot

;
elemPackLevel.add(elemOption2);

//add the inputs to the appropriate cells
elemCols[0].appendChild(elemPackType);
elemCols[1].appendChild(elemPackLevel);

//add the cols to the row
elemRow.appendChild(elemCols[0]);
elemRow.appendChild(elemCols[1]);

//add the row to the tbody tag
elemTbody.appendChild(elemRow);

//increment recordCount and update hdnRecordCount input
recordCount++;
document.getElementById("recCount&quot

.value = recordCount;

}
// end of AddRow function block
//End Dynamic Form
//-->
</script>

guitardave78 · Oct 1, 2003

if you response.write the javascript you can loop through it or if you want to loop it x number of times you could at at the begining
<%for n= 1 to x%>
then your javascript
<%next%>

or

<%if n < x then%>
then your javascript
n = n+1
<%end if%>

bikebanditcom · Oct 2, 2003

and rename n to whatever? im confused really about how to do that, im a novice

heres the new javascript, and one other thing, am i able to dynamically generate the element options,

<script language="JavaScript">
<!-- Dynamic Form
var recordCount = 0;
//start AddRow function block
function AddRow(){

var elemTbody, elemRow;
var elemCols = new Array(4);
var elemPackType, elemPackLevel, elemp_kbAmnt, elemp_pbcAmnt
//create a reference to the tbody element in our table
elemTbody = document.getElementById("ResultTable&quot

.getElementsByTagName("tbody&quot

[0];

//create the tr and td objects
elemRow = document.createElement("tr&quot

;
elemCols[0] = document.createElement("td&quot

;
elemCols[1] = document.createElement("td&quot

;
elemCols[3] = document.createElement("td&quot

;
elemCols[4] = document.createElement("td&quot

;

//create our text inputs and our select dropdown
elemPackType = document.createElement("select&quot

;
elemPackLevel = document.createElement("select&quot

;
elemp_kbAmnt = document.createElement("input&quot

;
elemp_pbcAmnt = document.createElement("input&quot

;

//do the select box
elemPackType.name = "packType_" + recordCount;
elemPackType.size = "1";

elemPackLevel.name = "packLevel_" + recordCount;
elemPackLevel.size = "1";

//do the text boxs next
elemp_kbAmnt.name = "p_kbAmnt_" + recordCount;
elemp_kbAmnt.type = "text";
elemp_kbAmnt.size = "10";

elemp_pbcAmnt.name = "p_pbcAmnt_" + recordCount;
elemp_pbcAmnt.type = "text";
elemp_pbcAmnt.size = "10";

//add the options
var optCtr;
// creating a new option: text, value

var elemOption;
var elemOption2;

//add the option
elemOption = new Option("Select One","Select One&quot

;
elemPackType.add(elemOption);

elemOption2 = new Option("Select One","Select One&quot

;
elemPackLevel.add(elemOption2);

//add the inputs to the appropriate cells
elemCols[0].appendChild(elemPackType);
elemCols[1].appendChild(elemPackLevel);
elemCols[3].appendChild(elemp_kbAmnt);
elemCols[4].appendChild(elemp_pbcAmnt);

//add the cols to the row
elemRow.appendChild(elemCols[0]);
elemRow.appendChild(elemCols[1]);
elemRow.appendChild(elemCols[3]);
elemRow.appendChild(elemCols[4]);

//add the row to the tbody tag
elemTbody.appendChild(elemRow);

//increment recordCount and update hdnRecordCount input
recordCount++;
document.getElementById("recCount&quot

.value = recordCount;

}
// end of AddRow function block
//End Dynamic Form
//-->
</script>

shaddow · Oct 2, 2003

You want to loop thru all the table objects that you created dinamicaly?
You want to be in vbscript? or JS is ok also.

________
George, M

bikebanditcom · Oct 2, 2003

i would prefer it be in vbscript as i know that better, let me post the entire page to you,

here are two pages, the salesEntry.asp page, and the take_Sale.asp page

salesEntry.asp

<%@LANGUAGE="VBSCRIPT" %>

<%
Dim ProjectName
Dim ProjectName_numRows

Set ProjectName = Server.CreateObject("ADODB.Recordset&quot

ProjectName.ActiveConnection = MM_pbcDB_STRING
ProjectName.Source = "SELECT projectName FROM tblProjects ORDER BY projectName ASC"
ProjectName.CursorType = 0
ProjectName.CursorLocation = 2
ProjectName.LockType = 1
ProjectName.Open()

ProjectName_numRows = 0
%>
<%
Dim Salesmen
Dim Salesmen_numRows

Set Salesmen = Server.CreateObject("ADODB.Recordset&quot

Salesmen.ActiveConnection = MM_pbcDB_STRING
Salesmen.Source = "SELECT salesmanName FROM tblSalesmen ORDER BY salesmanName ASC"
Salesmen.CursorType = 0
Salesmen.CursorLocation = 2
Salesmen.LockType = 1
Salesmen.Open()

Salesmen_numRows = 0
%>
<%
Dim p_packages
Dim p_packages_numRows

Set p_packages = Server.CreateObject("ADODB.Recordset&quot

p_packages.ActiveConnection = MM_pbcDB_STRING
p_packages.Source = "SELECT packageName FROM tblPackages ORDER BY packageName ASC"
p_packages.CursorType = 0
p_packages.CursorLocation = 2
p_packages.LockType = 1
p_packages.Open()

p_packages_numRows = 0
%>
<%
Dim packageType
Dim packageType_numRows

Set packageType = Server.CreateObject("ADODB.Recordset&quot

packageType.ActiveConnection = MM_pbcDB_STRING
packageType.Source = "SELECT packTypeName FROM tblPackageType ORDER BY packTypeName ASC"
packageType.CursorType = 0
packageType.CursorLocation = 2
packageType.LockType = 1
packageType.Open()

packageType_numRows = 0
%>
<html>
<head>
<title>Sales Entry</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" type="text/css" href="style.css">
<script language="JavaScript">
<!-- Dynamic Form
var recordCount = 0;
//start AddRow function block
function AddRow(){

var elemTbody, elemRow;
var elemCols = new Array(4);
var elemPackType, elemPackLevel, elemp_kbAmnt, elemp_pbcAmnt
//create a reference to the tbody element in our table
elemTbody = document.getElementById("ResultTable&quot

.getElementsByTagName("tbody&quot

[0];

//create the tr and td objects
elemRow = document.createElement("tr&quot

;
elemCols[0] = document.createElement("td&quot

;
elemCols[1] = document.createElement("td&quot

;
elemCols[3] = document.createElement("td&quot

;
elemCols[4] = document.createElement("td&quot

;

//create our text inputs and our select dropdown
elemPackType = document.createElement("select&quot

;
elemPackLevel = document.createElement("select&quot

;
elemp_kbAmnt = document.createElement("input&quot

;
elemp_pbcAmnt = document.createElement("input&quot

;

//do the select box
elemPackType.name = "packType_" + recordCount;
elemPackType.size = "1";

elemPackLevel.name = "packLevel_" + recordCount;
elemPackLevel.size = "1";

//do the text boxs next
elemp_kbAmnt.name = "p_kbAmnt_" + recordCount;
elemp_kbAmnt.type = "text";
elemp_kbAmnt.size = "10";

elemp_pbcAmnt.name = "p_pbcAmnt_" + recordCount;
elemp_pbcAmnt.type = "text";
elemp_pbcAmnt.size = "10";

//add the options
var optCtr;
// creating a new option: text, value

var elemOption;
var elemOption2;

//add the option
elemOption = new Option("Select One","Select One&quot

;
elemPackType.add(elemOption);

elemOption2 = new Option("Select One","Select One&quot

;
elemPackLevel.add(elemOption2);

//add the inputs to the appropriate cells
elemCols[0].appendChild(elemPackType);
elemCols[1].appendChild(elemPackLevel);
elemCols[3].appendChild(elemp_kbAmnt);
elemCols[4].appendChild(elemp_pbcAmnt);

//add the cols to the row
elemRow.appendChild(elemCols[0]);
elemRow.appendChild(elemCols[1]);
elemRow.appendChild(elemCols[3]);
elemRow.appendChild(elemCols[4]);

//add the row to the tbody tag
elemTbody.appendChild(elemRow);

//increment recordCount and update hdnRecordCount input
recordCount++;
document.getElementById("recCount&quot

.value = recordCount;

}
// end of AddRow function block
//End Dynamic Form
//-->
</script>
<link href="css/style.css" rel="stylesheet" type="text/css">
</head><body>
<h1>Sales Entry</h1>
<p><font size="2">Today Is <%= Now %>
</font></p>
<font face="Arial, Helvetica, sans-serif">
</font>
<form action="take_sale.asp" method="post" name="saleEntry" id="saleEntry" >
<table width="307" cellpadding="2" cellspacing="0">

<tr>
<td height="28" colspan="2" valign="top"><p><font size="4"><strong>Sale
Info</strong></font></p>
<hr>
</td>
<td width="2"></td>
</tr>
<tr>
<td width="139" height="30" valign="top"> <p><font size="2">Salesman: </font></p></td>
<td width="156" valign="middle"><font size="2">
<select name="p_salesman" id="p_salesman">
<option selected value="">Select One</option>
<%
While (NOT Salesmen.EOF)
%>
<option value="<%=(Salesmen.Fields.Item("salesmanName&quot

.Value)%>"><%=(Salesmen.Fields.Item("salesmanName&quot

.Value)%></option>
<%
Salesmen.MoveNext()
Wend
If (Salesmen.CursorType > 0) Then
Salesmen.MoveFirst
Else
Salesmen.Requery
End If
%>
</select>
</font></td>
<td></td>
</tr>
<tr>
<td height="34" valign="middle"><font size="2">Sale Date: </font></td>
<td valign="middle"> <font size="2">
<input name="p_saleDate" type="text" id="p_saleDate" value="<%= Date %>" size="8">
</font></td>
<td></td>
</tr>
<tr>
<td height="34" valign="middle"><font size="2">Project Name: </font></td>
<td valign="middle"><font size="2">
<select name="p_projectName" id="p_projectName">
<option value="">Select One</option>
<%
While (NOT ProjectName.EOF)
%>
<option value="<%=(ProjectName.Fields.Item("projectName&quot

.Value)%>"><%=(ProjectName.Fields.Item("projectName&quot

.Value)%></option>
<%
ProjectName.MoveNext()
Wend
If (ProjectName.CursorType > 0) Then
ProjectName.MoveFirst
Else
ProjectName.Requery
End If
%>
</select>
</font></td>
<td></td>
</tr>
<tr>
<td height="34" valign="middle"><font size="2">Lot Number: </font></td>
<td valign="middle"><font size="2">
<input name="p_lotNum" type="text" id="p_lotNum" size="10">
</font></td>
<td></td>
</tr>
<tr>
<td height="34" valign="middle"><font size="2">Release/Phase Num:</font></td>
<td valign="middle"><font size="2">
<input name="p_phase" type="text" id="p_phase" size="10">
</font></td>
<td></td>
</tr>
<tr>
<td height="34" valign="middle"><font size="2" face="Arial, Helvetica, sans-serif">Customer
Name:</font></td>
<td valign="middle"><font size="2">
<input name="p_customer" type="text" id="p_customer" size="20">
</font></td>
<td></td>
</tr>
<tr>
<td height="8"></td>
<td></td>
<td></td>
</tr>
</table>
<table width="451">

<tr>
<td height="63" colspan="3" valign="top"><h3><strong>Package Info</strong></h3>
<hr> </td>
<td width="78"> </td>
<td width="72"> </td>
</tr>
<tr>
<td width="90" height="34" valign="middle"> <p><font size="2">Package Type</font></p></td>
<td width="107" valign="middle"><font size="2">Package Level</font></td>
<td width="69" valign="middle"><font size="2">KB Amount</font></td>
<td valign="middle"><font size="2">PBC Amount</font></td>
<td> </td>
</tr>
<tr>
<td height="37" valign="middle"><font size="2">
<select name="p_packType" id="p_packType">
<option value="Select One">Select One</option>
<%
While (NOT packageType.EOF)
%>
<option value="<%=(packageType.Fields.Item("packTypeName&quot

.Value)%>"><%=(packageType.Fields.Item("packTypeName&quot

.Value)%></option>
<%
packageType.MoveNext()
Wend
If (packageType.CursorType > 0) Then
packageType.MoveFirst
Else
packageType.Requery
End If
%>
</select>
</font> </td>
<td valign="middle"><font size="2">
<select name="p_PackLevel" id="p_PackLevel">
<option value="Select One">Select One</option>
<%
While (NOT p_packages.EOF)
%>
<option value="<%=(p_packages.Fields.Item("packageName&quot

.Value)%>"><%=(p_packages.Fields.Item("packageName&quot

.Value)%></option>
<%
p_packages.MoveNext()
Wend
If (p_packages.CursorType > 0) Then
p_packages.MoveFirst
Else
p_packages.Requery
End If
%>
</select>
</font> <font size="2">  </font> </td>
<td valign="middle"><font size="2">
<input name="p_kbAmnt" type="text" id="p_kbAmnt" size="10">
</font></td>
<td valign="middle"><font size="2">
<input name="p_pbcAmnt" type="text" id="pbcAmnt" size="10">
</font></td>
<td></td>
</tr>
<tr>
<td height="3"></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
</table>
<table id="ResultTable">

<tr>
</tr>
<tbody>
</tbody>
<tr>
<td colspan="3" align="center"> <input type="button" value="Add a Package" onClick="AddRow();">
</td>
</tr>
</table>
<table width="313" border="0">

<tr>
<td width="106" height="34" valign="middle"><font size="2" face="Arial, Helvetica, sans-serif">KB
Amount</font></td>
<td width="197" valign="middle"> <font size="2">
<input name="p_kbAmntCalc" type="text" id="p_kbAmntCalc" size="10">
</font></td>
</tr>
<tr>
<td height="34" valign="middle"><font size="2" face="Arial, Helvetica, sans-serif">PBC
Amount</font></td>
<td valign="middle"><font size="2">
<input name="p_pbcAmntCalc" type="text" id="p_pbcAmntCalc" size="10">
</font></td>
</tr>
</table>
<p>
<input type="hidden" name="hdnRecordCount" id="RecCount" value="0">
<input type="submit" name="Submit" value="Submit Sale">
</p>
</form>
</body>
</html>
<%
ProjectName.Close()
Set ProjectName = Nothing
%>
<%
Salesmen.Close()
Set Salesmen = Nothing
%>
<%
p_packages.Close()
Set p_packages = Nothing
%>
<%
packageType.Close()
Set packageType = Nothing
%>

take_sale.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

p_salesman = Request.form("p_salesman&quot

p_saleDate = Request.form("p_saleDate&quot

p_projectName = Request.form("p_projectName&quot

p_lotNum = Request.form("p_lotNum&quot

p_phase = Request.form("p_phase&quot

p_customer = Request.form("p_customer&quot

p_packType = Request.form("p_packType&quot

p_PackLevel = Request.form("p_PackLevel&quot

p_kbAmnt = Request.form("p_kbAmnt&quot

p_pbcAmnt = Request.form("p_pbcAmnt&quot

p_kbAmntCalc = Request.form("p_kbAmntCalc&quot

p_pbcAmntCalc = Request.form("p_pbcAmntCalc&quot

set pbcDB = server.createObject("ADODB.Connection&quot

pbcDB.open "pbc"

theSQL = "insert into tblSales (p_salesman, p_saleDate, p_projectName, p_lotNum, p_phase, p_customer) values ('"&p_salesman&"', '"&p_saleDate&"', '"&p_projectName&"', '"&p_lotNum&"', '"&p_phase&"', '"&p_customer&"') "

pbcDB.Execute(theSQL)

pbcDB.close
set pbcDB = Nothing

%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<br>
<br>
<table width="200" cellpadding="4" cellspacing="4" border="2">
<tr>
<td>p_salesman :</td>
<td><%= p_salesman %><br></td>
</tr>
<tr>
<td>p_saleDate: </td>
<td><%= p_saleDate %><br></td
></tr>
<tr>
<td>p_projectName:</td>
<td><%= p_projectName %><br></td>
</tr>
<tr>
<td>p_lotNum:</td>
<td><%= p_lotNum %><br></td>
</tr>
<tr>
<td>p_phase:</td>
<td><%= p_phase %><br></td>
</tr>
<tr>
<td>p_customer:</td>
<td><%= p_customer %><br></td>
</tr>
</table>
</body>
</html>

any help is appreciated. Thanks

dhayden@wecantlose.com

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!

loop thru dynamic form elements

bikebanditcom

Programmer

guitardave78

Programmer

bikebanditcom

Programmer

shaddow

Programmer

bikebanditcom

Programmer

Similar threads

Part and Inventory Search

Sponsor