• Home
 · 
• Active Server Pages
 · 
• Previous Code continued... Displaying Details of value send thru' select Box

Previous Code continued... Displaying Details of value send thru' select Box

Previous Code continued... Displaying Details of value send thru' select Box

Rate Previous Code continued... Displaying Details of value send thru' select Box

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

if rsuser.RecordCount=0 then
   Response.Write("No Matching Found for this product")
   rsuser.Close 
%>
<br><b><a href="itemmast.asp">Click to Go Back</a></b>

else
%>
<h2>Following are the Brands & Range of =Request.Form.Item("itemlst")%></h2><br>
<h4><br>Item Code : =Response.Write(objitem)%>
<form name=frm>
<table name=tbl1 border=1  bgcolor=AntiqueWhite>
<th>Name<th>BrandName<th>Specifications<th>Rate<th>Qty
<th>Select
 
public items(10)
public rates(10)
dim cnt
cnt=1
do until rsuser.EOF
 items(cnt)=objbrand
 rates(cnt)=objrate
 rsuser.MoveNext
cnt=cnt+1
Response.Write items(cnt)
loop
rsuser.MoveFirst 
dim i
do until rsuser.EOF
Response.Write "<tr><Td>" & objname 
Response.Write "<td>" & objbrand
Response.write objspecs & "<td><input name=txtrate readonly value='" 
response.write rsuser("rate") & "'>" & _
"<td><input size=2 value=1 readonly><td><input name=ch1 type=checkbox>"
rsuser.MoveNext 
 cnt=cnt+1
loop
'rsuser.Close 
%>
</table>