Recorrer datos de una cadena y grabarlos en una base de datos

[pali_wichis]

y si en vez de for each haces esto:

<% Dim Var, cadena

Response.Write (var & ": " & Request.QueryString(var))
Response.Write("<br>")

cadena = Split(request.QueryString(var),"_")

for i=lbound(cadena) to ubound(cadena)
Response.Write (cadena)

next%>