a.asp
<%
...
where not rs.eof
response.write "<input type=text value="&rs("text")&">"
str=str&rs("id")
rs.movenext
wend
...
%>
b.asp
<%
id=split(request("str"),",")
for i=0 to ubound(split(request("str"),","))
sql="update table set text='"&request("text")&"' where id="&cint(id(i))
next
%>