duda con funcion

[rezocrew]

resulta que buscando en internet me encontre con esta funcion que segun el comentario que tiene dice que sirve para pasar el Id del campo seleccionado

pero yo como no soy experto en asp no entiendo mucho lo que hace asi que quisiera ver si alguien de buena voluntad me puede explicar dicha funcion

de antemano muchas gracias


dim v_cam()
tot_reg = 500
Redim v_cam(tot_reg)
sel_item = request("sel_item")
if len(trim(sel_item)) <> 0 then
dim dtr_datos
dtr_datos = session("dtr_datos")
tot_reg = UBound(dtr_datos, 1)
Redim v_cam(tot_reg + 10)
for tr = 0 to tot_reg
v_cam(tr+1) = rtrim(dtr_datos(tr,sel_item))
next
else
for tr = 1 to tot_reg
v_cam(tr) = request("sp_"& tr)
next
end if


y es invocada en cajas de texto como esta

<input type="text" name="ch_<%=tr%>" class="ingreso" value="<%=v_cam(tr)%>" onkeypress="Dtr_keypress('N','')">