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
(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>
Previous Code continued... Displaying Details of value send thru' select Box Comments
No comments yet — be the first to post one!
Post a Comment