¿Como rescato el los valores de un while ?

[karmish]

Saludos:
Tengo esta complicasion y no se me ocurre como hacerlo.

El codigo es

Código:

tas = Request.Form("text3")
MIEN ="execute sp_s_herra '"&tas&"';"
SET her=DbObj.Execute(MIEN)

do while not her.EOF    
    valor1 = CInt(len(Request.Form("checkbox_" & her("id_herra"))))
	ide = her("id_herra")
	nn = her("des_herra")
	if valor1 <> 0 then
	valor1 = ide
	
	
Response.Write(''"&valor1&"'' in (select id_herra from herra_ficha1 where ficha1.id_ficha1 = herra_ficha1.id_ficha1) or <br>")

	end if
	
her.movenext
loop

y me gustaria que lo que esta den tro del Response.Write que de fuera de el while

Código:

	
SALIDA=(''"&valor1&"'' in (select id_herra from herra_ficha1 where ficha1.id_ficha1 = herra_ficha1.id_ficha1) or <br>")

	end if
	
her.movenext
loop

Response.Write(SALIDA)

Se puede hacer algo asi, porque a mi no me resulta.

[Myakire]

SALIDA= "'"&valor1&"'" in (select id_herra from herra_ficha1 where ficha1.id_ficha1 = herra_ficha1.id_ficha1) or <br>"



Saludos