posting several transaction in a file

[Paul Ouma]

<%
sql= "SELECT * FROM tblitems "

set recobj = Server.CreateObject("ADODB.Recordset")

'recobj.LockType=3

recobj.Open sql,connobj

%>

<td width="9%" height="1"><select name = "Itemno">
<option selected ><%=recobj("itemno")%></option>
<%

Dim stritemno
Dim strunits
Dim strsdesc,strsale,stramount

DO WHILE NOT recobj.EOF
stritemno=recobj("itemno")
sql= "SELECT * FROM tblitems WHERE itemNo = '"& stritemno&"'"
'strunits=recobj("units")
'strsdesc=recobj("sdesc")
'strsdesc=recobj("sale")
'stramount=recobj("amount")
' end if
response.write (stritemno)
%>
<option value ><%=stritemno%></option>
<%
recobj.MoveNext
loop %>
</select>

<%

sql= "SELECT * FROM tblItems WHERE ItemNo = '"& stritemno&"'"
response.write (stritemno)
'strunits=recobj("units")
'strsdesc=recobj("sdesc")
'strsdesc=recobj("sale")
'stramount=recobj("amount")



' recobj.close
' set recobj=nothing
%>

</td>
<td width="7%" height="1"><input type="text" name="qty" size="5">
</td>
<td width="12%" height="1"><input type="text" name="units" size="10" value = '<% = strunits %>'>
</td>
<td width="42%" height="1"><input type="text" name="sdesc" size="30" value = '<% = strsdesc %>'>
</td>
<td width="14%" height="1"><input type="text" name="sale" size="10" value = '<% = strsale %>'>
</td>
<td width="17%" height="1"><input type="text" name="amount" size="13" >
</td>
</tr>

I have the above code trying to pick Itemno from a file . If it is selected I diplay the record to a table. Then I move to the next line select the next item diplay it then enter qty , then next item until am done then sum up the total amount

Please help

Thanks in advance