09/08/2005, 09:51
|
 | | | Fecha de Ingreso: junio-2005
Mensajes: 315
Antigüedad: 19 años, 10 meses Puntos: 0 | |
para quien este interesado, ANDA MUY BIEN gracias Myakire, este es el codigo de como lo implemente, saludos
Código:
<%@ LANGUAGE="VBSCRIPT" %>
<%
Set cn = Server.CreateObject("ADODB.Connection")
Set rsTMP = Server.CreateObject("ADODB.Recordset")
cn.Provider = "sqloledb"
ProvStr = "Server=?????????;Database=???????;UID=?????;PWD=??????;"
cn.Open ProvStr
%>
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<style>
body{
scrollbar-arrow-color: #FFFFFF;
scrollbar-3dlight-color: #FFFFFF;
scrollbar-highlight-color: #C0C0C0;
scrollbar-face-color: #000000;
scrollbar-shadow-color: #C0C0C0;
scrollbar-darkshadow-color: #000000;
scrollbar-track-color: #000000;
}
a:link { font-family: Tahoma, Verdana, Arial; color: #003366; text-decoration: none}
a:visited { font-family: Tahoma, Verdana, Arial; color: #003366; text-decoration: none}
a:hover { font-family: Tahoma, Verdana, Arial; color: #FF9900}
a:active { font-family: Tahoma, Verdana, Arial; color: #003366; text-decoration: none}
</style>
<title>???????</title>
<link rel="stylesheet" type="text/css" href="../estilo.css">
<script>
function buscar(txt) {
obj=document.getElementById('tabla');
for (i=0;ele=obj.getElementsByTagName('tr')[i];i++) {
celda = ele.getElementsByTagName('td')[1]
dato = celda.innerHTML;
iz = dato.substr(0,txt.length);
// celda.style.display = (txt==iz) ? '' : 'none';
ele.style.display = (txt==iz) ? '' : 'none';
}
}
</script>
</head>
<body link="#000000" vlink="#000000" alink="#000000" text="#000000" bgcolor="#ffffff" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0." background="../images/SETEO/fondo.jpg" >
<div align="center">
<table border="0" id="table1" cellspacing="0" cellpadding="2">
<tr>
<td bgcolor="#FFFFFF" class="TEXTO">CUENTA</td>
<td bgcolor="#FFFFFF" class="TEXTO"> </td>
<td bgcolor="#FFFFFF" class="TEXTO"> </td>
<td bgcolor="#FFFFFF" class="TEXTO">
<input type="text" onkeyup="buscar(this.value)" class="CUADROTEXTO" size="20" name="T1"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="TEXTO" colspan="4">
<div align="center">
<table id="tabla" border="0" cellspacing="0" cellpadding="2">
<%
SQL="SELECT * FROM P_CUENTAS ORDER BY DESCRIPCION"
RSTMP.Open SQL,CN
WHILE NOT RSTMP.EOF
%>
<tr>
<td class="TEXTO"><%=RSTMP.Fields("CTA1")%>.<%=RSTMP.Fields("CTA2")%></td>
<td class="TEXTO"><%=RSTMP.Fields("DESCRIPCION")%></td>
</tr>
<%
RSTMP.MoveNext()
WEND
RSTMP.Close()
%>
</table>
</div>
</td>
</tr>
</table>
</div>
</body>
</html>
__________________
Sigue al indio desnudo... Pero con precaución, atendiendo las señales de transito y comentando todo lo que haces.
REM Hay que encontrar el camino de regreso y no siempre es facil.... |