Como inserto 5 o mas registros al mismo tiempo !

[cayo]

dim x()
INDICE=0
FOR each dato in Request.Form
INDICE=INDICE+1
REDIM PRESERVE X(INDICE)%>
<%if dato<>"asociar" then %>
<%=dato%>:<%=Request.Form(dato).ITEM %><br>
<% x(indice)=dato
end if %>
<%next
%>
<%
'grabar asociacion
FOR I=1 TO UBound(x)
'Response.Write(x(i)) %><br>
<%sql="insert into detalle_componente values("& x(i) &","& session("wwbien") &")"
Set rs = DBbien.execute(sql)
next

nota: la variable dato, me parece q es parte de la instruccion for each, salvo que me equivoco si alguien se acuerda.....