regresar datos de una consulta utilizando iframe

[vhpc]

Hola que tal amigos!
Mi problema es el siguiente tengo un iframe contenido dentro de una ventana popup y esta a su vez contiene dos control select que deberian regresar datos de una consulta que les muestro en la parte de abajo en el código, el problema es que el primer control select si los regresa pero el segundo no; la verdad es que ya estuve intentando cambios sobre todo en la función LlenarListas pero sin muchos resultados, espero que alguien de ustedes me pueda dar una orientación.

Nota: la varible valor la recupero en un hidden a través de una querystring

gracias por su valioza ayuda y atención...

<%
Dim Resultado
Dim mensaje

Resultado = ""
mensaje = ""

If Request("Opcion") = "C" then
Dim strQuery

If Trim(Request("tipo")) = "flujos" then
'strQuery = " Select * "
'strQuery = strQuery & " From Sc_TbFluPorPrd "
'strQuery = strQuery & " Where Sc_ClIdnPro = '" & Trim(Request("valor")) & "' "

'Set rst = objCompnt.Set_Querys_FrComp(CStr(strQuery))

'Resultado = LlenarListas(rst,"sflujosa","SC_CLIDNPRO","ID_DOCU MENTO")
'Resultado = Resultado & " parent.document.getElementById('sflujos').length = 0;"

If CBool(Request("show")) Then
strQuery = " Select * "
strQuery = strQuery & " From Sc_TbDocumento "
strQuery = strQuery & " Where Id_Documento Not in ( Select Id_Documento "
strQuery = strQuery & " From Sc_TbFluPorPrd "
strQuery = strQuery & " Where Sc_ClIdnPro = '" & Trim(Request("valor")) & "' )"

Set rst = objCompnt.Set_Querys_FrComp(CStr(strQuery))

Resultado = Resultado & LlenarListas(rst,"sflujos","DESCRIPCION","ID_DOCUM ENTO")
'Resultado = Resultado & " parent.document.getElementById('sflujosa').length = 0;"

Set rst = Nothing

strQuery = " Select * "
strQuery = strQuery & " From Sc_TbFluPorPrd "
strQuery = strQuery & " Where Sc_ClIdnPro = '" & Trim(Request("valor")) & "' "

Set rst = objCompnt.Set_Querys_FrComp(CStr(strQuery))

'Resultado = Resultado & LlenarListas(rst,"sflujosa","SC_CLIDNPRO","ID_DOCU MENTO")
'Resultado = Resultado & " parent.document.getElementById('sflujos').length = 0;"

Set rst = Nothing
End If


End if

ElseIf Request("Opcion") = "GP" then
mensaje = objCompnt.CapturaPrms(Trim(Request("clav")),Trim(R equest("desc")))
End If

If Request("Opcion") <> "C" and Request("Opcion") <> "" then
If Trim(mensaje) = "OK" then
Resultado = "alert('La operación ha sido realizada correctamente.'); parent.document.location.reload();"
Else
Resultado = "alert(" & chr(34) & replace(mensaje,"'","") & chr(34) & ");"
End If
End If

private function LlenarListas(prmRS,prmIdControl,prmCampoTexto,prmC ampoValor)
Variable="var objSelect=parent.document.getElementById('" & prmIdControl & "');"


If Trim(prmIdControl) = "sflujos" then
Cadena=Cadena & "objSelect[0].text='Seleccionar una opción...';"
Cadena=Cadena & "objSelect[0].value='';"
i=1
Else
i=0
End If

indice = 0

while not prmRS.EOF
If Not IsNull(prmRS(prmCampoTexto)) then
Cadena=Cadena & "objSelect[" & i & "].text='" & trim(prmRS(prmCampoTexto)) & "';"
Else
Cadena=Cadena & "objSelect[" & i & "].text='sp_Oracle';"
indice = 1
End If
Cadena=Cadena & "objSelect[" & i & "].value='" & trim(prmRS(prmCampoValor)) & "';"
i=i+1
prmRS.MoveNext
wend

Cadena=Cadena & "objSelect.selectedIndex=" & indice & ";"

LlenarListas=Variable & Variable & "objSelect.length=" & i & ";" & Cadena

end function


Set rstClases = Nothing
Set objCompnt = Nothing

%>

<script Language="JavaScript">
<%=Resultado%>
</script>