agregar varios con varios input text

[Shiryu_Libra]

otra manera de tomar los valores sin definir el numero de vueltas que dara el FOR, seria de esta manera.... tomando el codigo de las FAQS #3 y modificandolo solo lo necesario

<%
function AgregarDatos(sDato)
'Deberas agregar tu cadena de conexion
set oConn = server.CreateObject("ADODB.Connection")
sSQL="INSER INTO NombreTabla(campo) VALUES ('"& sDato &"')"
oConn.execute(sSQL)
if Err = 0 then
response.Write "Dato Agregado Correctamente<br />"
else
response.Write "Error al ingresar datos<br />Detalle" & Err
end if
oConn.close
set oConn = nothing
end function

if request.ServerVariables("REQUEST_METHOD")="POST" then
for each item in request.form
if request.Form(item)<>"" then
response.Write "Valor = " & request.Form(item) & "<br />"
AgregarDatos(request.Form(item))
'Esto se puede omitir
lleno=lleno+1
else
vacio=vacio+1
end if
next
elseif request.ServerVariables("REQUEST_METHOD")="GET" then
for each item in request.QueryString
if request.QueryString(item)<>"" then
response.Write "Valor = " & request.QueryString(item) & "<br />"
AgregarDatos(request.QueryString(item))
'Esto se puede omitir
lleno=lleno+1
else
vacio=vacio+1
end if
next
else

'Esta parte tambien se puede omitir
response.Write "De los " &_
(cint(lleno)+cint(vacio)) &_
" TextBox, se encontraron <br />LLenos (" &_
cint(lleno) &") y Vacios (" &_
cint(vacio) &")"
%>
<a href="inputsdinamicos.asp">Regresar</a>