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

[MAIKIKY]

Finalmente pude encontrar una solucion, aca les va por si alguien lo necesita :

<!--#include file="include/Mconection.asp"-->

<%
For each var in Request.QueryString

myVariable = VAR

myArray = Split(myVariable,"_")

Response.Write (Request.QueryString(var))
Response.Write("<br>")
Response.Write myArray(i) & "<BR />"

if myArray(i)="Che" then
tipo_pre = 3
Response.Write("tipo Che")


update_combo="Select * From respuestas "
Tabla10.Open update_combo,Conexion,2,3,1

Tabla10.AddNew
Tabla10("Res_Enc_Id") = 17
Tabla10("Res_Alt_id") = Request.QueryString(var)
Tabla10("Res_pre_tipo_respuesta") = tipo_pre

Tabla10.update
Tabla10.Close

elseif myArray(i)="Rad" then
tipo_pre = 2
Response.Write("tipo Rad")


update_combo="Select * From respuestas "
Tabla10.Open update_combo,Conexion,2,3,1

Tabla10.AddNew
Tabla10("Res_Enc_Id") = 17
Tabla10("Res_Alt_id") = Request.QueryString(var)
Tabla10("Res_pre_tipo_respuesta") = tipo_pre

Tabla10.update
Tabla10.Close

elseif myArray(i)="com" then
tipo_pre = 1
Response.Write("tipo Com")


update_combo="Select * From respuestas "
Tabla10.Open update_combo,Conexion,2,3,1

Tabla10.AddNew
Tabla10("Res_Enc_Id") = 17
Tabla10("Res_id_combo") = Request.QueryString(var)
Tabla10("Res_pre_tipo_respuesta") = tipo_pre
Tabla10.update
Tabla10.Close

elseif myArray(i)="Mtr" then
tipo_pre = 4
Response.Write("tipo Mtr")


update_combo="Select * From respuestas "
Tabla10.Open update_combo,Conexion,2,3,1

Tabla10.AddNew
Tabla10("Res_Enc_Id") = 17
Tabla10("Res_cabec_id") = Request.QueryString(var)
Tabla10("Res_pre_tipo_respuesta") = tipo_pre
Tabla10.update
Tabla10.Close


end if


Next
%>

Saludos y gracias