08/04/2005, 13:57
|
 | | | Fecha de Ingreso: abril-2005
Mensajes: 8
Antigüedad: 20 años, 1 mes Puntos: 0 | |
 combo box asp
<html>
<head>
<title>Combos combinados</title>
<script language = "JavaScript">
<%'CONSULTA PARA OBTENER LOS DATOS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\database\telefonos.mdb"))
productos_Sql = "Select distinct ciudad, nombre, numeros from contactos "
set rs = CreateObject("ADODB.Recordset")
rs.Open contactos_Sql, Conn
x=0
%>
// FUNCION DE COMBO BOX COMBINADO
function sublist(inform, selecteditem)
{
inform.subcatagory.length = 0
<%
count= 0
y=0
do while not rs.eof
%>
x = <%= trim(y) %>;
subcat = new Array();
subcatagorys = "<%=(rs("nombre"))&" "&(rs("numeros")) %>";
subcatagoryof = "<%=(rs("ciudad"))%>";
subcatagoryid = "<%=(rs("nombre"))%>";
subcat[x,0] = subcatagorys;
subcat[x,1] = subcatagoryof;
subcat[x,2] = subcatagoryid;
if (subcat[x,1] == selecteditem) {
var option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,2]);
inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs.movenext
loop
rs.close
%>
}
</script>
esta es la configuracion que le di a la conexion y al combo-box |