function including loop statment with texbox condition.

[Fary4u]

using db connection displaying values into text box,
including multiple loop statement, to show dynamic text box by incrementing text name.

function PopulateComboBS(rsBS,sIDColBS) 
 i = 1
  do while not rsBS.eof and i < 10
    nPKBS = rsBS.fields(sIDColBS).value
sResBS = sResBS & "<input size=2 name=st"& i & " type=text value=" & nPKBS & "><br/>"
    rsBS.MoveNext
   i=i+1
  loop
PopulateComboBS = sResBS
end function

record showing following result.

<input size=2 name=st1 type=text value=x><br/>
<input size=2 name=st2 type=text value=x><br/>
<input size=2 name=st3 type=text value=x><br/>
<input size=2 name=st4 type=text value=x><br/>

db only got 4 result but to show rest of the text box,
need condition to finish all the text box using the same following procedure ( name=st5,st6,st 7,st8,st9 ) with blank values?

<input size=2 name=st5 type=text value=><br/>
<input size=2 name=st6 type=text value=><br/>
<input size=2 name=st7 type=text value=><br/>
<input size=2 name=st8 type=text value=><br/>
<input size=2 name=st9 type=text value=><br/>

Hope that makes sense

[Rabbit]

Use a second loop to go from the record count + 1 to 10.

[Fary4u]

best to check record set 1st and then record count.

sResBS.MoveFirst
 while not sResBS.EOF and i < 10
   sResBS = sResBS & "<input size=2 name=st"& i & " type=text value=" & nPKBS & "><br/>"
 sResBS.MoveNext
  i=i+1
   wend

works for me :)