Ver Mensaje Individual
  #3 (permalink)  
Antiguo 01/04/2003, 20:06
Avatar de ivan02
ivan02
 
Fecha de Ingreso: diciembre-2001
Mensajes: 449
Antigüedad: 22 años, 11 meses
Puntos: 2
<!--#include file="cache.txt"-->
<html>

<head>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Página nueva 1</title>

<STYLE type=text/css>A:link {
TEXT-DECORATION: none
}
A:visited {
TEXT-DECORATION: none
}
A:hover {
COLOR: ; TEXT-DECORATION: underline
}
</STYLE>


<script language = "JavaScript">

<%'CONSULTA PARA OBTENER LOS DATOS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("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>

</head>

<body topmargin="0" leftmargin="0">
<form name="prueba" method="POST" action="verarticulo.asp" target="_blank">

<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="28%"><img border="0" src="images/f2.JPG" width="223" height="40"></td>
<td width="72%">
<p align="center">

<br>


<SCRIPT LANGUAGE="JavaScript">

<!--#include file="banner/numeral.txt"-->
var ahora = new Date()
var segundos = ahora.getSeconds()
var ad = segundos % banners;

<!--#include file="banner/logos.txt"-->

document.write('<center>');
document.write('<OBJECT CLASSID=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" width=' + width + ' height=' + height + ' CODEBASE=\"http://active.macromedia.com/flash4/cabs/swflash.cab#version=4,0,0,0\">');
document.write('<PARAM NAME=\"MOVIE\" VALUE=\"' + flash + '\">');
document.write('<PARAM NAME=\"PLAY\" VALUE=\"true\">');
document.write('<PARAM NAME=\"LOOP\" VALUE=\"true\">');
document.write('<PARAM NAME=\"QUALITY\" VALUE=\"high\">');
document.write('<EMBED SRC=' + flash + ' width=' + width + ' height=' + height + ' PLAY=\"true\" LOOP=\"true\" QUALITY=\"high\" PLUGINSPAGE=\"http://www.macromedia.com/shockwave/download/index.cgi? P1_Prod_Version=ShockwaveFlash\">');
document.write('</EMBED>');
document.write('</OBJECT>');
document.write('</center>');


</SCRIPT>


</td>
</tr>
</table>
<table border="0" cellspacing="0" width="100%" bgcolor="#3366CC" cellpadding="0">
<tr>
<td width="1%">&nbsp;</td>
<td width="19%">&nbsp;</td>
<td width="9%"><b><a href="http://www.cat-soft.net"><font color="#FFFFFF">Inicio</font></a></b></td>
<td width="51%"><p><font color="#FFFFFF" size="2">Hay <%=application("vactivos")%> usuarios activos.</font></p></td>
<td width="20%">&nbsp;</td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="13%">
<table border="0" width="109" bgcolor="#3366CC" cellspacing="0" cellpadding="0" height="248">
<tr>
<td width="107" height="21"><font color="#FFFFFF" size="2">&nbsp; </font><a href="cumputadoras.asp"><font color="#FFFFFF" size="2">Computadoras</font></a></td>
</tr>
<tr>
<td width="107" height="21"><font color="#FFFFFF" size="2">&nbsp; </font><a href="sistemas.asp"><font color="#FFFFFF" size="2">Sistemas</font></a></td>
</tr>
<tr>
<td width="107" bgcolor="#3366CC" height="21"><font size="2">&nbsp; <a href="serviciosweb.asp"><font color="#FFFFFF">Servicios
web</font></a></font></td>
</tr>
<tr>
<td width="107" bgcolor="#3366CC" height="22"><font size="2">&nbsp; <a href="quienessomos.asp"> <font color="#FFFFFF" size="2">Quienes
somos
</font></a></font></td>
</tr>
<tr>
<td width="107" bgcolor="#3366CC" height="19"><font size="2">&nbsp; <a href="contactenos.asp"><font color="#FFFFFF">Contactenos</font></a></font></td>
</tr>
<tr>
<td width="107" bgcolor="#3366CC" height="71" valign="bottom"><img border="0" src="images/inter2.jpg"></td>
</tr>
<tr>
<td width="107" bgcolor="#3366CC" height="19"><font size="2">&nbsp; <a href="articulos.asp"><font color="#FFFFFF">Articulos</font></a></font></td>
</tr>
<tr>
<td width="107" bgcolor="#3366CC" height="22"><font size="2">&nbsp; <a href="noticias.asp"> <font color="#FFFFFF" size="2">Noticias</font></a></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#3366CC" height="19"><font size="2">&nbsp; <a href="manuales.asp"> <font color="#FFFFFF" size="2">Manuales</font></a></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" height="19"><img border="0" src="images/fig.jpg" width="114" height="20"></td>
</tr>
</table>
</td>
<td width="3%"></td>
<td width="79%" rowspan="2">
&nbsp;
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="25%">&nbsp;</td>
<td width="25%">&nbsp;</td>
<td width="21%">&nbsp;</td>
<td width="29%" rowspan="4">




</td>
</tr>
<tr>
<td width="25%"> <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><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ; </td>
<td width="25%">&nbsp;</td>
<td width="21%">&nbsp;</td>
</tr>
<tr>
<td width="25%"> <SELECT id="subcatagory" name="subcatagory" size="1">
<Option selected value="none"></option>
</SELECT></td>
<td width="25%">&nbsp;</td>
<td width="21%">&nbsp;</td>
</tr>
<tr>
<td width="25%"><br>
<input border="0" src="images/submit.gif" name="I4" type="image">
</td>
<td width="25%">&nbsp;</td>
<td width="21%">&nbsp;</td>
</tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;
</td>
<td width="5%"></td>
</tr>
<tr>
<td width="13%">
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
</td>
<td width="3%">&nbsp;
<p>&nbsp;</p>
<p>&nbsp;</td>
<td width="5%"></td>
</tr>
<tr>
<td width="13%"></td>
<td width="87%" colspan="3"><P align=center>


</td>
</tr>
</table>

</body>

</html>