Ver Mensaje Individual
  #20 (permalink)  
Antiguo 12/12/2007, 10:51
Avatar de Shiryu_Libra
Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 18 años, 1 mes
Puntos: 88
Re: como hacer un list box a partir de otro

nancy

en la pagina que te recupera tus datos, en la externa, modifiquemos el codigo
sobreescribe lo que tienes por este, e intentalo de nuevo
Código HTML:
<%Dim Conn
'ABRE CONEXION
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open CONNECTIONSTRING

'verifico que el querystring, no este vacio
if request.QueryString <>"" then
    'tomo el valor del control, que contendra los datos
    destino=request.QueryString("destino")
    'tomo el valor de la categoria a buscar
    categoria=request.QueryString("value")
    'creo la consulta
    strSQL = "SELECT idsubcategory,description FROM SUBCATEGORY where idcategory="&categoria&" "
    'ejecucion
    Set rst = Conn.Execute(strSQL)
    'inicializo respuesta en blanco
    respuesta=""
    if Err=0 then
        if rst.EOF =false
            'de aki hasta el ultimo dato de la subcategoria
            Do While Not rst.EOF
                'por primera ves, tomo el valor simple
                if respuesta="" then
                    respuesta= "<option value="""&_
                        rst("idsubcategory")&""""&_
                        strSelected&">"&_
                        rst("description")&"</option>"
                'en segundas vueltas, le anexo todos los valores que llegue a encontrar
                else
                    respuesta = respuesta & "<option value=""" & rst("idsubcategory") & _
                        """ "&strSelected&">"&_
                        rst("description")&"</option>"
                end if
                'me muevo al siguiente registro
                rst.MoveNext
            Loop
            'esta parte permitira al control de ajax separar mediante el simbolo "|";
            'el control de los datos; en pocas palabras, esta parte es la importante
        else
            respuesta = "No hay SubCategorias"
        end if
    else
        respuesta = "Error Procesando Datos, contacte al WebMaster"
    end if
    response.Write destino &"|"& respuesta
end if%>
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra