Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 Los ejemplos de ASPTutor.com
 combo box enlazados
 Foro Bloqueado  Tema Bloqueado


Autor Temas
isaaxxx
Starting Member

Chile
8 Posts
Mensajes - 09 Sep 2009 :  23:36:57  Ver Perfil  Enviar Email
he estado trabajando con el codigo que entregan aca con el ejemplo de combo box enlazados desde una bdd y me resulta ok el problema mio es que cuando hago la consulta y apreto el boton me abre otra pagina y la idea es que sea la misma pagina y no habra otras paginas por que al usuario esto le provocaria problemas que realice 10 consultas y tenga 10 paginas abiertas

soy nuevo en este foro y desde ya agradecia cualquier ayuda

isaaxxx
Starting Member

Chile
8 Posts
Posted - 09 Sep 2009 :  23:40:57  Ver perfil  Enviar e-mail
este es el link del ejemplo


http://www.asptutor.com/asp/vart.asp?id=102

Inicio Pagina

isaaxxx
Starting Member

Chile
8 Posts
Posted - 11 Sep 2009 :  16:49:09  Ver perfil  Enviar e-mail
este es el codigo combo.asp

<html>

<head>
<title>Electricidad Automotriz</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("Db\hard.mdb"))

productos_Sql = "Select distinct familia, codigo, denominacion from articulos "
set rs = CreateObject("ADODB.Recordset")
rs.Open productos_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("codigo"))&" "&(rs("denominacion")) %>";
subcatagoryof = "<%=(rs("familia"))%>";
subcatagoryid = "<%=(rs("codigo"))%>";
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>

<base target="principal">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#66FF33">
<h2 align="center"><b><i><font color="#AE1732"><u>PRODUCTOS ELECTRICIDAD AUTOMOTRIZ MENDEZ</u></font></i></b></h2>
<form name="prueba" method="POST" action="verarticulo.asp">
<div align="center">
<center>
<table border="0" width="80%">
<tr>

<td width="77%">
<select size="1" id="familia" name="familia" onChange = "javascript:sublist(this.form, familia.value);">

<option selected>Selecciona una familia</option>
<%familias_Sql = "Select distinct id,familia from familias"
rs.Open familias_Sql, Conn
do while not rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("familia")%></option>


<%rs.movenext
loop
set rs=nothing
conn.close
set conn=nothing%>
</select>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <SELECT id="subcatagory" name="subcatagory" size="1">
<Option selected value="none"></option>
</SELECT></td>
<td width="9%">
<p align="left">
<input border="0" src="images/submit.gif" name="I4" type="image">
</p> </td>
</tr>
</table>
</center>
</div>
<center>
</form>

</body>
</html>

verarticulo.asp
<html>

<head>
<title>articulos</title>
<target="_self">
</head>

<body bgcolor="#FFFF00">
<p align="center"><font color="#AE1732" face="Verdana" size="4"><b>Detalles</b></font></p>
<p align="center">
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Db\hard.mdb"))
strSQL = "Select * from articulos where codigo ='" & Request.form("subcatagory")&"'"

Set RS = Conn.Execute(strSQL)
if not rs.eof then%>
</p>
<div align="center">
<center>
<table border="0" width="80%" bgcolor="#0000FF">
<tr>
<td width="11%"><b><font face="Verdana" size="3" color="#FFFFFF">Codigo:</font></b></td>
<td width="15%"><font face="Verdana" size="1"><font color="#FFFFFF"><%=rs("codigo")%></font></font></td>
<td width="74%">
<p align="center"><font face="Verdana" size="2" color="#FFFFFF"><b><%=rs("denominacion")%></b></font></td>
</tr>
<tr>
<td width="100%" colspan="3" >
<table border="0" width="100%">
<tr>
<td width="11%">
<p align="center">&nbsp;</td>
<td width="78%" bgcolor="#AE1732">
<p align="center"><img border="0" src="images/<%=rs("imagen")%>"></td>
<td width="11%">&nbsp;</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" colspan="3">
<p align="left"><font face="Verdana" size="1" color="#FFFFFF"><%=rs("descripcion")%></font></td>
</tr>
<tr>
<td width="20%"><b><font face="Verdana" size="3" color="#FFFFFF">Precio</font></b></td>
<td width="80%" colspan="2"><font face="Verdana" size="1" color="#FFFFFF"><%=formatcurrency(rs("precio"))%></font></td>
</tr>
</table>

</center>
</div>

<%
rs.close
set rs=nothing
Conn.Close
Set Conn = Nothing
end if
%>


</body>

</html>


Inicio Pagina

isaaxxx
Starting Member

Chile
8 Posts
Posted - 15 Sep 2009 :  22:50:33  Ver perfil  Enviar e-mail
ya esta solucionado gracias

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar