|
 |
asp_databases thread: RE: STUDENT NEEDS HELP Please......................................
Message #1 by "Drew, Ron" <RDrew@B...> on Tue, 2 Apr 2002 17:15:23 -0500
|
|
Did not read this whole thing, but when using SELECTS Maybe try this....
add an INPUT with a hidden field which will be passed using the
request.form( )..
<INPUT type=3D"hidden" NAME=3D"loc" SIZE=3D11 value=3D"">
in this case I am using loc with a FORM name of temphelp
Then on the select add as an example... <SELECT size=3D"1"
name=3D"locs"
onChange=3D"selectloc()">
Then add this javascript before the <BODY>
<SCRIPT LANGUAGE=3D"JavaScript">
<!-- Hide from old browsers --
function selectloc(){
var opt =3D document.temphelp.locs.selectedIndex;
var loc =3D eval("document.temphelp.locs.options["+opt+"].value");
if (loc !=3D "No Change") {
document.temphelp.loc.value =3D loc;
}
}
// -- end hiding -->
</SCRIPT>
-----Original Message-----
From: David Goble [mailto:DavidRGJR@h...]
Sent: Tuesday, April 02, 2002 4:37 PM
To: ASP Databases
Subject: [asp_databases] STUDENT NEEDS HELP
Please......................................
Okay everybody, I hope someone can help (BECAUSE MY TEACHER CAN'T) If
you want to show your knowledge to a complete stranger and have him bow
down to you please help me find a solution to this problem.
I have two pages (all code shown below) that displays a list of products
a
user can select to have added to their 'shopping cart'. The problem is,
how do you tell the second page to retrieve the values that the user has
selected.
I try to use the Request.Form() function but it tells me that the
variable
must have "" inorder to be retrieved.
I know that this is difficult to ask over the web but at this point i am
despirate and no one at my college can help me.
Page 1
<html>
<head>
<meta http-equiv=3D"Content-Type" content=3D"text/html;
charset=3Dwindows-1252"> <title></title> </head> <form method=3D"POST"
action=3D"emp_verifyproddistributors.asp">
<body>
<u><b><font size=3D"4"><font color=3D"#02089E">Distributor
Products</font></u><br>
</font></b>
<table border=3D0>
<tr>
<td align=3D"center"><font color=3D"#02089E" face=3D"Courier
New" size =3D 2><br>Selection</font></td>
<td align=3D"center"><font color=3D"#02089E" face=3D"Courier
New" size =3D 2><br>Distributor</font></td>
<td align=3D"center"><font color=3D"#02089E" face=3D"Courier
New" size =3D 2><br>City</font></td>
<td align=3D"center"><font color=3D"#02089E" face=3D"Courier
New" size =3D 2><br>State</font></td>
<td align=3D"center"><font color=3D"#02089E" face=3D"Courier
New" size =3D 2><br>Zip</font></td>
<td align=3D"center"><font color=3D"#02089E" face=3D"Courier
New" size =3D 2>If 'Add'ed,<br>Dist. Product #</font></td>
</tr>
<%
'Declare variables
Dim objconn
Dim strconn
=09
Dim rsDistributor
Dim sqlstmt
=09
Dim varA
Dim varB
Dim numVariable
=09
numVariable =3D 0
=09
'Set up connection.
set objconn =3D Server.CreateObject("ADODB.Connection")
strconn =3D "File Name=3D" + Server.MapPath("access.udl")
objconn.Open strconn
'Set up new recordset and get information from database.
set rsDistributor=3D Server.CreateObject("ADODB.Recordset")
rsDistributor.CursorType =3D adOpenDynamic
sqlstmt =3D "SELECT * FROM distributor_information"
rsDistributor.Open sqlstmt, objconn
=09
'Display all products for the user to select the correct
products.
If Not rsDistributor.EOF Then
Do While Not rsDistributor.EOF
numVariable =3D numVariable + 1
Response.Write "<font size =3D 2><tr>"
Response.Write "<td align =3D ""center"">"
Response.Write "<select name =3D """
Response.Write numVariable
Response.Write """>"
Response.Write "<option selected =3D ""selected""
value =3D ""0"">Not Selected</option>"
Response.Write "<option value =3D """
Response.Write Trim(rsDistributor
("d_distributor_number"))
Response.Write """>Add</option></td>"
Response.Write "<td align =3D ""center"">"
Response.Write Trim(rsDistributor
("d_company_name"))
Response.Write "</td>"
Response.Write "<td align =3D ""center"">"
Response.Write Trim(rsDistributor("d_city"))
Response.Write "</td>"
Response.Write "<td align =3D ""center"">"
Response.Write Trim(rsDistributor("d_state"))
Response.Write "</td>"
Response.Write "<td align =3D ""center"">"
Response.Write Trim(rsDistributor("d_zip"))
Response.Write "</td>"
Response.Write "<td><center><input type=3D""text""
id=3D""txt"
Response.Write numVariable
Response.Write """ size =3D ""10"" max length
=3D ""50"" /></td>"
Response.Write "</tr></font></center>"
rsDistributor.MoveNext
Loop
Else
Response.Write "<tr><td align=3D""center""
colspan=3D""7"">ERROR: There are no distributors currently
available</td></tr>"
End If
=09
varA =3D numVariable
varB =3D CStr(varA)
=09
Session("numTotalNumDistributors") =3D ""
Session("numTotalNumDistributors") =3D varB
rsDistributor.close
objconn.close
%>
<tr>
<td align=3D"center" colspan=3D"7"><br>
<input type=3D"Submit" value=3D"Update Product
Info">
<input type=3D"reset"></td>
</tr>
</table>
</body>
</form>
</html>
PAGE 2
<%
'Declare variables
Dim objconn
Dim strconn
=09
Dim rsSelection
Dim sqlstmt
Dim varA
Dim varB
Dim numTotalRemaining
Dim numTotalSelected
=09
varA =3D Session("numTotalNumDistributors")
varB =3D CLng(varA)
numTotalRemaining =3D varB=09
=09
'Set up connection.
set objconn =3D Server.CreateObject("ADODB.Connection")
strconn =3D "File Name=3D" + Server.MapPath("access.udl")
objconn.Open strconn
'Set up new recordset and get information from database.
set rsSelection =3D Server.CreateObject("ADODB.Recordset")
rsSelection.CursorType =3D adOpenDynamic
rsSelection.LockType =3D adLockOptimistic
sqlstmt =3D "SELECT * FROM distributor_product_line"
rsSelection.Open sqlstmt, objconn
=09
'Perform until numVariable is equal to zero.
Do While numTotalRemaining <> 0
=09
'If the customer has selected that product then write a
new record.
If Request.Form(numTotalRemaining) <> "0" Then '<-
HERE
IS THE PROBLEM
=09
varA =3D Request.Form(numTotalRemaining) '<- HERE
IS THE PROBLEM
varB =3D varB
=09
rsSelection.AddNew
rsSelection("dpl_distributor_number") =3D varB
varA =3D Session("strNewProductNumber")
varB =3D varA
rsSelection("dpl_product_number") =3D varB
rsSelection("dpl_date_created") =3D Date
=09
varA =3D Chr(numTotalRemaining) '<- HERE IS THE
PROBLEM
varB =3D "txt"
varB =3D varB + varA
rsSelection("dpl_distributor_product_number") =3D
Request.Form("txt" + varB) '<- HERE IS THE PROBLEM
rsSelection.Update
=09
numTotalRemaining =3D numTotalRemaining - 1
=09
Else
numTotalRemaining =3D numTotalRemaining - 1
End If
=09
Loop
=09
Session("strCompInfo") =3D ""
Session("strCompInfo") =3D "Information Updated"
Response.Redirect("emp_new_completion.asp")
=09
rsSelection.close
objconn.close
%>
PLEASE HELP
Message #2 by "Drew, Ron" <RDrew@B...> on Tue, 2 Apr 2002 17:17:42 -0500
|
|
Just noticed...also move your form below the body statement..this was
kind of hard to read based on how it separated everything on the email
display
-----Original Message-----
From: David Goble [mailto:DavidRGJR@h...]
Sent: Tuesday, April 02, 2002 4:37 PM
To: ASP Databases
Subject: [asp_databases] STUDENT NEEDS HELP
Please......................................
Okay everybody, I hope someone can help (BECAUSE MY TEACHER CAN'T) If
you want to show your knowledge to a complete stranger and have him bow
down to you please help me find a solution to this problem.
I have two pages (all code shown below) that displays a list of products
a
user can select to have added to their 'shopping cart'. The problem is,
how do you tell the second page to retrieve the values that the user has
selected.
I try to use the Request.Form() function but it tells me that the
variable
must have "" inorder to be retrieved.
I know that this is difficult to ask over the web but at this point i am
despirate and no one at my college can help me.
Page 1
<html>
<head>
<meta http-equiv=3D"Content-Type" content=3D"text/html;
charset=3Dwindows-1252"> <title></title> </head> <form method=3D"POST"
action=3D"emp_verifyproddistributors.asp">
<body>
<u><b><font size=3D"4"><font color=3D"#02089E">Distributor
Products</font></u><br>
</font></b>
<table border=3D0>
<tr>
<td align=3D"center"><font color=3D"#02089E" face=3D"Courier
New" size =3D 2><br>Selection</font></td>
<td align=3D"center"><font color=3D"#02089E" face=3D"Courier
New" size =3D 2><br>Distributor</font></td>
<td align=3D"center"><font color=3D"#02089E" face=3D"Courier
New" size =3D 2><br>City</font></td>
<td align=3D"center"><font color=3D"#02089E" face=3D"Courier
New" size =3D 2><br>State</font></td>
<td align=3D"center"><font color=3D"#02089E" face=3D"Courier
New" size =3D 2><br>Zip</font></td>
<td align=3D"center"><font color=3D"#02089E" face=3D"Courier
New" size =3D 2>If 'Add'ed,<br>Dist. Product #</font></td>
</tr>
<%
'Declare variables
Dim objconn
Dim strconn
=09
Dim rsDistributor
Dim sqlstmt
=09
Dim varA
Dim varB
Dim numVariable
=09
numVariable =3D 0
=09
'Set up connection.
set objconn =3D Server.CreateObject("ADODB.Connection")
strconn =3D "File Name=3D" + Server.MapPath("access.udl")
objconn.Open strconn
'Set up new recordset and get information from database.
set rsDistributor=3D Server.CreateObject("ADODB.Recordset")
rsDistributor.CursorType =3D adOpenDynamic
sqlstmt =3D "SELECT * FROM distributor_information"
rsDistributor.Open sqlstmt, objconn
=09
'Display all products for the user to select the correct
products.
If Not rsDistributor.EOF Then
Do While Not rsDistributor.EOF
numVariable =3D numVariable + 1
Response.Write "<font size =3D 2><tr>"
Response.Write "<td align =3D ""center"">"
Response.Write "<select name =3D """
Response.Write numVariable
Response.Write """>"
Response.Write "<option selected =3D ""selected""
value =3D ""0"">Not Selected</option>"
Response.Write "<option value =3D """
Response.Write Trim(rsDistributor
("d_distributor_number"))
Response.Write """>Add</option></td>"
Response.Write "<td align =3D ""center"">"
Response.Write Trim(rsDistributor
("d_company_name"))
Response.Write "</td>"
Response.Write "<td align =3D ""center"">"
Response.Write Trim(rsDistributor("d_city"))
Response.Write "</td>"
Response.Write "<td align =3D ""center"">"
Response.Write Trim(rsDistributor("d_state"))
Response.Write "</td>"
Response.Write "<td align =3D ""center"">"
Response.Write Trim(rsDistributor("d_zip"))
Response.Write "</td>"
Response.Write "<td><center><input type=3D""text""
id=3D""txt"
Response.Write numVariable
Response.Write """ size =3D ""10"" max length
=3D ""50"" /></td>"
Response.Write "</tr></font></center>"
rsDistributor.MoveNext
Loop
Else
Response.Write "<tr><td align=3D""center""
colspan=3D""7"">ERROR: There are no distributors currently
available</td></tr>"
End If
=09
varA =3D numVariable
varB =3D CStr(varA)
=09
Session("numTotalNumDistributors") =3D ""
Session("numTotalNumDistributors") =3D varB
rsDistributor.close
objconn.close
%>
<tr>
<td align=3D"center" colspan=3D"7"><br>
<input type=3D"Submit" value=3D"Update Product
Info">
<input type=3D"reset"></td>
</tr>
</table>
</body>
</form>
</html>
PAGE 2
<%
'Declare variables
Dim objconn
Dim strconn
=09
Dim rsSelection
Dim sqlstmt
Dim varA
Dim varB
Dim numTotalRemaining
Dim numTotalSelected
=09
varA =3D Session("numTotalNumDistributors")
varB =3D CLng(varA)
numTotalRemaining =3D varB=09
=09
'Set up connection.
set objconn =3D Server.CreateObject("ADODB.Connection")
strconn =3D "File Name=3D" + Server.MapPath("access.udl")
objconn.Open strconn
'Set up new recordset and get information from database.
set rsSelection =3D Server.CreateObject("ADODB.Recordset")
rsSelection.CursorType =3D adOpenDynamic
rsSelection.LockType =3D adLockOptimistic
sqlstmt =3D "SELECT * FROM distributor_product_line"
rsSelection.Open sqlstmt, objconn
=09
'Perform until numVariable is equal to zero.
Do While numTotalRemaining <> 0
=09
'If the customer has selected that product then write a
new record.
If Request.Form(numTotalRemaining) <> "0" Then '<-
HERE
IS THE PROBLEM
=09
varA =3D Request.Form(numTotalRemaining) '<- HERE
IS THE PROBLEM
varB =3D varB
=09
rsSelection.AddNew
rsSelection("dpl_distributor_number") =3D varB
varA =3D Session("strNewProductNumber")
varB =3D varA
rsSelection("dpl_product_number") =3D varB
rsSelection("dpl_date_created") =3D Date
=09
varA =3D Chr(numTotalRemaining) '<- HERE IS THE
PROBLEM
varB =3D "txt"
varB =3D varB + varA
rsSelection("dpl_distributor_product_number") =3D
Request.Form("txt" + varB) '<- HERE IS THE PROBLEM
rsSelection.Update
=09
numTotalRemaining =3D numTotalRemaining - 1
=09
Else
numTotalRemaining =3D numTotalRemaining - 1
End If
=09
Loop
=09
Session("strCompInfo") =3D ""
Session("strCompInfo") =3D "Information Updated"
Response.Redirect("emp_new_completion.asp")
=09
rsSelection.close
objconn.close
%>
PLEASE HELP
Message #3 by "Roberto" <roberto@s...> on Tue, 2 Apr 2002 22:45:07 +0200
|
|
try:
Dim item
for each item in request.form
response.write item & "=" & request.form(item)
Next
or
for each item in request.querystring
response.write item & "=" & request.querystring(item)
Next
-----Original Message-----
From: Jason Greenfeld-Unitek [mailto:jason.greenfeld@u...]
Sent: di 2 april 2002 22:27
To: ASP Databases
Subject: [asp_databases] RE: STUDENT NEEDS HELP
Please.................... ..................
When you do request.form... you have to have "'s just like the error message
says
EX:
page1
<form>
<input type=text name="First_Name">
<input type=submit>
</form>
page2
strFirst_Name = Request.Form("First_Name")
your error appears to be occurring because you are trying to do
strFirst_Name = Request.Form(First_Name)
Let me know if this is what you are looking for.
----------------------------------------------------
Jason A. Greenfeld
Lead Software Developer
Unitek Technical Services
-----Original Message-----
From: David Goble [mailto:DavidRGJR@h...]
Sent: Tuesday, April 02, 2002 4:37 PM
To: ASP Databases
Subject: [asp_databases] STUDENT NEEDS HELP
Please......................................
Okay everybody, I hope someone can help (BECAUSE MY TEACHER CAN'T)
If you want to show your knowledge to a complete stranger and have him bow
down to you please help me find a solution to this problem.
I have two pages (all code shown below) that displays a list of products a
user can select to have added to their 'shopping cart'. The problem is,
how do you tell the second page to retrieve the values that the user has
selected.
I try to use the Request.Form() function but it tells me that the variable
must have "" inorder to be retrieved.
I know that this is difficult to ask over the web but at this point i am
despirate and no one at my college can help me.
Page 1
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title></title>
</head>
<form method="POST" action="emp_verifyproddistributors.asp">
<body>
<u><b><font size="4"><font color="#02089E">Distributor
Products</font></u><br>
</font></b>
<table border=0>
<tr>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>Selection</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>Distributor</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>City</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>State</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>Zip</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2>If 'Add'ed,<br>Dist. Product #</font></td>
</tr>
<%
'Declare variables
Dim objconn
Dim strconn
Dim rsDistributor
Dim sqlstmt
Dim varA
Dim varB
Dim numVariable
numVariable = 0
'Set up connection.
set objconn = Server.CreateObject("ADODB.Connection")
strconn = "File Name=" + Server.MapPath("access.udl")
objconn.Open strconn
'Set up new recordset and get information from database.
set rsDistributor= Server.CreateObject("ADODB.Recordset")
rsDistributor.CursorType = adOpenDynamic
sqlstmt = "SELECT * FROM distributor_information"
rsDistributor.Open sqlstmt, objconn
'Display all products for the user to select the correct products.
If Not rsDistributor.EOF Then
Do While Not rsDistributor.EOF
numVariable = numVariable + 1
Response.Write "<font size = 2><tr>"
Response.Write "<td align = ""center"">"
Response.Write "<select name = """
Response.Write numVariable
Response.Write """>"
Response.Write "<option selected = ""selected""
value = ""0"">Not Selected</option>"
Response.Write "<option value = """
Response.Write Trim(rsDistributor
("d_distributor_number"))
Response.Write """>Add</option></td>"
Response.Write "<td align = ""center"">"
Response.Write Trim(rsDistributor
("d_company_name"))
Response.Write "</td>"
Response.Write "<td align = ""center"">"
Response.Write Trim(rsDistributor("d_city"))
Response.Write "</td>"
Response.Write "<td align = ""center"">"
Response.Write Trim(rsDistributor("d_state"))
Response.Write "</td>"
Response.Write "<td align = ""center"">"
Response.Write Trim(rsDistributor("d_zip"))
Response.Write "</td>"
Response.Write "<td><center><input type=""text""
id=""txt"
Response.Write numVariable
Response.Write """ size = ""10"" max length
= ""50"" /></td>"
Response.Write "</tr></font></center>"
rsDistributor.MoveNext
Loop
Else
Response.Write "<tr><td align=""center""
colspan=""7"">ERROR: There are no distributors currently
available</td></tr>"
End If
varA = numVariable
varB = CStr(varA)
Session("numTotalNumDistributors") = ""
Session("numTotalNumDistributors") = varB
rsDistributor.close
objconn.close
%>
<tr>
<td align="center" colspan="7"><br>
<input type="Submit" value="Update Product Info">
<input type="reset"></td>
</tr>
</table>
</body>
</form>
</html>
PAGE 2
<%
'Declare variables
Dim objconn
Dim strconn
Dim rsSelection
Dim sqlstmt
Dim varA
Dim varB
Dim numTotalRemaining
Dim numTotalSelected
varA = Session("numTotalNumDistributors")
varB = CLng(varA)
numTotalRemaining = varB
'Set up connection.
set objconn = Server.CreateObject("ADODB.Connection")
strconn = "File Name=" + Server.MapPath("access.udl")
objconn.Open strconn
'Set up new recordset and get information from database.
set rsSelection = Server.CreateObject("ADODB.Recordset")
rsSelection.CursorType = adOpenDynamic
rsSelection.LockType = adLockOptimistic
sqlstmt = "SELECT * FROM distributor_product_line"
rsSelection.Open sqlstmt, objconn
'Perform until numVariable is equal to zero.
Do While numTotalRemaining <> 0
'If the customer has selected that product then write a
new record.
If Request.Form(numTotalRemaining) <> "0" Then '<- HERE
IS THE PROBLEM
varA = Request.Form(numTotalRemaining) '<- HERE
IS THE PROBLEM
varB = varB
rsSelection.AddNew
rsSelection("dpl_distributor_number") = varB
varA = Session("strNewProductNumber")
varB = varA
rsSelection("dpl_product_number") = varB
rsSelection("dpl_date_created") = Date
varA = Chr(numTotalRemaining) '<- HERE IS THE
PROBLEM
varB = "txt"
varB = varB + varA
rsSelection("dpl_distributor_product_number")
Request.Form("txt" + varB) '<- HERE IS THE PROBLEM
rsSelection.Update
numTotalRemaining = numTotalRemaining - 1
Else
numTotalRemaining = numTotalRemaining - 1
End If
Loop
Session("strCompInfo") = ""
Session("strCompInfo") = "Information Updated"
Response.Redirect("emp_new_completion.asp")
rsSelection.close
objconn.close
%>
PLEASE HELP
Message #4 by Jason Greenfeld-Unitek <jason.greenfeld@u...> on Tue, 2 Apr 2002 15:27:16 -0500
|
|
When you do request.form... you have to have "'s just like the error message
says
EX:
page1
<form>
<input type=text name="First_Name">
<input type=submit>
</form>
page2
strFirst_Name = Request.Form("First_Name")
your error appears to be occurring because you are trying to do
strFirst_Name = Request.Form(First_Name)
Let me know if this is what you are looking for.
----------------------------------------------------
Jason A. Greenfeld
Lead Software Developer
Unitek Technical Services
-----Original Message-----
From: David Goble [mailto:DavidRGJR@h...]
Sent: Tuesday, April 02, 2002 4:37 PM
To: ASP Databases
Subject: [asp_databases] STUDENT NEEDS HELP
Please......................................
Okay everybody, I hope someone can help (BECAUSE MY TEACHER CAN'T)
If you want to show your knowledge to a complete stranger and have him bow
down to you please help me find a solution to this problem.
I have two pages (all code shown below) that displays a list of products a
user can select to have added to their 'shopping cart'. The problem is,
how do you tell the second page to retrieve the values that the user has
selected.
I try to use the Request.Form() function but it tells me that the variable
must have "" inorder to be retrieved.
I know that this is difficult to ask over the web but at this point i am
despirate and no one at my college can help me.
Page 1
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title></title>
</head>
<form method="POST" action="emp_verifyproddistributors.asp">
<body>
<u><b><font size="4"><font color="#02089E">Distributor
Products</font></u><br>
</font></b>
<table border=0>
<tr>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>Selection</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>Distributor</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>City</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>State</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>Zip</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2>If 'Add'ed,<br>Dist. Product #</font></td>
</tr>
<%
'Declare variables
Dim objconn
Dim strconn
Dim rsDistributor
Dim sqlstmt
Dim varA
Dim varB
Dim numVariable
numVariable = 0
'Set up connection.
set objconn = Server.CreateObject("ADODB.Connection")
strconn = "File Name=" + Server.MapPath("access.udl")
objconn.Open strconn
'Set up new recordset and get information from database.
set rsDistributor= Server.CreateObject("ADODB.Recordset")
rsDistributor.CursorType = adOpenDynamic
sqlstmt = "SELECT * FROM distributor_information"
rsDistributor.Open sqlstmt, objconn
'Display all products for the user to select the correct products.
If Not rsDistributor.EOF Then
Do While Not rsDistributor.EOF
numVariable = numVariable + 1
Response.Write "<font size = 2><tr>"
Response.Write "<td align = ""center"">"
Response.Write "<select name = """
Response.Write numVariable
Response.Write """>"
Response.Write "<option selected = ""selected""
value = ""0"">Not Selected</option>"
Response.Write "<option value = """
Response.Write Trim(rsDistributor
("d_distributor_number"))
Response.Write """>Add</option></td>"
Response.Write "<td align = ""center"">"
Response.Write Trim(rsDistributor
("d_company_name"))
Response.Write "</td>"
Response.Write "<td align = ""center"">"
Response.Write Trim(rsDistributor("d_city"))
Response.Write "</td>"
Response.Write "<td align = ""center"">"
Response.Write Trim(rsDistributor("d_state"))
Response.Write "</td>"
Response.Write "<td align = ""center"">"
Response.Write Trim(rsDistributor("d_zip"))
Response.Write "</td>"
Response.Write "<td><center><input type=""text""
id=""txt"
Response.Write numVariable
Response.Write """ size = ""10"" max length
= ""50"" /></td>"
Response.Write "</tr></font></center>"
rsDistributor.MoveNext
Loop
Else
Response.Write "<tr><td align=""center""
colspan=""7"">ERROR: There are no distributors currently
available</td></tr>"
End If
varA = numVariable
varB = CStr(varA)
Session("numTotalNumDistributors") = ""
Session("numTotalNumDistributors") = varB
rsDistributor.close
objconn.close
%>
<tr>
<td align="center" colspan="7"><br>
<input type="Submit" value="Update Product Info">
<input type="reset"></td>
</tr>
</table>
</body>
</form>
</html>
PAGE 2
<%
'Declare variables
Dim objconn
Dim strconn
Dim rsSelection
Dim sqlstmt
Dim varA
Dim varB
Dim numTotalRemaining
Dim numTotalSelected
varA = Session("numTotalNumDistributors")
varB = CLng(varA)
numTotalRemaining = varB
'Set up connection.
set objconn = Server.CreateObject("ADODB.Connection")
strconn = "File Name=" + Server.MapPath("access.udl")
objconn.Open strconn
'Set up new recordset and get information from database.
set rsSelection = Server.CreateObject("ADODB.Recordset")
rsSelection.CursorType = adOpenDynamic
rsSelection.LockType = adLockOptimistic
sqlstmt = "SELECT * FROM distributor_product_line"
rsSelection.Open sqlstmt, objconn
'Perform until numVariable is equal to zero.
Do While numTotalRemaining <> 0
'If the customer has selected that product then write a
new record.
If Request.Form(numTotalRemaining) <> "0" Then '<- HERE
IS THE PROBLEM
varA = Request.Form(numTotalRemaining) '<- HERE
IS THE PROBLEM
varB = varB
rsSelection.AddNew
rsSelection("dpl_distributor_number") = varB
varA = Session("strNewProductNumber")
varB = varA
rsSelection("dpl_product_number") = varB
rsSelection("dpl_date_created") = Date
varA = Chr(numTotalRemaining) '<- HERE IS THE
PROBLEM
varB = "txt"
varB = varB + varA
rsSelection("dpl_distributor_product_number") =
Request.Form("txt" + varB) '<- HERE IS THE PROBLEM
rsSelection.Update
numTotalRemaining = numTotalRemaining - 1
Else
numTotalRemaining = numTotalRemaining - 1
End If
Loop
Session("strCompInfo") = ""
Session("strCompInfo") = "Information Updated"
Response.Redirect("emp_new_completion.asp")
rsSelection.close
objconn.close
%>
PLEASE HELP
Message #5 by "David Goble" <DavidRGJR@h...> on Tue, 2 Apr 2002 21:36:44
|
|
Okay everybody, I hope someone can help (BECAUSE MY TEACHER CAN'T)
If you want to show your knowledge to a complete stranger and have him bow
down to you please help me find a solution to this problem.
I have two pages (all code shown below) that displays a list of products a
user can select to have added to their 'shopping cart'. The problem is,
how do you tell the second page to retrieve the values that the user has
selected.
I try to use the Request.Form() function but it tells me that the variable
must have "" inorder to be retrieved.
I know that this is difficult to ask over the web but at this point i am
despirate and no one at my college can help me.
Page 1
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title></title>
</head>
<form method="POST" action="emp_verifyproddistributors.asp">
<body>
<u><b><font size="4"><font color="#02089E">Distributor
Products</font></u><br>
</font></b>
<table border=0>
<tr>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>Selection</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>Distributor</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>City</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>State</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2><br>Zip</font></td>
<td align="center"><font color="#02089E" face="Courier
New" size = 2>If 'Add'ed,<br>Dist. Product #</font></td>
</tr>
<%
'Declare variables
Dim objconn
Dim strconn
Dim rsDistributor
Dim sqlstmt
Dim varA
Dim varB
Dim numVariable
numVariable = 0
'Set up connection.
set objconn = Server.CreateObject("ADODB.Connection")
strconn = "File Name=" + Server.MapPath("access.udl")
objconn.Open strconn
'Set up new recordset and get information from database.
set rsDistributor= Server.CreateObject("ADODB.Recordset")
rsDistributor.CursorType = adOpenDynamic
sqlstmt = "SELECT * FROM distributor_information"
rsDistributor.Open sqlstmt, objconn
'Display all products for the user to select the correct products.
If Not rsDistributor.EOF Then
Do While Not rsDistributor.EOF
numVariable = numVariable + 1
Response.Write "<font size = 2><tr>"
Response.Write "<td align = ""center"">"
Response.Write "<select name = """
Response.Write numVariable
Response.Write """>"
Response.Write "<option selected = ""selected""
value = ""0"">Not Selected</option>"
Response.Write "<option value = """
Response.Write Trim(rsDistributor
("d_distributor_number"))
Response.Write """>Add</option></td>"
Response.Write "<td align = ""center"">"
Response.Write Trim(rsDistributor
("d_company_name"))
Response.Write "</td>"
Response.Write "<td align = ""center"">"
Response.Write Trim(rsDistributor("d_city"))
Response.Write "</td>"
Response.Write "<td align = ""center"">"
Response.Write Trim(rsDistributor("d_state"))
Response.Write "</td>"
Response.Write "<td align = ""center"">"
Response.Write Trim(rsDistributor("d_zip"))
Response.Write "</td>"
Response.Write "<td><center><input type=""text""
id=""txt"
Response.Write numVariable
Response.Write """ size = ""10"" max length
= ""50"" /></td>"
Response.Write "</tr></font></center>"
rsDistributor.MoveNext
Loop
Else
Response.Write "<tr><td align=""center""
colspan=""7"">ERROR: There are no distributors currently
available</td></tr>"
End If
varA = numVariable
varB = CStr(varA)
Session("numTotalNumDistributors") = ""
Session("numTotalNumDistributors") = varB
rsDistributor.close
objconn.close
%>
<tr>
<td align="center" colspan="7"><br>
<input type="Submit" value="Update Product Info">
<input type="reset"></td>
</tr>
</table>
</body>
</form>
</html>
PAGE 2
<%
'Declare variables
Dim objconn
Dim strconn
Dim rsSelection
Dim sqlstmt
Dim varA
Dim varB
Dim numTotalRemaining
Dim numTotalSelected
varA = Session("numTotalNumDistributors")
varB = CLng(varA)
numTotalRemaining = varB
'Set up connection.
set objconn = Server.CreateObject("ADODB.Connection")
strconn = "File Name=" + Server.MapPath("access.udl")
objconn.Open strconn
'Set up new recordset and get information from database.
set rsSelection = Server.CreateObject("ADODB.Recordset")
rsSelection.CursorType = adOpenDynamic
rsSelection.LockType = adLockOptimistic
sqlstmt = "SELECT * FROM distributor_product_line"
rsSelection.Open sqlstmt, objconn
'Perform until numVariable is equal to zero.
Do While numTotalRemaining <> 0
'If the customer has selected that product then write a
new record.
If Request.Form(numTotalRemaining) <> "0" Then ?<- HERE
IS THE PROBLEM
varA = Request.Form(numTotalRemaining) ?<- HERE
IS THE PROBLEM
varB = varB
rsSelection.AddNew
rsSelection("dpl_distributor_number") = varB
varA = Session("strNewProductNumber")
varB = varA
rsSelection("dpl_product_number") = varB
rsSelection("dpl_date_created") = Date
varA = Chr(numTotalRemaining) ?<- HERE IS THE
PROBLEM
varB = "txt"
varB = varB + varA
rsSelection("dpl_distributor_product_number") =
Request.Form("txt" + varB) ?<- HERE IS THE PROBLEM
rsSelection.Update
numTotalRemaining = numTotalRemaining - 1
Else
numTotalRemaining = numTotalRemaining - 1
End If
Loop
Session("strCompInfo") = ""
Session("strCompInfo") = "Information Updated"
Response.Redirect("emp_new_completion.asp")
rsSelection.close
objconn.close
%>
PLEASE HELP
|
|
|
View Cart
